Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Базы данных и репортинг > Обработать результат запроса

Автор: Yura_Matsuk 18.10.2007, 07:46

Код


 Memo1.Clear;
 ADOQuery1.SQL.Clear;
 ADOQuery1.SQL.Add('SELECT * FROM partners;');
 ADOQuery1.Open;
 ADOQuery1.FindFirst;
 while not ADOQuery1.Eof do begin
  Memo1.Lines.Add(inttostr(ADOQuery1.Fields[0].AsInteger)+' - '+ADOQuery1.Fields[1].AsString+' - '+ADOQuery1.Fields[2].AsString);
  ADOQuery1.FindNext;
 end;
 ADOQuery1.Close;

К базе подключается успешно. Ошибку выдает именно на этапе обработки результатов. Я что-то делаю не так?

Автор: kobra 18.10.2007, 08:40

а какая ошибка?
погодав на кофеинеи гуще, и вот резултат (но в принципе нечего)

Код


 Memo1.Clear;
 ADOQuery1.SQL.Clear;
 ADOQuery1.SQL.Add('SELECT * FROM partners');
 ADOQuery1.Open;
 while not ADOQuery1.Eof do begin
  Memo1.Lines.Add(ADOQuery1.Fields[0].AsString + ' - '+ADOQuery1.Fields[1].AsString+' - '+ADOQuery1.Fields[2].AsString);
  ADOQuery1.Next;
 end;
 ADOQuery1.Close;