易截截图软件、单文件、免安装、纯绿色、仅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如何备份orcal数据库? - Delphi / 数据库相关

程序使用的是Orcal数据库,想定期(每季度)对数据库进行备份,没啥头绪,请问应该怎么弄?
有什么特殊要求吗,比如要前端界面?
一般用数据库自带的“计划任务”配置一下就够了

没有什么特殊要求。例如,只要 ......

付费求delphi拼音编程 - Delphi / 非技术区

具体要求与报酬QQ729851670
771234717

“拼音编程”是什么意思

引用
“拼音编程”是什么意思
1.给一个字可以显示拼音,多音字的话能显示对应的多个拼音
2.对包含多音字的词语智能识别给出拼音。
3.对一段 ......

磕求C/S源码 - Delphi / 数据库相关

现有paradox数据库使用BDE驱动,拟改为C/S版,增加网络读取数据功能。请哪位大侠,提供源码。
说句不客气的话,用paradox做C/S是自寻死路。
换一个网络数据库

因为不想动大手术,仅能共享几个文件即可。

Da ......

delphi 没有执行界面不显示 - Delphi / 非技术区

我在执行Delphi2010的时候,没有出现执行的界面,求高手帮忙,谢谢


End_rbody_65722921//-->
该回复于2010-05-26 08:24:26被版主删除


对我有用[0]
丢个板砖[0]
引用
举报
管理
TO ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号