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