VB通用数据库操作方法

'ERP查询数据库
Public Function YZQuery(sqls As String, msgstring As String) As ADODB.Recordset
 On Error GoTo ExecuteSQL_Error
    Set cnn = New ADODB.Connection
    cnn.ConnectionString = ConnectString
    cnn.Open
    Set rst = New ADODB.Recordset
    rst.Open Trim$(sqls), cnn, adOpenKeyset, adLockOptimistic
    Set YZQuery = rst
    msgstring = "查询到 " & rst.RecordCount & " 条记录 "
ExecuteSQL_Exit:
   Set cnn = Nothing
   Exit Function
ExecuteSQL_Error:
   msgstring = "查询错误: " & err.Description
   Resume ExecuteSQL_Exit
End Function
'ERP更新数据库
Public Function YZUpdate(sqls() As String, msgstring As String) As Boolean
    Dim i As Long
 On Error GoTo ExecuteSQL_Error
    Set cnn = New ADODB.Connection
    cnn.ConnectionString = ConnectString
    cnn.Open
    cnn.BeginTrans
    For i = LBound(sqls) To UBound(sqls)
        cnn.Execute sqls(i)
    Next
    cnn.CommitTrans
    YZUpdate = True
ExecuteSQL_Exit:
   Set rst = Nothing
   Set cnn = Nothing
   Exit Function
ExecuteSQL_Error:
   msgstring = "更新错误: " & err.Description
   YZUpdate = False
   cnn.RollbackTrans
   Resume ExecuteSQL_Exit
End Function

Public Const ConnectString = "driver={sql server};server=192.168.1.1; uid=sa; pwd=123; database=erp;"