8楼正解,实际用起来并不困难。 ADOConnection1.BeginTrans; //开始事务 try with adoquery1 do begin close; //插入记录 sql.clear; sql.add('insert into tablename(.......) value(.......) '); execsql; end ADOConnection1.CommitTrans; //提交事务 except ADOConnection1.RollbackTrans //回滚 end;
ADOConnection1.BeginTrans; //开始事务
try
with adoquery1 do
begin
close; //插入记录
sql.clear;
sql.add('insert into tablename(.......) value(.......) ');
execsql;
end
ADOConnection1.CommitTrans; //提交事务
except
ADOConnection1.RollbackTrans //回滚
end;