mensaje error db is currently open

[ginesgomezlopez]

Hola a ver si me podeis ayudar:

Tengo creado una base de datos en interbase, y funciona bien a modo monopuesto, intento hacerlo en red, y que ambos compartan la misma base de datos, cree el siguiente código:

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.DatabaseName:=BasedeDatos;   // BaseGeneral es el TIbDatabase y le asigno la ruta de la base de datos segun .ini
    ibtablaclientes.Active:=true;
end;

en el archivo BDatos.ini el siguiente:

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

Pero me da el error del encabezado

Cannot perform operation -- db is currently open.


Gracias.