проверка базы для соединения

← →
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]
>
> таблицы-то убери

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

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

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

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

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

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

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

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