Проверка наличия БД на сервере

Здравствуйте.

Использую компонент UniDac для установления соединения с базой Mysql. Программно осуществляется выбор БД.
Такой вопрос, как проверить наличия соединения с БД, нужно проверить существует ли эта база перед подключением и если существует выполнить один код если нет другой.
Или как можно получить список баз, которые есть в MySQL.

Проверяю соединение так:

Mysql_base:='BD';

try
  DM.UniConnection1.Disconnect;
  DM.UniConnection1.Database:=Mysql_base;
  DM.UniConnection1.Connect;

  if DM.UniConnection1.Connected=True then
   begin
    DM.UniQ_Create_Table.Close;
    DM.UniQ_Create_Table.ExecSQL; 
    DM.UniQ_Create_Table.Close;
   end;

   except
on e: exception do
end;

У тебя разве исключение не возникает?
И есть ли у UniDac ассинхронное подключение? Может это оно?

RDee,


Проверить наличие базы на сервере можно следующим образом:

var
  lst: TStringList;
  i: Integer;
begin

  lst:= TStringList.Create;
  UniConnection1.GetDatabaseNames(lst);
  for i:=0 to lst.Count - 1 do
    if st = 'BD' then
    ........

А цикл то тут зачем, при наличии IndexOf

devart,

Большое спасибо, обязательно воспользуюсь!