close;
sql.clear;
sql.add(mysql);
module.modulefrm.ADOConnection1.BeginTrans;
memo1.lines.add(sql.text);
try
execsql;
module.modulefrm.ADOConnection1.CommitTrans;
except
module.modulefrm.ADOConnection1.RollbackTrans;
raise;
exit;
end
sql.clear;
sql.add(mysql);
module.modulefrm.ADOConnection1.BeginTrans;
memo1.lines.add(sql.text);
try
execsql;
module.modulefrm.ADOConnection1.CommitTrans;
except
module.modulefrm.ADOConnection1.RollbackTrans;
raise;
exit;
end
是不是别的地方错了