delphi如何实现回滚部分事务

[wzyjkd]

小弟求救：
delphi中如何设置中段点，从而可以回滚部分事务？
或者delphi能不能实现这个功能呢？

急急急急急急急！！！
拜托！！！

[jinjazz]

oracle本来就支持嵌套事务的，客户端还是算了吧

[y740504]

ado.begintran
.....
ado.committran
....
ado.rollocktran
具体写法我把单词没有记住

[chw_csdn_chw]

最好把业务逻辑等封装在存储过程中，在存储过程中实现回滚。
下面是一个sybase的存储过程。当插入数据失败后，回滚。
create procedure Ps_insert_log
(
@time date,
@user_id smallint,
@ip_addr varchar(20),
@content varchar(1024),
@spec_id smallint,
@action_point varchar(32),
@oper_id smallint
)
as
declare
@errmsg varchar(255)
begin
begin tran
insert into Tsi_log(time,user_id,ip_addr,content,spec_id,
action_point,oper_id) values (@time,@user_id,@ip_addr,@content,@spec_id,@action_point,@oper_id)
if (@@error<>0)
begin
select @errmsg='增加日志信息出错 ！'
goto here
end


commit tran
select 0
return
here:
raiserror 40001 @errmsg
rollback tran --回滚
select 1
return
end

[aiirii]

>>回滚部分事务
什么事务？ 数据库？还是？

[NightCloud]

使用TDataBase控件，他有startTransction,commit,rollback等事务方法，详见delphi帮助

[wzyjkd]

后台用的是oracle!
想做一个模拟操作！在前台能实现吗？也就是不提交数据，最后做数据的回滚。
但是有些情况需要回滚一部分数据。可以吗？
拜托！

[must0001]

在SQL SERVER2000中见过设置回滚标识点的，但是ORACLE就不知道了

[NightCloud]

database1.startTransaction;
try
query1.close;
query1.sql.text:='insert into t1 values(1)';
query1.execute;
finally
database1.rooback;
end;
query1使用database1和数据库相连

[wzyjkd]

也就是一个大的事务中怎么回滚一部分数据。用delphi实现。
可以吗？
求助！！！！！

[wzyjkd]

呵呵。看来还是不行啊。
begintrans
......
rollbacktrans
之间不出现comminttrans

[lvjack]

事务要看数据库的支持，跟是否delphi没关系

[todouwang]

事物处理不如放在服务器端，需要包含的操作放在
begin tran 和commit tran之间可以了
要回滚的话，rollback tran

[Thinbug]

ADOConnection1.BeginTrans;
try
ADOQuery1.ExecSQL;
ADOConnection1.CommitTrans;
except
ADOConnection1.RollbackTrans;
end;