多层分布式中的事务怎么写啊?

[xsm7702]

小弟在应用层定义了接口方法,如下,在客户端调用时却不能更新回数据库,
1.请各位帮忙看看是怎么回事?
2.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);

[lvloj]

将所有的active:=true;改成 ExecSQL;

[lanjian]

同意楼上说的，用exec来执行,而不是用active:=true
还有，最好将两次揭交的SQL写成一次提交。
以前我就有过这样的经历，事务未提交，表的中值就取不出来

[xsm7702]

谢谢。 可我这书上没有讲到COM+，各位能不能给我讲解一下如何用COM+做一个事务最好也有简单的代码我看看）
另外，楼上说的两次提交合为一次提交， 如何能做得到啊能不能给出sql语句看看？

[xsm7702]

更正一下,sql语句就不用了,我会,是一时糊涂,别见怪.

[eastliangliang]

procedure Txsm100.turnmoney(var name1, name2, money: OleVariant);
begin
with ADOConnection2 do
begin
try
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('事务执行成功！');
setcomplete;
except
setabort;
showmessage('事务执行失败！');
exit;
end;
end;
end;

你的组件要设置成需要事务的。

[eastliangliang]

多层中建议用COM＋的事务，不过ADO的事务好像也可以用，我怎么觉得begintrans;应该写在try外面啊：）
还是建议用COM+的事务，将组件设置成需要事务的，组件创建时事务即开始，提交用setcomplete，回滚用setabort。

[WGYKING]

同意楼上用COM+，向导自动会创建一个事务型远程数据模块
不过楼主的方法也应该可以，不知为什么，看看什么错误信息？

[wshuo]

直接用SQL的事务

[xsm7702]

谢谢,请问楼上的,组件还需要另外设置什么吗?

[eastliangliang]

在组件管理里设置组件的属性为需要事务。

[xsm7702]

(青苹果),我就是不知道设哪个属性啊.

[eastliangliang]

开始菜单->管理工具->组件服务
然后点开组件服务里的计算机->我的电脑->COM+应用程序->你的COM+应用程序->组件
用右键看你组件的属性->事务，选择需要。

[xsm7702]

谢谢!