用 Command 对象执行语句

本节介绍一个向数据库发送简单 SQL 语句的简单例程。

示例代码

通过将名为 Command2 的命令按钮放置到窗体上，并将该例程粘贴到它的 Click 事件中，可以尝试执行该例程。运行程序并单击该按钮，即可建立连接，在数据库服务器消息窗口中显示消息，然后断开连接。

Private Sub cmdUpdate_Click( _
        ByVal eventSender As System.Object, _
        ByVal eventArgs As System.EventArgs) _
        Handles cmdUpdate.Click
 
    ' Declare variables
    Dim myConn As New ADODB.Connection
    Dim myCommand As New ADODB.Command
    Dim cAffected As Integer

    On Error GoTo HandleError

    ' Establish the connection
    myConn.Provider = "SAOLEDB"
    myConn.ConnectionString = _
        "Data Source=SQL Anywhere 11 Demo"
    myConn.Open()

    'Execute a command
    myCommand.CommandText = _
        "UPDATE Customers SET GivenName='Liz' WHERE ID=102"
    myCommand.ActiveConnection = myConn
    myCommand.Execute(cAffected)
    MsgBox(CStr(cAffected) & " rows affected.", _ 
        MsgBoxStyle.Information)

    myConn.Close()
    Exit Sub

HandleError:
    MsgBox(ErrorToString(Err.Number))
    Exit Sub
End Sub

注意

建立连接之后，示例代码创建一个 Command 对象，将其 CommandText 属性设置为更新语句，并将其 ActiveConnection 属性设置为当前连接。然后执行更新语句，并在窗口中显示受更新操作影响的行数。

在本示例中，更新将在执行之后被发送到数据库并被提交。

有关在 ADO 内使用事务的信息，请参见使用事务。

还可以通过游标执行更新。

有关详细信息，请参见通过游标更新数据。