moddbaccess.bas

关于记事本的编码,对大家有用

Attribute VB_Name = "modADO"
Option Explicit '强制显式声明模块中的所有变量
Public g_DBCon As New ADODB.Connection  '创建一个 ADO连接对象，名为g_DBCon
Public g_DBRset As New ADODB.Recordset  '创建一个 ADO数据集对象，名为g_DBRset


Public Function ConnectToServer() As Boolean   '自定义函数，用于连接数据库
    On Error GoTo ConnectErr   '错误捕获，立即处理模式。
    '联接到Access
    g_DBCon.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                               "Data Source=" & App.Path & "\user.MDB;" & _
                               "Mode=ReadWrite"
    
   
    g_DBCon.Open
    ConnectToServer = True
    Exit Function
    
    '错误处理
ConnectErr:
    ConnectToServer = False
    MsgBox "错误代码：" & Err.Number & vbCrLf & _
           "错误描述：" & Err.Description, vbCritical + vbOKOnly, "连接错误"

End Function

Public Function ExecuteSQL(ByVal strSQL As String) As Boolean
On Error Resume Next
    Set g_DBRset = g_DBCon.Execute(strSQL)
    If Err.Number <> 0 Then
        MsgBox "错误代码：" & Err.Number & vbCrLf & _
               "错误描述：" & Err.Description, vbCritical + vbOKOnly, "错误连接"
        Err.Clear
        ExecuteSQL = False
    Else
        ExecuteSQL = True
    End If
End Function

Public Function DisConnect() As Boolean
On Error Resume Next
    If g_DBCon.State = adStateOpen Then
        g_DBCon.Close
    End If
    DisConnect = True
End Function