Для написания сервиса использовал приведенный здесь пример Сергея Мерзликина VB6SVC.

Можно ли (и как) из сервиса "законектиться" через ODBC к БД (MS SQL). Что-то типа:

Set AdoConn = New ADODB.Connection
Set AdoCmd = New ADODB.Command

AdoConn.ConnectionString="DSN=......"
AdoConn.Open
AdoCmd.ActiveConnection=AdoConn

AdoCmd.CommandText="Select ....."
AdoCmd.CommandType=....
AdoCmd.Execute

и т.д.

IMOLДля написания сервиса использовал приведенный здесь пример Сергея Мерзликина VB6SVC.

Да, прошу прощения, вот ссылка на пример:

http://www.sql.ru/forum/actualthread.aspx?tid=178105&hl=vb6svc

Я, наверное, плохо изложил проблему или немного туплю... :)

Проблема в следующем. При подстановке рабочего кода в сервис, последний при запуске сообщает, что "Процесс был неожиданно завершен (ош.1067)". Я думаю, проблема в возможности использования объекта ADODB, а не в значении параметра ADOConn.ConnectionString?


Пример кода:

.....

If IsNTService Then



Set ADOConn = New ADODB.Connection
Set ADOCmd = New ADODB.Command
ADOConn.ConnectionString = "......"
ADOConn.Open
ADOCmd.ActiveConnection = ADOConn



SetServiceState SERVICE_RUNNING
App.LogEvent "AutoScet started"

Do


.....
ADOCmd.CommandText = "SELECT * FROM ....."
ADOCmd.CommandType = adCmdText
If Not (ADOCmd.Execute.BOF Or ADOCmd.Execute.EOF) Then
SetNum = ADOCmd.Execute.Fields("SetNum").Value
OtherDate = ADOCmd.Execute.Fields("OtherDate").Value
End If
......



Loop While MsgWaitObj(1000&, hStopPendingEvent, 1&) = WAIT_TIMEOUT


SetServiceState SERVICE_STOPPED
App.LogEvent "AutoScet stopped"
SetEvent hStopEvent
MsgWaitObj INFINITE, hnd, 1&
CloseHandle hnd
End If

.....

БД работоспособна, как и сам код. Просто понадобилось некоторые операции "запихнуть" в сервис.
Где-то в поиске я нашел указание на то, что в "теле" сервиса могут стоять операции типа: "+", "-" :) и API-шные функции. Оно вообщем-то на подсознательном уровне понятно почему :). Но вот очень хочется :) послать несколько запросов в БД (MS SQL) из сервиса.

Моим убогим в этой области умом я понимаю, что библиотеку с используемыми модулями надо как-то "особенно прикрутить" (минуя References) к сервису. Ясно, что сервис просто не находит "все эти ADODB". Но вот, как это сделать? Наверняка кто-то сталкивался.

Konst_One, DSN - system, account - System.

Konst_One, база данных стоит локально на сервере домена. На нем же пытаемся запустить сервис. Однако, думаю, что здесь нет проблемы "аккаунта" , так как я оставлял в тексте программы только одну строчку: Set ADOConn = New ADODB.Connection (а также:Set ADOConn = CreateObject("ADODB.Connection")) и получал тот же результат:"Процесс был неожиданно завершен...". С таким же успехом я создавал другие объекты, "прикрученные" в References - во всех случаях идентичный результат. То есть до самого "connect" мы, вроде бы, вообще не доходим. Однако, если в сервисе организовать какой-нибудь код на базе API, например, - все работает на ура.

Естественно, из "Источников данных (ODBC)" тест соединения к БД проходит успешно.

Собственно проблема разрешилась. Решение в топике чуть ниже:
http://www.sql.ru/forum/actualthread.aspx?tid=652008

При создании службы с использованием объекта NTService1 все "фунциклирует". Я пытался "слепить" службу на основе примера, представленного Сергеем Мерзликиным:
http://www.sql.ru/forum/actualthread.aspx?tid=178105&hl=vb6svc. Для нее не требуется NTService1.

Учитывая свою прикладную специальность и ограниченность в вопросах программирования, смею предположить, что это разные способы написание служб. При этом где-то в мозгах отложилось, что второй пример - это как раз "полноценная" служба, а микрософтовский модуль ее вроде как "иммитирует" :). Прошу прощения за свои бестолковые комментарии.

В заключение всем огромное спасибо и вопрос к уважаемому kiv-1980. Так сказать, для окончательного запутывания вопроса :). Ваш сервис работает с использованием NTService1 или нет?