проверка соединения для TADOConection

← →
AlexeiBerkov © (2007-05-16 17:38) [0]

Всем привет!

Как всегда возникла проблемка. Как определить, есть связь с сервером БД или она отсутствует. На форме есть компонент TADOConnection и нейкая кнопка, в обработчике которой следуюштий код:

with ADOConnection do begin Open; if Connected then res:=true else begin messagedlg("Не удалось установить соединение.", mtError, [mbok], 0); res:=false; end; end;

Если прекратить связь с SQL сервером, то при нажатии на кнопку выскакивает ошибка и программа дальше не "идёт" ...

Как быть?

← →
Megabyte © (2007-05-16 17:57) [1]

Try...Except

← →
AlexeiBerkov © (2007-05-16 18:05) [2]

Тот же эффект

← →
AlexeiBerkov © (2007-05-16 18:05) [3]

> Try...Except

Тот же эффект

Всем спасибо! ))))

Делается всё так:

res:=true; try ADOConnection.Open; except ON E:Exception DO begin messagedlg("Не удалось установить соединение", mtError, [mbok], 0); res:=false; //Raise Exception.Create(E.Message); end; end;

Закрываем тему

> AlexeiBerkov © (16.05.07 18:12) [4]
> Всем спасибо! ))))Делается всё так: res:=true; try ADOConnection.
> Open; except ON E:Exception DO begin messagedlg("Не
> удалось установить соединение", mtError, [mbok], 0);
> res:=false; //Raise Exception.Create(E.Message);
> end; end;Закрываем тему

А у тебя не ругается на Open, допустим если адрес ConnectionString не правельный?
Кто знает как с этим справиться пожалуйсто подскажите

проверка соединения для TADOConection Найти похожие ветки