Sie können diese Routine ausprobieren, indem Sie eine Befehlsschaltfläche namens cmdUpdate in einer Maske platzieren und die Routine in ihr Klick-Ereignis einfügen. Führen Sie das Programm aus und klicken Sie auf die Schaltfläche, um eine Verbindung herzustellen und eine Meldung im Meldungsfenster des Datenbankservers anzuzeigen. Trennen Sie anschließend die Verbindung.

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 16 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

Nachdem eine Verbindung hergestellt wurde, erstellt der Beispielcode ein Befehlsobjekt und stellt die Eigenschaft CommandText auf eine Update-Anweisung und die Eigenschaft ActiveConnection auf die aktuelle Verbindung ein. Dann führt er die Update-Anweisung aus und zeigt die Anzahl der von der Aktualisierung betroffenen Zeilen in einem Fenster an.

In diesem Beispiel wird die Aktualisierung an die Datenbank gesendet und festgeschrieben, wenn sie ausgeführt wird.

Sie können auch Aktualisierungen über einen Cursor ausführen.

• ADO-Transaktionen
• Zeilenaktualisierungen durch einen Cursor mit dem Recordset-Objekt