Как обновить TQuery не потеряв при этом текущей записи

← →
Ryser (2002-11-05 13:37) [0]

Есть такая процедура
описываю ее в самом начале юнита

procedure RefreshQuery(AdoQuery : TAdoQuery; const FieldsForSearch: String);
var
AList : TList;
AVarArray : Variant;
i : Byte;
begin
AList := TList.Create;
try
AdoQuery.GetFieldList(AList, FieldsForSearch);
AVarArray := VarArrayCreate([0, AList.Count - 1], varVariant);
for i := 0 to Pred(AList.Count) do
AVarArray[i] := TField(AList.Items[i]).AsVariant;
AdoQuery.Close;
AdoQuery.Open;
AdoQuery.Locate(FieldsForSearch, AVarArray, []);
finally
AList.Free;
AVarArray.Free;//тут стояло "р" компилятор ругался-убрал
end;
end;

потом далее вызываю
.....
RefreshQuery(AdoQuery1,"id");
.....

теперь ругается на Invalid Variant Type Conversion
на месте
AdoQuery.Locate(FieldsForSearch, AVarArray, []);

Подскажите, пожалуйста!

← →
BoxTer © (2002-11-05 13:45) [1]

Зачем так усложнять итого нелегкую жизнь...
А так:
procedure RefreshQuery(AdoQuery : TAdoQuery; const FieldsForSearch: String);
var pr:string;
Begin
pr:=ADOQuery.FieldByName(FieldsForSearch).asString;
ADOQuery.Close;
ADOQuery.Open;
ADOQuery.Locate(FieldsForSearch,pr,[...]);
end;
... и все ...

← →
Ryser (2002-11-05 13:51) [2]

Просто генитально! Благодарственное спасибо BoxTer-у!

← →
Johnmen © (2002-11-05 13:58) [3]

у ADOQuery есть св-во Requery - работает быстрее, чем если просто закрыть и открыть заново.

Как обновить TQuery не потеряв при этом текущей записи Найти похожие ветки