Как считать строку таблицы SQL в массив

[ULR]

Здравствуйте! Помогите пожалуйста, если вам не сложно Такой вопрос: как данные из таблицы в SQL занести в массив? Как организовать цикл? Такой вопрос часто задают, но конкретного ответа я не нашла. Заранее спасибо)

[Аватар]

Примерно так, с вариациями. Из ADOTable ни чем не отличается

procedure TForm2.Button8Click(Sender: TObject);
var i,j: Integer;
    xArray: array of array of Variant;
begin
  ADOQuery1.Last;
  SetLength(xArray,ADOQuery1.RecordCount,ADOQuery1.Fields.Count);
  ADOQuery1.First;
  i:=0;
  while not ADOQuery1.Eof do begin
    for j:=0 to ADOQuery1.Fields.Count-1 do xArray[i,j]:=ADOQuery1.Fields.Fields[j].Value;
    Inc(i);
    ADOQuery1.Next;
  end;
end;

[ULR]

Спасибо, что ответили! Извините, если вопрос глупый, но где в этом коде показать из какой таблицы брать данные?

[Aleksandr_59]

ADOQuery1.Connection.ConnectionStri ng
Содержимое можно посмотреть, поместив на форму одноимённый компонент и подключив его.

[ULR]

Еще раз извините!! но ADOQuery1.Connection.ConnectionStri ng подключено к БД а не к таблице или я что-то не понимаю ( как посмотреть результат считывания??

[Sciv]

Сообщение от ULR

Спасибо, что ответили! Извините, если вопрос глупый, но где в этом коде показать из какой таблицы брать данные?

Конкретно в приведенном коде - нигде. Нужно писать SQL-запрос, в котором указывать, какие данные из какой таблицы брать, и помещать его в ADOquery1.SQL.Text;

Примерно так (запрос выводит данные по всем полям таблицы tablename1):

ADOquery1.Close;
ADOQuery1.SQL.Text:='SELECT * FROM tablename1';
ADOQuery1.Open;

[ULR]

Спасибо большое! Очень помогли!!!