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.

[Casimiro Notevi]

En teoría es que estás intentando abrir una base de datos abierta, ciérrala antes.

[ginesgomezlopez]

NO creo que sea eso, ya que sí me funciona con un sólo Pc bien, pero al ponerlo en red da el error, como prueba he puesto en el databasename directamente la dirección 192.168.1.34:C:Maestros1\Maestro.Db, pero se automaticamente todas las tablas se me ponen en active=false, y me da el siguiente error:

Unabled to complete network request to host "192.168.1.34:3050"
Falled to establish a conection.
unknowm Win32 error 10060

[ecfisa]

Empezado por ginesgomezlopez

NO creo que sea eso, ya que sí me funciona con un sólo Pc bien, pero al ponerlo en red da el error, como prueba he puesto en el databasename directamente la dirección 192.168.1.34:C:Maestros1\Maestro.Db, pero se automaticamente todas las tablas se me ponen en active=false, y me da el siguiente error:

Unabled to complete network request to host "192.168.1.34:3050"
Falled to establish a conection.
unknowm Win32 error 10060

Hola.

¿ Ya le habilitaste a Firebird el puerto 3050 en el firewall del servidor ?

Saludos.

[ginesgomezlopez]

Sí le abrí en el Firewall de windows del servidor el puerto 3050 tanto en TCP como en UDP, pero sigue dando el mismo error, estoy usando el interbase 2009 server, en el momento que cambio en el databasename a 192.168.1.31:c:\Maestros1\Maestro.ib, la verdad que no sé qué hacer.

[Casimiro Notevi]

¿Has hecho la prueba de lo que te contesté?

Código Delphi [-]
ibdatabase1.Close;
ibdatabase1.DatabaseName:=BasedeDatos; 
ibtablaclientes.Active:=true;