Delphi + sql

[nactyx]

И снова здравствуй, форум. Мне нужна твоя помощь.

Описываю ситуацию.
1. Что мы имеем в делфи:

ArrayData: Variant;
RowCount, ColCount: Integer;

  // Размеры выводимого массива данных

  RowCount := 1;
  ColCount := 9;

  // заполняем массив
  for i := 1 to RowCount do
    for j := 1 to ColCount do
      ArrayData[i, j] := 'значение';

2. SQL
Таблица (жирным выделил шапку, для наглядности):

A b c d e f g h i

1 1 1 1 1 1 1 1 1
2 2 2 2 2 2 2 2 2
3 3 3 3 3 3 3 3 3

Что мне нужно? Мне необходимо, результат запроса "SELECT * FROM table" перенести в мой массив. В интернете поискал, попробовал предлагаемые - не получилось. Может конечно руки кривые, но тем не менее. Рассчитываю на Вашу помощь. Заранее благодарю.

[Stilet]

А можно пробы увидеть? Хотя бы чтоб знать что советовть. А то ведь можно такого напредлагать...

[Serge_Bliznykov]

примерно так:

var
  ArrayData: array of array of Integer;
  i, j : integer;
begin

  ADOQuery1.Close;
  ADOQuery1.SQL.Text := 'SELECT * From ВашаТаблица';
  ADOQuery1.Open;
  
  if ADOQuery1.RecordCount=0 then ShowMessage('Нет записей в таблице')
  else begin
    SetLength(ArrayData, ADOQuery1.RecordCount, ADOQuery1.FieldCount);
    for i:=0 to ADOQuery1.RecordCount-1 do begin
      for  j:=0 to ADOQuery1.FieldCount-1 do
         ArrayData[i,j] := ADOQuery1.Fields[j].AsInteger;
      ADOQuery1.Next;
    end;
  end;

  ADOQuery1.Close; 
....

p.s. ну, можно и Variant использовать. Тогда нужно вместо SetLength использовать VarArrayCreate с нужными параметрами...

[nactyx]

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

А можно пробы увидеть? Хотя бы чтоб знать что советовть. А то ведь можно такого напредлагать...

А что подразумевается под пробами? Примеры моих попыток?


Serge_Bliznykov, доберусь до работы и попробую, спасибо!

[Stilet]

ADOQuery1.RecordCount

А вот с этим я бы был поаккуратнее.

что подразумевается под пробами? Примеры моих попыток?

Ну а что же еще? )

[Serge_Bliznykov]

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

А вот с этим я бы был поаккуратнее.

Да, согласен, RecordCount не всегда ведёт себя адекватно.
Но, в качестве начальной отправной точки вполне можно попробовать. А дальше уже надо смотреть.
Например, можно железобетонный цикл замутить вида:

ADOQuery1.Open;
while not ADOQuery1.EOF do begin
   <делаем что надо>
   ADOQuery1.Next; // переходим к следующей записи в наборе данных
end;

[nactyx]

Сделал я вот так:

ArrayData: Variant;

  ADOQuery1.Close;
  ADOQuery1.SQL.Text := 'SELECT * FROM dbo.test';
  ADOQuery1.Open;

  if ADOQuery1.RecordCount = 0 then ShowMessage('Нет записей в таблице')
  else begin
    ArrayData := VarArrayCreate([0, ADOQuery1.RecordCount, 0, ADOQuery1.FieldCount], varVariant);
    for i := 0 to ADOQuery1.RecordCount - 1 do begin
      for  j := 0 to ADOQuery1.FieldCount - 1 do
         ArrayData[i, j] := ADOQuery1.Fields[j].AsInteger;
      ADOQuery1.Next;
    end;
  end;

  ADOQuery1.Close;

И получил именно то, что хотел. Огромное Вам спасибо!