T
tjzxm08
Unregistered / Unconfirmed
GUEST, unregistred user!
var
rs: _Recordset;
begin
rs := qtTempADO.Recordset;
//qtTempADO 为ADOQuery控件,其LockType设为 ltBatchOptimistic
//CursorType 为 ctKeyset
with rs do begin
MoveFirst;
while not Eof do begin
if bCan then Break;//用户中断
Fields['qtValue'].Value := 3;//表中的一个标志位赋值
movenext;
end;
end;
if bCan then rs.CancelUpdate
else rs.UpdateBatch(arAll);
//此句编译不能通过提示Incompatible types: 'TOleEnum' and 'TAffectRecords'
rs := nil;
......
那位大侠能解答原生ADO的缓冲更新问题?
rs: _Recordset;
begin
rs := qtTempADO.Recordset;
//qtTempADO 为ADOQuery控件,其LockType设为 ltBatchOptimistic
//CursorType 为 ctKeyset
with rs do begin
MoveFirst;
while not Eof do begin
if bCan then Break;//用户中断
Fields['qtValue'].Value := 3;//表中的一个标志位赋值
movenext;
end;
end;
if bCan then rs.CancelUpdate
else rs.UpdateBatch(arAll);
//此句编译不能通过提示Incompatible types: 'TOleEnum' and 'TAffectRecords'
rs := nil;
......
那位大侠能解答原生ADO的缓冲更新问题?