[_Hattab_]

Здравствуйте.

Подскажите, если кто знает, как в делфи передать результат выборки (SELECT column_name FROM table_name) в массив? База - MySQL, коннект через ADO.

Спасибо.

[Страдалецъ]

Можно так:

Код:

Var
 Arr: Array of variant;
begin 
 SetLength(Arr,Query1.RecordsCount);
 i := 0;
 while not Query1.eof
 do begin
     Arr[i] := Query1.FieldValues['column_name'];
     Query1.next;
     Inc(i); 
     end;
end;

[_Hattab_]

Говорит, что " Undeclared Identifier: RecordsCount"

Каким образом его объявлять надо?

[Aristarh Dark]

Опечатка - RecordCount

[_Hattab_]

спасибо
вроде заработало
во всяком случае, пока ни на что больше не ругается

[_Hattab_]

рано я порадовался...

постоянно вылетает сообщение
ADOQuery1: cannot perform this operation on a closed dataset

никак не разберусь в чем дело

[Страдалецъ]

А query1 вы хоть выполняете? Данные ведь не с потолка для заполнения массива берутся.

[_Hattab_]

блин...
что-то я уже окончательно запутался...

Код:

procedure TForm1.Button2Click(Sender: TObject);
var i: integer;
       Arr: Array of string;
       str: string;
       begin
     //  i:=1;

      DataModuleUnit.ADOQuery1.Active:=False;
     DataModuleUnit.ADOQuery1.SQL.Text:='SELECT www FROM ats1.qqq';
     DataModuleUnit.ADOQuery1.open;
     DataModuleUnit.ADOQuery1.First;
  while not DataModuleUnit.ADOQuery1.eof do
    begin
    Arr[1]:= DataModuleUnit.ADOQuery1.FieldValues['www'].asstring;
  //     str:= DataModuleUnit.ADOQuery1.FieldValues['www'].asstring;
  str:=Arr[1];
 Edit1.Text:=str;
//DataModuleUnit.ADOQuery1.next;
                     //  Inc(i);
     end;

     end;

Admin: Пользуемся тегами!

процесс тормозится на DataModuleUnit.ADOQuery1.open
с сообщением "Project Project1.exe raised exeption class EOleExeption with message 'Поставщик данных или другая служба вернули состояние E_FAIL' Process stoped"

т.е сейчас пытаюсь просто передать значение поля в Едит1

[Страдалецъ]

Попробуйте переименовать таблицу, заменив точку в ats1.qqq на подчеркивание.

[_Hattab_]

Я вообще к чему веду...

я пытаюсь сделать следующее:
выбрать все поля заданного столбца в массив, затем каждый элемент массива посимвольно разложить в еще один массив. Это нужно для поиска в другой таблице записи по нескольким символам полученного в конце массива

[_Hattab_]

Сообщение от Страдалецъ

Попробуйте переименовать таблицу, заменив точку в ats1.qqq на подчеркивание.

это я проглядел...
я просто ради экспериметна вставил запрос, который выводится в Query Brouser. ats1.qqq - база.таблица
т.е. назв. таблицы - qqq

но вообще то я до этого писал SELECT www FROM qqq
но результат тот-же...

[Страдалецъ]

Может проблема в БД? Что за БД вы используете - Paradox,MsAcess,DBF или вообще Text?

[_Hattab_]

MySQL server 5.0 (локальный)
C делфи через MySQL ODBC connector соединяю

[_Hattab_]

В остальной части программы все запросы работают без проблем.
Правда там я использовал вместо ТADOQuery ТADOCommand.
Но опять же до этого я делал через Query запросы ради эксперимента - тоже все нормально было...

[Страдалецъ]

А вы случайно незабыли заполнить в вашем ADOQuery.Connection?