假如我用兩條刪除語句。分別寫在兩個query控件當。
比如:
form1.Database1.StartTransaction;
query5.SQL.Add('delete from bjd where bjd1="'+edit1.Text+'"');
query5.ExecSQL;
query2.Close;
query2.SQL.Clear;
query2.SQL.Add('select * from bjds where bjds2="'+edit1.Text+'"');
try
query2.Open;
except
query2.ExecSQL;
end;
query2.Close;
query2.SQL.Clear;
query2.SQL.Add('delete from bjds where bjds2="'+edit1.text+'"');
query2.ExecSQL;
try
form1.Database1.Commit;
except
form1.Database1.Rollback;
end;
其中的事物會不會有作業。我感覺它們好像沒有作用一樣。還請各位大哥指點一下。
比如:
form1.Database1.StartTransaction;
query5.SQL.Add('delete from bjd where bjd1="'+edit1.Text+'"');
query5.ExecSQL;
query2.Close;
query2.SQL.Clear;
query2.SQL.Add('select * from bjds where bjds2="'+edit1.Text+'"');
try
query2.Open;
except
query2.ExecSQL;
end;
query2.Close;
query2.SQL.Clear;
query2.SQL.Add('delete from bjds where bjds2="'+edit1.text+'"');
query2.ExecSQL;
try
form1.Database1.Commit;
except
form1.Database1.Rollback;
end;
其中的事物會不會有作業。我感覺它們好像沒有作用一樣。還請各位大哥指點一下。
解决方案 »
- 一个纠结的问题
- StatusBar的一个小问题
- 怎么向PChar类型的变量填充一组含有$00的字符的字符串
- 如何在进程A里通过发送消息的形式改变另一个进程b的鼠标形状?
- 有dbgrid中click滚动条的相关事件吗?
- 再问一个:如何获取窗体标题栏的高度?
- delphi如何生成安装文件
- 关于时间的问题(低级)
- 如何用delphi程序实现将access数据库导入sql server 2000中
- toolbar的toolbutton设置哪个属性可以让Caption和Image位置上是左右关系?
- 那里可以下载《Delphi 5.X ADO_MTS_COM》
- 这是什么意思,ConnectionOpen(create())报错
form1.Database1.StartTransaction;
try
query5.SQL.Add('delete from bjd where bjd1="'+edit1.Text+'"');
query5.ExecSQL;
query2.Close;
query2.SQL.Clear;
query2.SQL.Add('select * from bjds where bjds2="'+edit1.Text+'"');
try
query2.Open;
except
query2.ExecSQL;
end;
query2.Close;
query2.SQL.Clear;
query2.SQL.Add('delete from bjds where bjds2="'+edit1.text+'"');
query2.ExecSQL;
except
form1.Database1.Rollback;
end;
form1.Database1.Commit;