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的
{
相关问答：
请教各路高手。武林前辈。我将B.EXE做成资源文件，然后加到123.dll中。用A.EXE来调用123.dll中的B.EXE
请各位前辈帮忙指教下。A.exe如何来调用dll中的exe？代码又该如何写？
无人回答？
做成资源� ......
具体要求与报酬QQ729851670
771234717
“拼音编程”是什么意思
引用
“拼音编程”是什么意思
1.给一个字可以显示拼音，多音字的话能显示对应的多个拼音
2.对包含多音字的词语智能识别给出拼音。
3.对一段 ......
以前中间站是电脑通过串口控制的，现在改成了USB接口，请问要怎么做啊？求高手指点一下
是usb转串口吗？那应该还是可以按串口操作的，只是速度不能太高
如果不是usb转串口，请查阅usb驱动的sdk说明。
这个是� ......
1.我不会英语,下载了个delphi2010,打开以后里面全部是英语,连帮助文件也是英语,有没有汉化版的?
2.下面是装delphi2010的时候装进来的,麻烦解释这些事什么
Embarcadero Delphi and C++ Builder 2010 Database Pack ......
我在执行Delphi2010的时候，没有出现执行的界面，求高手帮忙，谢谢
End_rbody_65722921//-->
该回复于2010-05-26 08:24:26被版主删除
对我有用[0]
丢个板砖[0]
引用
举报
管理
TO ......
