begintrans try delete from table1 where... delete from table2 where... delete from table3 where... delete from table4 where... delete from table5 where... delete from table6 where... committrans except rollbacktrans end;
adoconnection1.begintrans; adoquery1.close; try adoquery1.sql.text:='delete from table1 where...' adoquery1.execsql; adoquery1.sql.text:='delete from table2 where...' adoquery1.execsql; adoquery1.sql.text:='delete from table3 where...' adoquery1.execsql; adoquery1.sql.text:='delete from table4 where...' adoquery1.execsql; adoquery1.sql.text:='delete from table5 where...' adoquery1.execsql; adoquery1.sql.text:='delete from table6 where...' adoquery1.execsql; adoconnection.committrans; except adoconnection.rollbacktrans; end;
try
delete from table1 where...
delete from table2 where...
delete from table3 where...
delete from table4 where...
delete from table5 where...
delete from table6 where...
committrans
except
rollbacktrans
end;
adoquery1.close;
try
adoquery1.sql.text:='delete from table1 where...'
adoquery1.execsql;
adoquery1.sql.text:='delete from table2 where...'
adoquery1.execsql;
adoquery1.sql.text:='delete from table3 where...'
adoquery1.execsql;
adoquery1.sql.text:='delete from table4 where...'
adoquery1.execsql;
adoquery1.sql.text:='delete from table5 where...'
adoquery1.execsql;
adoquery1.sql.text:='delete from table6 where...'
adoquery1.execsql;
adoconnection.committrans;
except
adoconnection.rollbacktrans;
end;