CancelBatch怎麼執行的,我在程序中刪除的時候用了,UpdateBatch,可是我修改了另外的紀錄的時候,我用了CancelBatch給取消掉,結果,唉,刪除的紀錄居然顯示出來了,請問大家怎麼解決,不要告訴我說用Cancel來取消就可以了。其它的方法多提供最好,關鍵是UpdateBatch和CancelBatch是怎麼執行的。希望大家幫忙,謝謝。數據控件TAdoDataSet
解决方案 »
- 关于delphi监控浏览器
- 为什么这样还是不对啊。。。。
- adoquery问题,DBGRID显示不了任何数据
- DBGrid能不能实现这个?
- 辽宁沈阳程序员请进?
- 谁有Dbtreeview
- 我在PageControl上放置一个TWebBrowser,想在新开窗口时在后台打开,但是后台打开的页标签的Caption属性要为那个网页的Name!怎么办?
- 关于Tpersistent.assign的问题?
- To Kingron问一个窗口移动的问题(第二次,网站链接出错了)
- vc,vb,java等语言与delphi区别在那里?
- 请教savedialog,opendialog和表的相关操作
- listview里的checkboxes可以改变位置吗?还样样式
在删除前用
if Not dmDate.ADOConn.InTransaction then
dmDate.ADOConn.BeginTrans;
在删除后用
UpdateBatch
if Not dmDate.ADOConn.InTransaction then
dmDate.ADOConn.CommitTrans;
当ADO从数据源取得数据之后,客户端对于所有数据的修改都是暂时储存在客户端的缓存中,而不是立刻更新数据源中.使用BatchUpdata的优点:
客户端和数据源之间不会产生密切的互动,因此可以降低数据源的负荷。
另外可以减少网络的Roundtrip,在拥有大量客户端的应用系统中是非常有帮助的。
由于BatchUpdata是把客户端对于数据的修改暂时储存在客户端内存中,因此它对于数据的修改动作非常快速,只
是在最后把所有的修改更新回数据源时才需要多的一些的时间。使用BatchUpdata的一些必要设置:
Crusor属性要为Static或KeySet
LockType属性为BatchOptimistic
执行的SQL命令必须是Select
除了这些之外.CursorLocation也是我们要考虑的设定,在这建意设定为clUseClient.只有ADO进入BatchUpdate模式时,客户端中数据才真正更新回数据源中.
UpdateBatch方面接受一个参数,这个参数代表客户端要把哪些修改的数据更新回数据源中.
procedure UpdateBatch(AffectRecords: TAffectRecords = arAll);
上面是UpdateBatch的方法原型
UpdateBatch参数说明
arCurrent 只把目前记录的修改更新回数据源之中
arFiltered 只把符合过滤条件的数据的修改更新回数据源之
arAll 把所有数据的修改更新回资来源之中(默认参数)
arAllChapters 更新所有被影响到的chapters (ADO chapters)FilterGroup在BatchUpdate模式下的使用.
FilterGroup 里面的属性值
fgUnassigned 指定不使用任何的过滤器来过滤数据
fgNone 移去任何的过滤器,让所有的数据都显示出来。也可以将Filtered属性设为False;
fgPendingRecords 只显示被修改过但尚未更新回数据源的数据或被修改过但尚未被取消更新的数据
fgAffectedRecords 只显示受到上一次更新回数据源影响的数据
fgFetchedRecords 只显示在目前更新缓存之中的数据。这些数据是在上一次从数据源取得之后所有储存在客户端的数据
ffgPredicate 显示刚被删除的数据
fgConflictingRecords 只显示被修改过但当更新回数据源时发生错误的数据BatchUPdate除了具备过滤数据功能之年,还可以让我们检查当前每一条数据的状态,状态是由ADO数据集的UpdateStatus方法
返回的数值得到.
UpdateStatus返回值说明
usUnmodified 目前这笔数据没有被修改过
usModified 目前这笔数据已经被修改过
usInserted 这笔数据是新增的数据
usDeleted 这笔数据已经被删除了
例:
procedure TForm1.ButtonClick(Sender: TObject);
var
us: TUpdateStatus;
begin
us := ADODataSet1.UpdateStatus;
if (us = usModified) then
showmessage('当前记录已经被修改过.')
end;