mensaje error db is currently open

[ginesgomezlopez]

En Bdatos.ini

[BD]
path="192.168.1.34:C:\Maestros1\MAESTRO.IB"

En Delphi:

Código Delphi [-]
procedure TDataModule1.DataModuleCreate(Sender: TObject);
Var
     BaseDeDatos: String;
     ElIniFile: TIniFile;
begin
   // Obtiene la ruta y el nombre de la base de datos
   ElIniFile := TIniFile.Create(ExtractFilePath(Application.exename)+'BDatos.ini');
   BasedeDatos := ElIniFile.ReadString('BD','Path','');
   If BasedeDatos = '' then
    ShowMessage('Error al cargar Base de Datos') else
//    ibdatabase1.Close;
    ibdatabase1.DatabaseName:=BasedeDatos;   // BaseGeneral es el TIbDatabase y le asigno la ruta de la base de datos segun .ini
    ibtablaclientes.Active:=true;
end;
end.

En propiedades del Database1

en Dabatabasename=C:\Maestros1\Maestro.ib