Delphi 有关事务的处理 - Delphi / 数据库相关
Delphi(Pascal) code:
procedure TfrmRQZLGL.btnDelete_ZLClick(Sender: TObject);
var
Str1,Str2:string;
begin
if Application.MessageBox('正在删除信息，是否继续？', '提示信息', MB_YESNO +
MB_ICONQUESTION) = IDYES then
begin
Str1 := Format('delete from RQ_ZLZB where BillNo = %s',[qry_ZLZB.FieldByName('BillNo').AsString]);
Str2 := Format('delete from RQ_ZLMXB where BillNo = %s',[qry_ZLZB.FieldByName('BillNo').AsString]);
if not DMMain.conMain.InTransaction then DMMain.conMain.BeginTrans;
try
DMMain.ExecSQLA(Str1);
DMMain.ExecSQLA(Str2);
except
if DMMain.conMain.InTransaction then DMMain.conMain.RollbackTrans;
end;
DMMain.conMain.CommitTrans;
end;
end;
有以上代码，用来删除主表和从表的关联数据，但是 报错了，说 ‘没有活动事务’，望高人指点！
应该是出错后RollbackTrans后再执行CommitTrans报错吧
Delphi(Pascal) code:
try
DMMain.ExecSQLA(Str1);
DMMain.ExecSQLA(Str2);
Except
if DMMain.conMain.InTransaction then DMMain.conMain.RollbackTrans;
end;
DMMain.conMain.CommitTrans;
我是在 Except 里面写的 RollBackTrans 最后CommitTrans的
{
相关问答：
1.我不会英语,下载了个delphi2010,打开以后里面全部是英语,连帮助文件也是英语,有没有汉化版的?
2.下面是装delphi2010的时候装进来的,麻烦解释这些事什么
Embarcadero Delphi and C++ Builder 2010 Database Pack ......
现有paradox数据库使用BDE驱动，拟改为C/S版，增加网络读取数据功能。请哪位大侠，提供源码。
说句不客气的话，用paradox做C/S是自寻死路。
换一个网络数据库
因为不想动大手术，仅能共享几个文件即可。
Da ......
要求很简单，懂DELPHI+MSSQL就可以。。
没经验要求。。工资2K~2.5K，不包吃住，
在外的人慎重考虑，可买社保，
如果想找踏脚板的请一边去，
可以承诺如果能干事，公司业绩不错的时候工资方面一定会有提升，
我� ......
小弟是用Delphi7做的一个小软件，想试试如何制作成在没有Delphi环境下安装我做的小软件，最好是制作成可执行的exe文件。谢谢各位高手了啊
如果使用ado的话，一般可以直接发布，如果使用其他dll或ocx的话，需要安� ......
