查看完整版本: vb中使用COMMAND对象操作数据库

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

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

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

        Cmd.ActiveConnection = GetConnectionString() [color=limegreen]'连接字符串[/color]
        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

       [color=limegreen] ' 返回一个rs记录集[/color]
        Set CmdRunRS = rs
        Exit Function
End Function

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

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