易截截图软件、单文件、免安装、纯绿色、仅160KB

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的
{


相关问答:

DELPHI这种情况怎么办? - Delphi / Windows SDK/API

就是一个服务端和一个客户端,里边有一些共用单元 ,我在 工程的SEARCH PATH里设置的路径,
里边有个结构体,我在服务端打开,加了成员,但是我在客户端其他单元访问不到我新加的,我在客户端打开那个单元,确实加 ......

delphi怎么控制USB - Delphi / VCL组件开发及应用

以前中间站是电脑通过串口控制的,现在改成了USB接口,请问要怎么做啊?求高手指点一下
是usb转串口吗?那应该还是可以按串口操作的,只是速度不能太高

如果不是usb转串口,请查阅usb驱动的sdk说明。

这个是 ......

delphi书写格则? - Delphi / 非技术区

在网上看到很多人写程序代码,写的代码每一行都是要么就空一个空格,要么就空好几个,这个有规定吗?怎么看?
以下是我在网上找的一段程序代码
===================================================================== ......

Delphi for PHP - Delphi / 网络通信/分布式开发

还有朋友使用 Delphi for PHP 的? 在此论坛上这方面信息相当少,有的话可以交下朋友,人多走得稳,走得远。
QQ909992998 
DELPHI 还是不错的,DELPHI FOR PHP 如果之前是用DELPHI 开发工具的话 思路都是顺 ......

Delphi 程序如何发布 - Delphi / 数据库相关

小弟是用Delphi7做的一个小软件,想试试如何制作成在没有Delphi环境下安装我做的小软件,最好是制作成可执行的exe文件。谢谢各位高手了啊

如果使用ado的话,一般可以直接发布,如果使用其他dll或ocx的话,需要安 ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号