掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
１トランザクションでの更新数制限を変更するには？ (ID：5214)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
Queryですか？ てっきり、以下のようなことを想定していました。 procedure AThread.AProc ; var cnt: Integer; begin Table1.Open; Table1.LockTable(ltWriteLock); Database1.TransIsolation := tiDirtyRead; Database1.StartTransaction; try { for cnt := 0 to 256 do begin // ↓Query1(TQuery)にはＳＱＬをセットしておきパラメータ // を変更して使用しています。 Query1.close; Query1.ParamByName('PItem').AsString := 'Item'; Query1.ParamByName('PKey').AsInteger := cnt; // ↓256件目でエラー Query1.ExecSQL; end; } for cnt:=0 to 999 do begin Table1.EditKey; Table1.FieldByName('Key').AsInteger := cnt; if Table1.GotoKey then begin Table1.Edit; Table1.FieldByName('Item').AsString := 'Item'; Table1.Post; end; end; Database1.Commit; Table1.UnLockTable(ltWriteLock); Table1.Close; except Database1.Rollback; Table1.UnLockTable(ltWriteLock); Table1.Close; end; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.