moddatabase.bas

设备管理系统包含设备管理

Attribute VB_Name = "ModDatabase"


Public cnn As ADODB.Connection
Public ConnectString As String


Public Function BeginTrans()
    cnn.BeginTrans
End Function

Public Function CommitTrans()
    cnn.CommitTrans
End Function

Public Function RollbackTrans()
    cnn.RollbackTrans
End Function

Public Function Connect()
    Set cnn = New ADODB.Connection
    cnn.Open ConnectString
End Function

Public Function Disconnect()
    cnn.Close
    Set cnn = Nothing
End Function

Public Function ExecuteSQL(ByVal sql As String, MsgString As String, HasError As Boolean) As ADODB.Recordset
    
    Dim rst As ADODB.Recordset

    Dim sTokens() As String
    
    On Error GoTo ExcuteSQL_Error
    sTokens = Split(sql)
    
    If InStr("INSERT,DELETE,UPDATE", UCase$(sTokens(0))) Then
       cnn.Execute sql
       MsgString = sTokens(0) & "query successful"
    Else
       Set rst = New ADODB.Recordset
       
       rst.Open Trim$(sql), cnn, adOpenKeyset, adLockOptimistic
       Set ExecuteSQL = rst
       MsgString = "查询到" & rst.RecordCount & " 条记录 "
    End If
    
    HasError = False
    Exit Function

ExcuteSQL_Error:
    MsgString = "查询错误：" & Err.Description
    Set rst = Nothing
    HasError = True

End Function