Attribute VB_Name = "OPeratDataBase"
Public Function GetConnStr() As String
'得到數據庫連接字符串，用戶可以在此處設置連接字符串
'User ID 是數據庫用戶ID，Password是登陸密碼
'Initial Catalog是數據庫名，Data Source是服務器名稱
    GetConnStr = ConnectionString
End Function
Public Function OpenConn(ByRef Conn As ADODB.Connection) As Boolean
'打開數據庫連接，連接成功返回true，出錯時返回false
    Set Conn = New ADODB.Connection
    '出錯處理
    On Error GoTo ErrorHandle
    Conn.Open GetConnStr
    OpenConn = True
    Exit Function
ErrorHandle:
    MsgBox "連接數據庫失??！請重新連接！"
    OpenConn = False
    Exit Function
End Function
Public Sub ExecuteSQL(ByVal SQL As String, ByRef msg As String)
'執行SQL語句
    Dim Conn As ADODB.Connection
    Dim sTokens() As String
    '出錯處理
    On Error GoTo ErrorHandle
    '判斷SQL語句
    sTokens = Split(SQL)
    If InStr("INSERT,DELETE,UPDATE", UCase((sTokens(0)))) Then
        '打開數據庫連接
        If OpenConn(Conn) Then
            Conn.Execute SQL
            msg = sTokens(0) & "操作執行成功！"
        End If
    Else
        msg = "SQL語句有誤：" & SQL
    End If
Finally_Exit:
    Set rst = Nothing
    Set Conn = Nothing
    Exit Sub
ErrorHandle:
    msg = "執行錯誤: " & Err.Description
    Resume Finally_Exit
End Sub
Public Function SelectSQL(ByVal SQL _
As String, ByRef msg As String) As ADODB.Recordset
'執行SQL語句，返回ADODB.Recordset
    Dim Conn As ADODB.Connection
    Dim rst As ADODB.Recordset
    Dim sTokens() As String
    '出錯處理
    On Error GoTo ErrorHandle
    '判斷SQL語句
    sTokens = Split(SQL)
    If InStr("SELECT", UCase((sTokens(0)))) Then
        '打開數據庫連接
        If OpenConn(Conn) Then
            Set rst = New ADODB.Recordset
            rst.CursorLocation = adUseClient
            rst.Open Trim$(SQL), Conn, adOpenDynamic, adLockOptimistic
            Set SelectSQL = rst
            msg = "查詢到" & rst.RecordCount & " 條記錄! "
        End If
    Else
        msg = "SQL語句有誤：" & SQL
    End If
Finally_Exit:
    Set rst = Nothing
    Set Conn = Nothing
    Exit Function
ErrorHandle:
    MsgString = "查詢錯誤: " & _
    Err.Description
    Resume Finally_Exit
End Function
Public Function BatchSelectSQL(ByVal SQL _
   As String, ByRef msg As String) As ADODB.Recordset
'執行SQL語句，返回批處理的ADODB.Recordset
    Dim Conn As ADODB.Connection
    Dim rst As ADODB.Recordset
    Dim sTokens() As String
    '出錯處理
    On Error GoTo ErrorHandle
    '判斷SQL語句
    sTokens = Split(SQL)
    If InStr("SELECT", UCase((sTokens(0)))) Then
        '打開數據庫連接
        If OpenConn(Conn) Then
            Set rst = New ADODB.Recordset
            rst.CursorLocation = adUseClient
            rst.Open Trim$(SQL), Conn, adOpenDynamic, adLockBatchOptimistic
            Set BatchSelectSQL = rst
            msg = "查詢到" & rst.RecordCount & " 條記錄! "
        End If
    Else
        msg = "SQL語句有誤：" & SQL
    End If
Finally_Exit:
    Set rst = Nothing
    Set Conn = Nothing
    Exit Function
ErrorHandle:
    MsgString = "批查詢錯誤: " & _
    Err.Description
    Resume Finally_Exit
End Function