mensaje error db is currently open

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

[Casimiro Noteví]

¿Trabajas con tablas?, no es lo más adecuado, aunque ese no sea el tema aquí.

Empezado por ginesgomezlopez

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

Eso no lo entiendo.

Empezado por ginesgomezlopez

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

Eso tampoco lo entiendo, la tabla es un dataset, ¿cómo dices que está conectada mediante su dataset correspondiente?

[ginesgomezlopez]

Bien, vamos a ver, en Ibconsole creo la base de datos, en la cual creo varias tablas, por ejemplo clientes y proveedores, por simplificar, una vez hecho esto, me voy a Delphi y creo un Tdatamodule, al cual inserto:

TBDatabase
IBTransaction
IBTable1 (clientes)
IBTable2 (Proveedores)
IBDatasources1 (Clientes)
IBDatasources2 (Proveedores)

Bien, en la propiedad dataset del IBDatasource1, pongo la tabla a la que quiero conectarla que es IbTable1 y así sucesivamente con el resto de tablas.

Esto lo llevo haciendo siempre y programas de miles de líneas y me ha funcionado muy bien, pero siempre en monopuesto, ahora quería dar el salto a utilizarlos en red, y había visto que no había que hacer muchas modificaciones sólo añadirle al directorio donde está la base de datos la dirección IP del servidor, así si en monopuesto estaba en C:\Maestro1\Maestro.Ib, pues añadirle (192.168.1.34) que es la IP del servidor y quedar de esta manera el DatabaseName 192.168.1.34:C:\Maestro1|Maestro.ib) como demuestra el BDdatos.ini, que ya hemos visto anteriormente, y hacerlo mismo en todos los ordenadores clientes.

Éste es mi problema configurarlo y trabjar en red, ya está, la única forma de trabajar que conozco es esta, si hay otra forma de trabajar sin tablas te agradecería me la dijeras.

Gracias por vuestro interés.

al