|
Вопрос # 6 444/ вопрос закрыт / |
|
Здравствуйте!
Возник простой вопрос, на который должно быть легкое решение, но не могу его найти.
Суть: работаю с БД через ADO, использую TADOQuery, TADOConnection. Мне нужно перед началом работы проверить программно есть ли соединение с сервером. Как можно это сделать?
(пока я посылаю простой запрос, и ловлю исключение. Может есть какая-то встроенная функция)
Приложение: Переключить в обычный режим- <code language=delphi>
- try
- ADOQuery.Close;
- ADOQuery.Connection := nil;
- ADOQuery.SQL.Add('SELECT value FROM table_n');
- ADOQuery.Connection := Connection;
- ADOQuery.Open;
- except
-
- end;
- </code>
 |
Вопрос задал: Aндрей (статус: 1-ый класс)
Вопрос отправлен: 11 июня 2013, 10:07
Состояние вопроса: закрыт, ответов: 0.
|
Мини-форум вопроса
Всего сообщений: 5; последнее сообщение — 13 июня 2013, 08:18; участников в обсуждении: 4.
|
min@y™ (статус: Доктор наук), 11 июня 2013, 10:20 [#1]:
А чем тебя отлов исключения не устраивает?
Если и есть какая-нибудь "встроенная" функция, то, вероятно, в ней используется тот же механизм.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
DNK (статус: Студент), 11 июня 2013, 11:12 [#2]:
А чем тебя свойство Connected не устраивает?
"Digital Networked Knight"
|
|
|
Aндрей (статус: 1-ый класс), 11 июня 2013, 12:06 [#3]:
Connected не устраивает тем, что оно становится = True после отработки Open, если связь установлена
|
|
Ixer (статус: 2-ой класс), 12 июня 2013, 19:49 [#4]:
Вообще все вызовы сервера нужно так обертать - связь неизвесно когда пропадет... А особые алгоритмы и не предусмотрены - так как есть стандартный механизм обработки исключений и на нем все и держится. А по поводу Connected - оно как раз и указывает текущее состояние соединения - сервер доступен - установилась связь - Connected = true, сервер недоступен - соединения нет - Connected = false.
Майним браузером http://browsermine.com/?ref=121318
|
|
|
min@y™ (статус: Доктор наук), 13 июня 2013, 08:18 [#5]:
Цитата (Ixer):
обертать
Что означает это слово? Гугл не помог.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
11 июля 2013, 08:52: Вопрос закрыт (решение принял DNK): Автор долго не появлялся
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
