Показать сообщение отдельно
  #8  
Старый 17.05.2009, 18:23
_Hattab_ _Hattab_ вне форума
Прохожий
 
Регистрация: 17.05.2009
Сообщения: 17
Репутация: 10
По умолчанию

блин...
что-то я уже окончательно запутался...
Код:
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
Ответить с цитированием