■結果を返さないSQL文の実行

'トランザクションの開始
rdoConnection_obj.Execute "BEGIN TRANSACTION sp", rdExecDirect

'結果を返さないSQL文の実行
rdoConnection_obj.Execute "INSERT INTO table1(field1,field2) VALUES('aaaaa','bbbbb');"

'トランザクションの終了
rdoConnection_obj.Execute "COMMIT TRANSACTION sp", rdExecDirect

'ロールバック
'rdoConnection_obj.Execute "ROLLBACK TRANSACTION sp", rdExecDirect

■結果を返すSQL文の実行

Dim resultset_obj As rdoResultset
'キーセットタイプでレコードを取得
Set resultset_obj = rdoConnection_obj.OpenResultset("Select * From table1;", rdOpenKeyset, rdConcurLock)

'セットの先頭に移動
resultset_obj.MoveFirst
Do Until resultset_obj.EOF 'EOFまでループ
'セットの内容を表示
Debug.Print resultset_obj![field1], resultset_obj![field2]
resultset_obj.MoveNext '次の行に移動
Loop
resultset_obj.Close