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 プロパティを update 文に、ActiveConnection プロパティを現在の接続に設定します。次に update 文を実行し、この更新で影響を受けるローの数をウィンドウに表示します。

この例では、更新はデータベースに送られ、実行と同時にコミットされます。

ADO でのトランザクションの使用については、トランザクションの使用を参照してください。

カーソルを使用して更新を実行することもできます。

詳細については、カーソルによるデータの更新を参照してください。