oo4o - DDL、DML、トランザクション制御文を実行する

OraDatabaseオブジェクトのExecuteSQLメソッドを使用して、DDL・DML・トランザクション制御文を実行することができます。

Private Sub CommandButton1_Click()

    Dim OraSession As Object
    Dim OraDatabase As Object


    On Error Resume Next
    Set OraSession = CreateObject("OracleInProcServer.XOraSession")
    Set OraDatabase = _
        OraSession.OpenDatabase("sampleDB", "scott/tiger", 0)
    If Err.Description <> "" Then
        MsgBox Err.Description, vbOKOnly + vbCritical, "接続エラー"
        Exit Sub
    End If

    Dim rowcount As Integer
    rowcount = _
        OraDatabase.ExecuteSQL("insert into mydatabase values('ABC', 1000)")
    If Err.Description <> "" Then
        MsgBox Err, vbOKOnly + vbExclamation, "エラー"
        Exit Sub
    Else
        MsgBox rowcount & "件の処理を行いました", vbOKOnly, "TEST"
    End If

    Set OraDynaset = Nothing
    Set OraSession = Nothing
    Set OraDatabase = Nothing

End Sub

上記のコードを実行するとmydatabaseテーブルにレコードが追加され、追加件数（１件）を取得することができる。同じ方法でupdate,delete以外にもDDLやトランザクション制御文も実行することができる。DDL・トランザクション制御文の場合、レコードを処理していないので戻り値は必ず０となる