Скачать: CL | DM;

проверка соединения для 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


Тот же эффект

---

← →
AlexeiBerkov ©   (2007-05-16 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;



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

---

← →
Zesik ©   (2007-05-21 00:47) [5]

> 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 не правельный?
Кто знает как с этим справиться пожалуйсто подскажите

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.019 c