Здравствуйте, LanK!
Попробуйте такую функцию проверки соединения. В свое время я ее раскопал на сайте http://delphiworld.narod.ru/
uses
ComObj;

function OpenConnection(ConnectionString: String): Boolean;
var
ADODBConnection: OleVariant;
begin
ADODBConnection := CreateOleObject(‘ADODB.Connection‘);
ADODBConnection.CursorLocation := 3;
ADODBConnection.ConnectionString := ConnectionString;
ADODBConnection.ConnectionTimeout := 3; {Три секунды на соединение}
Result := True;
try
ADODBConnection.Open;
except
Result := False;
end;
If Result Then
ADODBConnection.Close;
end;
Здесь:
- ConnectionString - это сформированная Вами строка подключения к БД.
Если функция возвращает True - подключение прошло успешно, если False, то подключится не удалось.
Хочу заметить, что если в процессе работы Вам не нужна визуализация данных, например нужно передать в БД команду на модификацию данных в какой-то таблице, то такой способ подключения к БД работает быстрее, чем использование VCL.