//加数据库事务
dm.ADOConn.CommitTrans;//mssql库
ADOQ.Close;
// showmessage('你已成功新建一个客户!');
except
dm.ADOConn.RollbackTrans;
ADOQ.Close;
exit;
end;
dm.ADOConnOrc.BeginTrans;//oracle9i
try
with dm.ADOQAdd do
begin
if active then
close;
sql.Clear;
sql.Add(SQL_PAT_MASTER);
prepared;
active;
ExecSQL;
end;
dm.ADOConnOrc.CommitTrans;
dm.ADOQAdd.Close;
showmessage('你已成功新建一个客户!');
except
dm.ADOConnOrc.RollbackTrans;
dm.ADOQAdd.Close;
exit;
end;
dm.ADOConn.CommitTrans;//mssql库
ADOQ.Close;
// showmessage('你已成功新建一个客户!');
except
dm.ADOConn.RollbackTrans;
ADOQ.Close;
exit;
end;
dm.ADOConnOrc.BeginTrans;//oracle9i
try
with dm.ADOQAdd do
begin
if active then
close;
sql.Clear;
sql.Add(SQL_PAT_MASTER);
prepared;
active;
ExecSQL;
end;
dm.ADOConnOrc.CommitTrans;
dm.ADOQAdd.Close;
showmessage('你已成功新建一个客户!');
except
dm.ADOConnOrc.RollbackTrans;
dm.ADOQAdd.Close;
exit;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货