TADoquery :lockey:ltBatchOptimistic
TAdoconnection的设置都没有什么问题。
我现在往一张表里面添加一批记录,按保存时,把所有新添加的记录事务提交,没有什么问题。
procedure TForm1.Button2Click(Sender: TObject);
begin
try
if not dc.InTransaction then
dc.BeginTrans;
dq.UpdateBatch;
dc.CommitTrans; except
dc.RollbackTrans;
end;
end;但是如果我想取消刚才添加的那些记录,该如何操作(不会时一条一条删除吧)。
我的记录还在内存里,还没有dq.UpdateBatch;该如何来取消添加 刚才记录操作?
procedure TForm1.Button3Click(Sender: TObject);
begin try
if not dc.InTransaction then
dc.BeginTrans;
dq.DeleteRecords;
dc.CommitTrans;
except
dc.RollbackTrans;
end;
end;
TAdoconnection的设置都没有什么问题。
我现在往一张表里面添加一批记录,按保存时,把所有新添加的记录事务提交,没有什么问题。
procedure TForm1.Button2Click(Sender: TObject);
begin
try
if not dc.InTransaction then
dc.BeginTrans;
dq.UpdateBatch;
dc.CommitTrans; except
dc.RollbackTrans;
end;
end;但是如果我想取消刚才添加的那些记录,该如何操作(不会时一条一条删除吧)。
我的记录还在内存里,还没有dq.UpdateBatch;该如何来取消添加 刚才记录操作?
procedure TForm1.Button3Click(Sender: TObject);
begin try
if not dc.InTransaction then
dc.BeginTrans;
dq.DeleteRecords;
dc.CommitTrans;
except
dc.RollbackTrans;
end;
end;
解决方案 »
- delphi7 调用java webservice问题 cxf实现
- 使用BDE连接intebase的数据库,为什么在win2000下面运作正常,在XP下面就运作不起来?
- 求助!!在ADOQurey组件中把SELECT检索到的结果怎样传到DBEdit中?
- 菜鸟问题,出错:列名XXX无效
- 简单问题 在线等!表插入
- 怎么让自定义的属性在Object inspector出现下拉框?
- 关于菜单有问题 高手请来回答
- 200分!有兴趣吗?
- 求助:WnetAddConnection2 建立局域网连接,返回错误:997- 重叠 I/O 操作在进行中
- 十万火急:delphi5 和SQL SERVER 的怪问题!!
- 为什么自定义纸张没有用?我要打印工资条 (
- XP 或者 WIN2000中怎样打印自定义的报表 DELPHI5
if not dc.InTransaction then
dc.BeginTrans;
dq.cancelUpdate;
dc.CommitTrans;
except
dc.RollbackTrans;
end;
end;
也是不可以的呀,我本来就是这样写的。