mensaje error db is currently open

[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 Noteví]

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

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

[ginesgomezlopez]

Sí probé, pero sale un mensaje diciendo:

ibTablaClientes:Cannot perform this operation on a closed dataset

y sino:

Unabled to complete netword request to host "192.168.1.34:3050"

[Casimiro Noteví]

Empezado por ginesgomezlopez

Unabled to complete netword request to host "192.168.1.34:3050"

¿Puedes poner la cadena de conexión que usas?
Y de paso todas los datos que usas para conectar.

[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

[Casimiro Noteví]

¿Qué componentes estás usando?

[ginesgomezlopez]

Uso un IbDatabase donde:

Databasename= C:Maestros1\Maestro.ib por que 192.168.1.34:C:\Maestros1\Maestro.ib pone las 14 Tablas en Active=false

DefaultTransaction= IBTransaction1

Uso un IBTransaction1 donde:

DefaultDatabase= IbDatabase1

Uso 14 TIbTables conectados cada uno a su tabla mediante TableName y donde:

Database = IBDatabase1
Transaction = IBTransaction 1

Uso 14 TDatasources conectados cada uno a su tabla mediante su dataset correspondiente.