13,825
社区成员
发帖
与我相关
我的任务
分享请教bcb中如何实现sql中的事务处理?
我想在bcb中实现如下sql功能(事务处理),请问如何实现:
begin work;
insert into table1 values(a,b,c,d);
delete from table2 where a="xx";
if (sqlcode==0)
commit work;
else
rollback work;
begin work;
insert into table1 values(a,b,c,d);
delete from table2 where a="xx";
if (sqlcode==0)
commit work;
else
rollback work;
...全文
请发表友善的回复…
发表回复
april_d 2001-08-13
- 打赏
- 举报
gz
hhzh426 2000-09-03
- 打赏
- 举报
关注！
Slash 2000-09-01
- 打赏
- 举报
给你一个用ADO的事务处理例子(Delphi)，TDataBase也是类似
ADOConnection1.BeginTrans;
try
with ADOCommand1 do
begin
Connection:=ADOConnection1;
commandtext:='update [country] set [population]=10000 where [name]=''Venezuela''';//正确的SQL语句
Execute;
CommandText:='Wrong SQL Command';//错误的SQL
Execute;
ADOConnection1.CommitTrans;
end;
except
on E: Exception do
begin
ADOConnection1.RollbackTrans;
ShowMessage(E.Message);
end
end;
end;
ADOConnection1.BeginTrans;
try
with ADOCommand1 do
begin
Connection:=ADOConnection1;
commandtext:='update [country] set [population]=10000 where [name]=''Venezuela''';//正确的SQL语句
Execute;
CommandText:='Wrong SQL Command';//错误的SQL
Execute;
ADOConnection1.CommitTrans;
end;
except
on E: Exception do
begin
ADOConnection1.RollbackTrans;
ShowMessage(E.Message);
end
end;
end;
yao_yuan 2000-08-28
- 打赏
- 举报
用TDataBase的StartTransaction(),Commit()等方法
