‘SQL文(SELECT)を編集する ‘「FOR UPDATE NOWAIT」で行ロックを指定。 ‘バッチが動作してないときは「FOR UPDATE」 strSql = “SELECT * FROM emp WHERE empno = 5555” & _ “FOR UPDATE NOWAIT”
‘ダイナセットを作成し、データの読み込みを行う ‘データの読み込みと行ロックを行う Set OraDaynaset = OraDatabase.DbCreateDynaset(strSql, ORADYN_ORAMODE)
‘<★実際はここで検索した行が既に削除されてないか、又は必要であれば ‘更新カウントで、他のPCで更新されてないことを確認する。★> ‘更新カウントとは各テーブルに追加した数値項目。排他制御に使用
‘SQL文(DELETE)を編集する strSql2 = “DELETE FROM emp WHERE empno = 5555”
‘SQL文を実行する lngCnt = OraDatabase.ExecuteSQL (strSql2) ‘実行結果として処理したレコード(行)件数が戻される
‘※複数行のロック更新はサンプルコーディングを参照 |
OO4Oコーディング標準(VB)
初期登録日: 2003年11月12日
最終更新日: 2008年01月26日
< Home ヘ戻る >

ブラウザ画面の文字サイズを変更するショートカットキー
- [ CTRL ] + [ + ] : 文字を大きく
- [ CTRL ] + [ – ] : 文字を小さく
Shortcut Keys
- [ CTRL ] + [ + ] : Up the font size
- [ CTRL ] + [ – ] : Down the font size
|
OO4O(Oracle Objects for OLE)でVisual Basic 6 からOracleデータベースへアクセス