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的
{
相关问答：
已知Python 中：
s = unicode("测试", "gb2312")
s = u'\u6d4b\u8bd5'
print s
测试
在Delphi里面如何将\u6d4b\u8bd5这样的还原成Gb2312的汉字呢？
找到个方法
......
以前中间站是电脑通过串口控制的，现在改成了USB接口，请问要怎么做啊？求高手指点一下
是usb转串口吗？那应该还是可以按串口操作的，只是速度不能太高
如果不是usb转串口，请查阅usb驱动的sdk说明。
这个是� ......
在网上看到很多人写程序代码,代码的每一行要么就空一个空格,要么就空好几个,有的还要另起一行,这个有规定吗?要怎么写?
难道不能怎样写吗?我打个比方,(.代表程序代码)
..............................
......... ......
还有朋友使用 Delphi for PHP 的？ 在此论坛上这方面信息相当少，有的话可以交下朋友，人多走得稳，走得远。
QQ909992998
DELPHI 还是不错的，DELPHI FOR PHP 如果之前是用DELPHI 开发工具的话 思路都是顺� ......
要求很简单，懂DELPHI+MSSQL就可以。。
没经验要求。。工资2K~2.5K，不包吃住，
在外的人慎重考虑，可买社保，
如果想找踏脚板的请一边去，
可以承诺如果能干事，公司业绩不错的时候工资方面一定会有提升，
我� ......
