VB COMMAND对象

vb中使用COMMAND对象操作数据库

'这个函数的作用是利用COMMAND对象连接数据库
操作一个SQL语句，返回一个Recordset的对象
Function CmdRunRS(ByVal strSP) '

        Dim rs As New ADODB.Recordset
        Dim Cmd As New ADODB.Command

        Cmd.ActiveConnection = GetConnectionString() '连接字符串
        Cmd.CommandText = strSP
        Cmd.CommandType = adCmdText
        ' Execute the query for readonly
        rs.CursorLocation = adUseClient
        
        rs.Open Cmd, , , adLockReadOnly

        Set Cmd.ActiveConnection = Nothing
        Set Cmd = Nothing
        Set rs.ActiveConnection = Nothing

        ' 返回一个rs记录集
        Set CmdRunRS = rs
        Exit Function
End Function

'这个函数的作用是利用COMMAND对象连接数据库
操作一个SQL语句,执行一个例如insert 、update、delete操作等等

Function CmdRunSQL(ByVal strSP)
        
         On Error GoTo Error_Msg

        Dim Cmd As New ADODB.Command

        Cmd.ActiveConnection = GetConnectionString()
        Cmd.CommandText = strSP
        Cmd.CommandType = adCmdText
        
       Cmd.Execute , , adExecuteNoRecords
       
        Set Cmd.ActiveConnection = Nothing
        Set Cmd = Nothing
      
        Exit Function

Error_Exit:
    Exit Function
    
Error_Msg:
    MsgBox Err.Description, vbOKOnly + vbInformation
    
End Function