Проверка на существование БД перед запуском приложения

← →
Александр999 (2008-10-01 12:22) [0]

Доброго времени суток.

Проблема такая. Надо проверить подключение к БД. После оператора try на строчке "ADOConnection1.Connected:=true" вываливается ошибка. Как быть?

ADOConnection1.ConnectionString:="Provider=MSDASQL.1;Persist Security Info=False;User ID=sa;Data Source=Pasport1;Initial Catalog=Pasport";
try
ADOConnection1.Connected:=true;
except
ShowMessage("Нет связи с базой данных, обратитесь к разработчику");

← →
Виталий Панасенко (2008-10-01 12:26) [1]

По телепортатору я так понимаю, ошибка вываливается ПРИ ОТЛАДКЕ ПРОГРАММЫ В СРЕДЕ, так?

← →
Ega23 © (2008-10-01 12:31) [2]

А в чём предмет вопроса-то?

← →
Поросенок Винни-Пух © (2008-10-01 13:59) [3]

try
ADOConnection1.Connected:=true;
except
on E:Exception do
begin
ShowMessage("А чего это я вдруг решило, что Нет связи с базой данных?, и обратитесь к разработчику");
MessageDlg(Format("Когда на самом деле там %s",[E.Message]),mtError,[mbCancel],0);
...
end;

Попыткой соединения с БД нельзя проверить "существование" базы. Причиной ошибки при соединении помимо отсутствия БД может быть:

- нет сервера или он не запущен или в "офлайне"
- нет соединения с сервером (где-то в сети обрыв или "затык")
- нет сетевой карты
- неисправная сетевая карта
- поврежден сетевой провод
- нет прав на сервер
- нет прав на БД
- истекло установленное с параметрах время таймаута

Проверка на существование БД перед запуском приложения Найти похожие ветки