16,748
社区成员
发帖
与我相关
我的任务
分享
adoquery1.sql.clear;
adoquery1.sql.text:='select * from tablename';
adoquery1.open;
while not adoquery1.eof do
begin
adoquery2.sql.clear;
adoquery2.sql.text := 'update tablename set col1=1 where col2=''' + adoquery1.fieldbyname('col1').asstring + '''';
adoquery2.execute;
adoquery1.next;
end
ADOConnection.BeginTrans;
try
ADOConnection.Execute('update ...');
ADOConnection.CommitTrans;
except
ADOConnection.RollbackTrans;
end;