спасибо,
ошибку через OnError получил.
Попутно хотел обратить внимание для новичков, если используете
асинхронный режим, то чтение dataset начинайте только после AfterOpen.
Открытие и чтение в теле одной процедуры неправильно.
procedure TForm1.Button2Click(Sender: TObject);
begin
// открытие
ADQuery1.Open;
end;
procedure TForm1.ADQuery1Error(ASender: TObject; const AInitiator: IADStanObject; var AException: Exception);
begin
// обработка ошибок
...
end;
procedure TForm1.ADQuery1AfterOpen(DataSet: TDataSet);
begin
while NOT ADQuery1.Eof do
// чтение из датасета
...
end;
↧