Mega Code Archive
Refresh One ADOQuery Record
<![CDATA[
Title: Refresh One ADOQuery Record
Question: Use with very large dataset result(up to 1000records).
For fast refreshing of current row(record) put this...
Answer:
procedure Tform1.RowRefresh;
var a:string;
begin
ADOQuery2.execSQL; {updated any fields of current record from ADOQuery1 dataset}
with ADOQuery1 do begin {refreshing current record}
a:=fieldbyname('name').asstring; {this field must be primary key!..or not updated from ADOQuery2.}
filter:='name='+a;
filtered:=true;
refresh;
filtered:=false;
Locate('name', a, [loPartialKey]);
end;
end;
]]>