易截截图软件、单文件、免安装、纯绿色、仅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 / 非技术区

你们遇到这个问题吗?使用delphi 的时候,来了一封信。说要我教版权费。我昏倒。怎么办?
不能怎么办,一是理他们 2是不理他们

你放话叫他们来公司查。。。看他们有胆没?

不理他们就是,当时也问我们公司要的 ......

delphi - Delphi / 语言基础/算法/系统设计

本人今年17岁,非常喜欢delphi,但由于基础有限,从网上下载资料学习,看得晕死了,都不知道在说什么!所以今天在此发帖,广邀各位delphi爱好者帮助我!如果本人他日有幸学得delphi编程,定当把源代码发布出来,在此一表感谢! ......

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

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

delphi 新增sheet问题 - Delphi / VCL组件开发及应用

如何使新增的sheet在前一个sheet后,excel默认有3个sheet,如我新增一个sheet4,怎样使它是插在sheet3后呢,而不是插在sheet1前?
右键不行吗?

Worksheets.Add 方法 
该方法用于新建工作表。
Function Ad ......

Delphi 排列组合 - Delphi / 语言基础/算法/系统设计

比如 4,6,8,12,16,17,20,28,29,30,31这几个数中取8个数
怎么得出 这组数可以组成哪些组合?
穷举法

引用
比如 4,6,8,12,16,17,20,28,29,30,31这几个数中取8个数
怎么得出 这组数可以组成 ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号