0152名前は誰も知らない
2020/05/14(木) 20:37:21.72ID:y8SMZ/GD'トランザクションの開始
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