Что нового

Проверка подключения к базу Firebird

Vini

Новичок
Сообщения
27
Репутация
0
Доброго всем дня!
Требуется проверить соединение с базой Firebird.
Этот код подключается к базе и выводит сообщение с результатом:
Код:
#include <FireBird.au3>
Global $h_fbDll = DllOpen(@ScriptDir & "\fbdll4vb20.dll")
Global $servername = "192.168.1.2"
Global $sDBName = "F:\ic\IC1.GDB"
Local $sUsername = "sysdba"
Local $sPassword = "masterkey"
Local $rv
_FireBird_SetDebug($h_fbDll, false)
            $rv = _FireBird_ConnectDatabase($h_fbDll, $servername, $sDBName, $sUsername, $sPassword)
            MsgBox(0,'',$rv)

Но! если база не доступна, то выводится дополнительное окно (см. вложение) с ошибкой, которое очень мешает.
Может кто-нибудь помочь избавиться от него? Или может кто знает еще простой способ проверки связи с базой?
Спасибо!
 

Вложения

  • 2016-12-19_11-22-55.png
    2016-12-19_11-22-55.png
    9.8 КБ · Просмотры: 17

Skif_off

Знающий
Сообщения
173
Репутация
12
Vini
Почему не проверить существование файла до попытки подключения? Что-то типа
Код:
_FireBird_SetDebug($h_fbDll, false)
If FileExists($sDBName) Then
    $rv = _FireBird_ConnectDatabase($h_fbDll, $servername, $sDBName, $sUsername, $sPassword)
    MsgBox(0, '', $rv)
Else
    MsgBox(48 + 4096, '', 'Файл "' & $sDBName & '" не найден!')
EndIf
 
Автор
V

Vini

Новичок
Сообщения
27
Репутация
0
Skif_off сказал(а):
Почему не проверить существование файла до попытки подключения?
Потому что файл базы расположен не на локальном компьютере, а удаленно
 
Верх