Comprobar si existe una BD

[camiz]

Hola darkamerico,
Prueba con esto yo lo uso así en PostgreSQL, solo cambia algunas cositas y devería funcionar, suerte...

Código Delphi [-]
var
  List: TStringList;
  i :string;
  posicion :integer;
  comprobacion :boolean;
begin
  with UniConnection1 do
  begin
    Connected := False;
    ProviderName := 'PostgreSQL';
    UserName := 'postgres';
    Password := '1234';
    Server := '127.0.0.1';
    Port := 5432;
    LoginPrompt := False;
    List := TStringList.Create;
    try
      GetDatabaseNames(List);
      posicion := 0;
      List.Sort;
      comprobacion := List.Find('MyBasedeDatos',posicion);
      if comprobacion = True then
        MessageBox(0,'Base de datos encontrada','Mensaje', MB_ICONINFORMATION or MB_OK)
      else
        MessageBox(0,'La base de datos indicada no existe','Mensaje', MB_ICONSTOP or MB_OK);
    finally
      List.Free;
    end;
  end;