|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
||||
|
||||
Можно ли использовать ADO из службы?
Доброго дня. Есть необходимость подключиться к 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; |
#2
|
||||
|
||||
В АДО накручено лихо все, попробуй какие-нибудь сторонние компоненты, которые прямое подключение обеспечивают.
— Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |
#3
|
||||
|
||||
Цитата:
А отчего может быть такая ситуация как у меня? Причем, даже если я на форме попытаюсь выставить в ADOQuery := True, то выползет неизвестная ошибка :-( P.s. хм... создаю оконное приложение - такая же ошибка. Видимо в чем то глюк. Хотя в ConnectionString подключение проходит. Странно... Последний раз редактировалось alexusankov, 28.05.2013 в 12:03. |
#4
|
||||
|
||||
Цитата:
upd: и вот это Цитата:
Код:
Q.Close; Q.SQL.Text := 'SELECT * FROM referent'; try Q.Open; except on E:Exception do ShowMessage('при открытии запроса произошла ошибка: ' + E.Message); end; Поживу - увижу, Доживу - узнаю, Выживу - учту. [P.S.]->Выражая благодарность за помощь - Вы получаете шанс на помощь в следующий раз
Последний раз редактировалось Yurk@, 28.05.2013 в 12:22. |
#5
|
||||
|
||||
[quote=Yurk@]QUOTE]
К сожалению, это не возможно, т.к. работатть не будет.Так и пишет - неизвестная ошибка А вот собственно и она - это происходит, когда я прямо на форме пытаюсь активировать TADOQuery З.ы. Шо значит напрямую? Без ODBC? Последний раз редактировалось alexusankov, 28.05.2013 в 13:31. |
#6
|
||||
|
||||
ищи косяк в настройках подключения и запросе.
третьего не дано) Поживу - увижу, Доживу - узнаю, Выживу - учту. [P.S.]->Выражая благодарность за помощь - Вы получаете шанс на помощь в следующий раз
|