Comprobar si existe una BD

[roman]

Prácticamente cualquier biblioteca de conexión a bases de datos incluirá métodos para listar las bases y tablas de un servidor. Unidac no es la excepción:

• TCustomDAConnection.GetDatabaseNames
• TCustomDAConnection.GetTableNames

Así que, sin importar el motor específico, puedes usar estos métodos y buscar en la lista (TStrings) que te devuelven, la base o tabla en cuestión.

Otra opción, específica de MySQL, es usar una consulta del tipo:

Código SQL [-]
show databases like "nombre de la base"

y ver si te devuelve algún regitro o no.

// Saludos

[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;