Firebird 1.5.6 y Windows 2008

[Casimiro Notevi]

Esas cosas no me pasan porque siempre uso servidores linux

[sur-se]

je je .. uno de mi opinión ... a mi me pasa igual .. siempre que puedo servidor linux ...

pero hay clientes que se "encasquetan" con el güindous.

[sur-se]

Bueno, el tema del borrado de la tabla. No sé si debería ir en otro hilo, pero bueno, como salió aquí, pues a ver si Donald puede ayudarme, o algún otro compañero. Es un ejemplo sencillo sin controles de errores ni similar. Es para que lo veáis.

Coloco en la pantalla 5 botones:
button1 --> conectar con la Bd
button5 --> desconectar de la bd
button3 --> crear un tabla y commit
button2 --> ejecutar proceso de inserts y commit
button4 --> borrar la tabla creada commit

Un label1 para poner un texto.

En pantalla los componentes fibplus:
FIBdatabase para conectar con la BD
una pareja fibtransaction1/fibquery1
otra pareja fibtransaction2/fibquery2

procedure TForm1.Button1Click(Sender: TObject);
begin
     pFIBDatabase1.Connected:=true;
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
     pFIBDatabase1.Connected:=false;
end;

procedure TForm1.pFIBDatabase1AfterConnect(Sender: TObject);
begin
     label1.caption:='Conectada';
end;

procedure TForm1.pFIBDatabase1AfterDisconnect(Sender: TObject);
begin
     label1.caption:='Desconectado';
end;

procedure TForm1.Button2Click(Sender: TObject);
var i:integer;
begin
     pFIBTransaction2.StartTransaction;
     with pFIBQuery2 do
     begin
          close;
          sql.clear;
          sql.add('INSERT INTO TMPPRUEBA( C1, C2) VALUES (:c1, :c2)');
          Prepare;
          for i:=1 to 100 do
          begin
               ParamByName('c1').value:=i;
               ParamByName('c2').value:=i;
               ExecQuery;
          end;
          close;

     end;
     pFIBTransaction2.Commit;
     showmessage('Terminado');
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
     pFIBTransaction1.StartTransaction;
     with pFIBQuery1 do
     begin
          close;
          sql.clear;
          sql.Add('CREATE TABLE TMPPRUEBA ( C1 INTEGER, C2 INTEGER )');
          ExecQuery;
     end;
     pFIBTransaction1.Commit;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
     pFIBTransaction1.StartTransaction;
     with pFIBQuery1 do
     begin
          close;
          sql.clear;
          sql.Add('DROP TABLE TMPPRUEBA ');
          ExecQuery;
     end;
     pFIBTransaction1.Commit;
end;

Se conecta con la Bd, se crea la tabla, se ejectua el proceso, se borra la tabla.
Si el servidor es 1.5, funciona bien. Si es 2.x al borrar la tabla da un error de "object metadata in use".
Todo tiene sus commits correspondientes.
En 2.x, después de crear y ejectuar, si desconecto de la bd y vuelvo a conectar ya puedo borrarla.
Un saludo.

[guillotmarc]

¿ Utilizas la última versión disponible de Firebird 2.1 (2.1.3) ?. Parece claro que la tabla queda bloqueada más allá del tiempo durante el que realizas la transacción (y solo se desbloquea al desconectar la base de datos).

Normalmente estos problemas los suelen solventar en las actualizaciones de cada nueva versión de Firebird.

[guillotmarc]

Empezado por Casimiro Notevi

Esas cosas no me pasan porque siempre uso servidores linux

Yo no puedo hacerlo, mi programa lo pongo en tiendas, y lo normal es que haya dos, tres ordenadores de promedio.

Utilizan uno de los ordenadores como servidor y cliente a la vez.

No puedo decirles que añadan un servidor Linux dedicado, así que me toca lidiar con Windows y sus tonterías.

[[maeyanes]]

Hola...

Sobre el detalle de las rutas especiales en Windows, el mismo S.O. ofrece funciones para saber cuales son esas rutas.

La mayoría de los generadores de instaladores son capaces de obtener esas rutas no importa que versión de Windows es y desde tus aplicaciones de delphi solo necesitas usar las funciones del API. Busquen información sobre la función: SHGetSpecialFolderPath, a mi me ha evitado muchos dolores de cabeza...


Saludos...

[guillotmarc]

Empezado por maeyanes

Hola...

Sobre el detalle de las rutas especiales en Windows, el mismo S.O. ofrece funciones para saber cuales son esas rutas.

La mayoría de los generadores de instaladores son capaces de obtener esas rutas no importa que versión de Windows es y desde tus aplicaciones de delphi solo necesitas usar las funciones del API. Busquen información sobre la función: SHGetSpecialFolderPath, a mi me ha evitado muchos dolores de cabeza...


Saludos...

Sí, pero cuando instalas el programa en el Cliente, el instalador no puede saber si el Servidor se ha instalado en un XP o Windows 7, así que no sabes si tienes que poner la cadena de conexión a \Program Files o a \Archivos de Programa.

Así que una buena solución es ahora evitar del todo la carpeta \Archivos de Programa.

NOTA: Bueno, en realidad la mejor solución es utilizar un Alias de Firebird y así no tienes que poner ningún tipo de ruta.

[[maeyanes]]

Hola...

Pues desde el mismo instalador puedes editar el archivo .ini y usas la ruta donde se instaló tu aplicación... yo lo hago así desde Inno Setup...


Saludos...

[[RONPABLO]]

Empezado por guillotmarc

Así que una buena solución es ahora evitar del todo la carpeta \Archivos de Programa.

Yo tenia también ese problema con la ruta archivos de programa y pensé también en seguir instalando mi bd en una ruta directa como "C:\miPrograma\bd.fdb" pero ya me ha tocado uno que otro listo que al ver una carpeta directamente sobre C:\ la han borrado cosa que me pasaba menos cuando estaba en Archivos de Programa, así que buscando lo mejor que encontré fue usar el archivo alias.conf, así solo tengo que estar pendiente en el servidor de que la ruta sea la correcta y siempre en mis clientes conecto a "servidor:alias".

[guillotmarc]

Empezado por RONPABLO

Yo tenia también ese problema con la ruta archivos de programa y pensé también en seguir instalando mi bd en una ruta directa como "C:\miPrograma\bd.fdb" pero ya me ha tocado uno que otro listo que al ver una carpeta directamente sobre C:\ la han borrado cosa que me pasaba menos cuando estaba en Archivos de Programa, así que buscando lo mejor que encontré fue usar el archivo alias.conf, así solo tengo que estar pendiente en el servidor de que la ruta sea la correcta y siempre en mis clientes conecto a "servidor:alias".

Sí, utilizar el alias.conf es la mejor opción.

[guillotmarc]

Hola.

Empezado por maeyanes

Hola...

Pues desde el mismo instalador puedes editar el archivo .ini y usas la ruta donde se instaló tu aplicación... yo lo hago así desde Inno Setup...


Saludos...

Yo también utilizo Inno Setup, es fantástico.

No puedes hacer esto, porqué como ya he dicho esto solo funciona cuando haces la instalación en el Servidor.

Cuando haces la instalación en el Servidor, el Instalador sabe perfectamente en que carpeta se deja la base de datos, y puede cambiar el ini donde se guarda la cadena de conexión.

Esto funciona muy bien.

Pero cuando haces la instalación en el cliente, el Instalador no tiene ninguna forma de saber en que carpeta se ha dejado la base de datos en el Servidor (un día de estos tengo que empezar a utilizar Alias de Firebird, y olvidarme de las rutas a la carpeta donde se guarda la base datos).