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的
{
相关问答：
程序使用的是Orcal数据库，想定期（每季度）对数据库进行备份，没啥头绪，请问应该怎么弄？
有什么特殊要求吗，比如要前端界面？
一般用数据库自带的“计划任务”配置一下就够了
没有什么特殊要求。例如，只要� ......
你们遇到这个问题吗？使用delphi 的时候，来了一封信。说要我教版权费。我昏倒。怎么办？
不能怎么办,一是理他们 2是不理他们
你放话叫他们来公司查。。。看他们有胆没？
不理他们就是，当时也问我们公司要的 ......
在网上看到很多人写程序代码,写的代码每一行都是要么就空一个空格,要么就空好几个,这个有规定吗?怎么看?
以下是我在网上找的一段程序代码
===================================================================== ......
delphi代码变成bcb后太闪,都是在 FormPaint 方法中
delphi代码:::
var
i: integer;
rgn: HRGN;
r: TRect;
begin
with Canvas do begin
//利� ......
小弟是用Delphi7做的一个小软件，想试试如何制作成在没有Delphi环境下安装我做的小软件，最好是制作成可执行的exe文件。谢谢各位高手了啊
如果使用ado的话，一般可以直接发布，如果使用其他dll或ocx的话，需要安� ......
