Служба работающая с БД MS SQL

@neur0tr0n · Регистрация: 08.09.2009

Студворк — интернет-сервис помощи студентам

Господа программисты, доброго вам времени суток.

Прошу помочь со следующей проблемой.

Программа работает с тремя БД MS SQL. Из двух "тянет" данные, а в третьей создает запись с данными из впервых двух. Все это оформлено как служба работающая на компьютере с Windows XP, которая работает с интервалом в 1 сек. Но при работе самой службы работа с данными не проиходит, по той причине, что служба не может установить коннект ни с одной БД. Проблема происходит сразу на этапе проверки соединения с БД.

Привожу косок кода:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
void __fastcall TCopyPasteService::ServiceExecute(TService *Sender)
{
    TADOQuery *adoquery;
    AnsiString strConnOUT;
    AnsiString strSqlOUT;
    int cnt;
    AnsiString str;
 
    str = "\nРабота службы CopyPasteSvr начата";
    CopyPasteService->LogMessage(str,ETYPE,CATEGORY,5000);
    while (!Terminated) {
        if (CopyPasteService->CheckConnection()) { // Проверка соединения с БД
            if (CopyPasteService->ClearTBL("_hc_ContactExt")) {
                str = "\nДанные из таблицы _hc_ContactExt удалены";
                CopyPasteService->LogMessage(str,ETYPE,CATEGORY,5001);
            }
            str = "\nПроцедура копирования данных  начата";
            CopyPasteService->LogMessage(str,ETYPE,CATEGORY,5002);
            strConnOUT = "<Connection String>";
            strSqlOUT = "<Query>";
            adoquery = new TADOQuery(this);
            adoquery->ConnectionString = strConnOUT;
            adoquery->SQL->Clear();
            adoquery->SQL->Add(strSqlOUT);
            adoquery->Active = true;
            cnt = adoquery->RecordCount;
            adoquery->First();
            for (int i = 0; i < cnt; i++) {
                                                   <Некоторая работа с данными>
                adoquery->Next();
            }
            str = "\nПроцедура копирования данных завершена";
            CopyPasteService->LogMessage(str,ETYPE,CATEGORY,5003);
        }
        else {
            str = "\nНе удалось установить соединение с базой данных";
            CopyPasteService->LogMessage(str,ETYPE,CATEGORY,5005);
        }
        str = "\nУстановлен таймаут - " + IntToStr(TIME_OUT) + " миллисекунд";
        CopyPasteService->LogMessage(str,ETYPE,CATEGORY,5004);
        Sleep(TIME_OUT);
        ServiceThread->ProcessRequests(false);
    }
}

Прошу подсказать как решить данную проблему.

Заранее благодарен.

oxotnik · 08.09.2009, 13:39

а где само подключение к БД? смыл приведенного кода в чем?

@neur0tr0n · 08.09.2009, 14:05 **[ТС]**

Сообщение от oxotnik

а где само подключение к БД? смыл приведенного кода в чем?

Если вы имеете ввиду проверку соединения с БД, то привожу код:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
bool TCopyPasteService::CheckConnection()
{
    AnsiString strConn;
    bool connect = false;
    AnsiString str;
    TADOConnection *adoconn;
try {
    adoconn = new TADOConnection(this);
    strConn = "<БД1>";
    adoconn->ConnectionString = strConn;
    adoconn->Connected = true;
    if (adoconn->Connected == true) {
        adoconn->Connected = false;
        connect = true;
    }
    else {
        return false;
    }
    strConn = "<БД2>";
    adoconn->ConnectionString = strConn;
    adoconn->Connected = true;
    if (adoconn->Connected == true) {
        adoconn->Connected = false;
        connect = true;
    }
    else {
        return false;
    }
    strConn = "<БД3>";
    adoconn->ConnectionString = strConn;
    adoconn->Connected = true;
    if (adoconn->Connected == true) {
        adoconn->Connected = false;
        connect = true;
    }
    else {
        return false;
    }
    return connect;
} catch (...) {
    return connect;
}
}

oxotnik · 08.09.2009, 14:20

чо, прям реально так:

Сообщение от neur0tr0n

strConn = "<БД1>";

подключаешься?
вообще то в строке подключения надо сервер указывать, БД, юзера, пароль и еще кучу всего
вот примеры строк подключения

@neur0tr0n · 08.09.2009, 14:48 **[ТС]**

Сообщение от oxotnik

чо, прям реально так:

подключаешься?
вообще то в строке подключения надо сервер указывать, БД, юзера, пароль и еще кучу всего
вот примеры строк подключения

Господа, харэ стебаться! :-)

Ну конечно же не так подключаюсь, просто я не стал выкладывать строки подключения с паролями и аккаунтами, а просто укзал их условно!
По поводу строк подключения, отвечаю, что с БД, а именно MS SQL, а именно, в интеграции с cbuilder'ом, я работаю уже более 5 лет, поэтому проблем со строками подключений не испытываю.
А эта программа, о которой идет речь в посте, работает без проблем (ее EXE вариант).
Вот я и захотел сделать ее в формате службы выполняющейся резидентно на компьютере.

oxotnik · 08.09.2009, 14:53

попробуй

C++
1
OleInitialize(NULL);

где нидь в самом начале программы поставить (до создания TADO....)

@neur0tr0n · 08.09.2009, 16:47 **[ТС]**

Сообщение от oxotnik

попробуй

C++
1
OleInitialize(NULL);

где нидь в самом начале программы поставить (до создания TADO....)

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

Но тем не менее спасибо большое, выручили.

oxotnik · 08.09.2009, 16:55

Сообщение от neur0tr0n

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

Но тем не менее спасибо большое, выручили.

это к службам не относится, просто в службе в отличии от обычного приложения не производится инициализация OLE, а ADO это и есть OLE.
ЗЫ: к стати и в длл тоже самое надо делать

@neur0tr0n · 08.09.2009, 17:14 **[ТС]**

Сообщение от oxotnik

это к службам не относится, просто в службе в отличии от обычного приложения не производится инициализация OLE, а ADO это и есть OLE.

Так вот в том то и дело.

Сообщение от oxotnik

ЗЫ: к стати и в длл тоже самое надо делать

Спасибо. Учту на будущее.

Новые блоги и статьи Все статьи Все блоги /
Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита, которое может. . .	Команды "Заполнить" и "Очистить" на форме документа Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". На примере нетипового документа разработанного в конфигурации КА2. В качестве источника данных указан регистр накопления, в который записываются данные о. . .	Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .
Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .	SDL3 для Desktop (MinGW): Вывод текста со шрифтом TTF с помощью библиотеки SDL3_ttf на Си и C++ 8Observer8 24.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-text-sdl3-c. zip finish-text-sdl3-cpp. zip

oxotnik 1665 / 1134 / 80 Регистрация: 21.08.2008 Сообщений: 4,734 Записей в блоге: 1
	08.09.2009, 13:39
	а где само подключение к БД? смыл приведенного кода в чем? 0

Опции темы