| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

проверка соединения для TADOConection [D6, D7, 2000, XP]

AlexeiBerkov ©   (2007-05-16 17:38:00) 

Всем привет!

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


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


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

Как быть?

---

Zesik   (2007-05-21 00:47:00) [1]

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

---

AlexeiBerkov   (2007-05-16 18:12:00) [2]

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

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


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   (2007-05-16 18:05:00) [3]

Тот же эффект

---

AlexeiBerkov   (2007-05-16 18:05:00) [4]

> Try...Except


Тот же эффект

---

Megabyte   (2007-05-16 17:57:00) [5]

Try...Except

---

Наверх