In diesem Abschnitt wird eine einfache Routine beschrieben, die eine einfache SQL-Anweisung an die Datenbank sendet.
Sie können diese Routine ausprobieren, indem Sie eine Befehlsschaltfläche namens Command2 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, eine Meldung im Fenster "Datenbankservermeldungen" anzuzeigen, und trennen Sie die Verbindung dann.
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 |
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.
Weitere Hinweise zur Verwendung von Transaktionen in ADO finden Sie unter Transaktionen verwenden.
Sie können auch Aktualisierungen über einen Cursor ausführen.
Weitere Hinweise finden Sie unter Daten mit einem Cursor aktualisieren.
Kommentieren Sie diese Seite in DocCommentXchange. Senden Sie uns Feedback über diese Seite via E-Mail. |
Copyright © 2009, iAnywhere Solutions, Inc. - SQL Anywhere 11.0.1 |