存储过程解决了,事务却还悬着.我定义的接口方法如下.请各位帮忙看看,为什么不能更新回数据库?
procedure Txsm100.turnmoney(var name1, name2, money: OleVariant);
begin
with ADOConnection2 do
begin
try
begintrans;
with ADOQuery1 do
begin
close;
sql.clear;
sql.add('updata xsm2 set money=money-'+money+' where name like %'+name1+'%');
active:=true;
close;
sql.Clear;
sql.add('updata xsm2 set money=money+'+money+' where name like %'+name2+'%');
active:=true;
end;
showmessage('事务执行成功!');
committrans;
except
rollbacktrans;
showmessage('事务执行失败!');
exit;
end;
end;
end;
其中xsm2(name,money),是表.