vb中使用COMMAND對(duì)象操作數(shù)據(jù)庫(kù)

'這個(gè)函數(shù)的作用是利用COMMAND對(duì)象連接數(shù)據(jù)庫(kù)
操作一個(gè)SQL語(yǔ)句，返回一個(gè)Recordset的對(duì)象
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

        ' 返回一個(gè)rs記錄集
        Set CmdRunRS = rs
        Exit Function
End Function

'這個(gè)函數(shù)的作用是利用COMMAND對(duì)象連接數(shù)據(jù)庫(kù)
操作一個(gè)SQL語(yǔ)句,執(zhí)行一個(gè)例如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