[alexusankov]

Доброго дня. Есть необходимость подключиться к MySQL из службы.
1. Скачан драйвер для MySQL
2. Создан системный DNS
3. На форму положено ADOConnection и ADOQuery
4. В ADOConnection забита ConnectionString (тест проходит успешно), LoginPromt := False; В ADOQuery стоит Connection := AdoConnection.
Все как обычно.
Но этот код - не работает, глушит службу и ОС ее выключает :

Код:

procedure TTTsRTM.LoadSQL;
var Answer : TStringList;
begin
  Answer := TStringList.Create; 
  Answer.Add('Hello'); 
  Q.SQL.Clear;  
  Q.SQL.Text := 'SELECT * FROM referent'; 
  Q.Open;   // Вот тут программа падает
  while NOT Q.Eof do begin
    Answer.Add(Q.FieldValues['R.ObjectName'] + ',' + Q.FieldValues['t8.AValue'] + ',' + Q.FieldValues['t8.Stt']);
    Q.Next;
  end;
  Answer.SaveToFile('c:\logsss.txt');
  Q.Close;
end;

Что я делаю не так?

[M.A.D.M.A.N.]

В АДО накручено лихо все, попробуй какие-нибудь сторонние компоненты, которые прямое подключение обеспечивают.

[alexusankov]

Сообщение от M.A.D.M.A.N.

В АДО накручено лихо все, попробуй какие-нибудь сторонние компоненты, которые прямое подключение обеспечивают.

У меня Turbo Delphi, с установкой компонентов могут возникнуть проблемы..
А отчего может быть такая ситуация как у меня?
Причем, даже если я на форме попытаюсь выставить в ADOQuery := True, то выползет неизвестная ошибка :-(
P.s. хм... создаю оконное приложение - такая же ошибка. Видимо в чем то глюк. Хотя в ConnectionString подключение проходит. Странно...

[Yurk@]

то выползет неизвестная ошибка :-(

отчего ж она неизвестная то? )) ... ее просто нужно прочитать и превести)) и станет она "известной" )

upd: и вот это

Код:

  Q.SQL.Clear;  
  Q.SQL.Text := 'SELECT * FROM referent'; 
  Q.Open;   // Вот тут программа падает

было бы неплохо заменить на

Код:

  Q.Close;  
  Q.SQL.Text := 'SELECT * FROM referent';
  try 
    Q.Open;
  except
    on E:Exception do 
      ShowMessage('при открытии запроса произошла ошибка: ' + E.Message);
  end;

[alexusankov]

[quote=Yurk@]QUOTE]
К сожалению, это не возможно, т.к. работатть не будет.Так и пишет - неизвестная ошибка
А вот собственно и она - это происходит, когда я прямо на форме пытаюсь активировать TADOQuery
З.ы. Шо значит напрямую? Без ODBC?

[Yurk@]

ищи косяк в настройках подключения и запросе.
третьего не дано)