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

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

← →
Xmen   (2007-03-28 13:08) [0]

Как можно проверит базу для соединения.
Если конкретно как можно вывести сопщения если неполучется коннект с базой по причине: нет сети, нет базы.

---

← →
Sergey13 ©   (2007-03-28 13:12) [1]

Алгоритм примерно таков:

Закинул дед сеть в море!
Тянет-потянет, вытянуть не может!
А ему в ответ: "Сеть не доступна!"

8-)

---

← →
Xmen   (2007-03-28 13:18) [2]

Оригинально.
Но мне нужен код.
А как это сказка будет в кодах Дельфи.
:)

И спасибо за советы

---

← →
Sergey13 ©   (2007-03-28 13:21) [3]

> [2] Xmen   (28.03.07 13:18)

Попробуй приконнектиться и обработай исключение.

---

← →
Xmen   (2007-03-28 13:30) [4]

Это годится?

try
 MySqlDb1.Connected := False;
 MySqlDb1.Host  := IniFile.ReadString("Baza ","Host","" );
 MySqlDb1.Connected := True;
 tbMain.Active := True;
 tbKontrol.Active := True;
 tbTypeMail.Active := True;
except
 ShowMessage("Ошибка соединения");
 Exit;
end;

---

← →
Val ©   (2007-03-28 13:33) [5]

таблицы-то убери

---

← →
pavel_guzhanov ©   (2007-03-28 13:37) [6]

лучше так:

MySqlDb1.Connected := False;
MySqlDb1.Host  := IniFile.ReadString("Baza ","Host","" );
try
MySqlDb1.Connected := True;
except
ShowMessage("Ошибка соединения с базой");
Exit;
end;
try
tbMain.Active := True;
except
ShowMessage("Ошибка соединения с таблицей Main");
exit;
end;
try
tbKontrol.Active := True;
except
ShowMessage("Ошибка соединения с таблицей Kontrol");
exit;
end;
try
tbTypeMail.Active := True;
except
ShowMessage("Ошибка соединения с таблицей TypeMail");
Exit;
end;

---

← →
Sergey13 ©   (2007-03-28 13:40) [7]

> [6] pavel_guzhanov ©   (28.03.07 13:37)

лучше так:

try
MySqlDb1.Connected := False;
except
ShowMessage("Вот привязалась зараза!!!");
Exit;
end;

8-)

---

← →
Xmen   (2007-03-28 13:41) [8]

> Val ©   (28.03.07 13:33) [5]
>
> таблицы-то убери


Убрал.
попробовал поставил др. имя хоста.
получил сообшение, но система тоже дала ощибку?
после сообщения нужно было выйте из проги.

---

← →
sniknik ©   (2007-03-28 13:42) [9]

> Это годится?
нет! во первых проверяешь коннект, но зачем то там же открываешь таблицы(???!!!!), а во вторых ошибка, причина не подключения, спрятана за невразумительным "Ошибка соединения". служба поддержки,если таковая имеется/будеш работать в конторе, просто "повесится" искать и устранять истинную причину... это не обработка ошибок, это вредительство, чем так лучше здесь вообще try except не использовать.

---

← →
Xmen   (2007-03-28 14:23) [10]

Ну тогда как быть?

---

← →
Val ©   (2007-03-28 14:40) [11]

почитать про блок try..except, raise..

---

← →
Jan   (2007-03-28 15:11) [12]

off top
xmen - Ты Вовка?

---

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

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



Память: 0.47 MB
Время: 0.013 c