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的
{
相关问答：
本人今年17岁,非常喜欢delphi,但由于基础有限,从网上下载资料学习,看得晕死了,都不知道在说什么!所以今天在此发帖,广邀各位delphi爱好者帮助我!如果本人他日有幸学得delphi编程,定当把源代码发布出来,在此一表感谢!� ......
如何使新增的sheet在前一个sheet后，excel默认有3个sheet,如我新增一个sheet4,怎样使它是插在sheet3后呢，而不是插在sheet1前？
右键不行吗？
Worksheets.Add 方法
该方法用于新建工作表。
Function Ad ......
function ReadTime(intDevno: Integer; var strGet: Pchar): Integer; stdcall; external 'ast.dll'; //读取日期时
bcb调用delphi 的dll这句在bcb中如何转化。
应该是C/C++ code:
int __stdcall ReadTime(int in ......
//adoquery1.SQL.add('insert into 学生书费历史库(班级名,书费,领书书费,结余书费,经办人,操作员,最后修改时间,说明,班级人数) values (:classname,:s0,0,:s1,:s2,:s3,date(),:s4,:s5)');
adoquery1.SQ ......
小弟是用Delphi7做的一个小软件，想试试如何制作成在没有Delphi环境下安装我做的小软件，最好是制作成可执行的exe文件。谢谢各位高手了啊
如果使用ado的话，一般可以直接发布，如果使用其他dll或ocx的话，需要安� ......
