actualizar bd firebird

[anubis]

Buenas,

Se que la pregunta es un poco simple dado el caso, pero estoy migrando de sqlite a firebird y tengo algunas dudas.

Tengo 2 programas que usan la misma base de datos, y los tengo abiertos, si con uno de ellos añado un registro, como puedo ver la actualización desde el otro programa sin tener que cerrarlo y volver a abrirlo.
De momento estoy usando el commit en true.

Saludos y mil gracias

[ecfisa]

Hola Anubis.

La declaración POST_EVENT permite disparar un mensaje al manejador de eventos de Firebird para avisar del acontecimiento de algún cambio en la BD evitando así el poolling periódico como en otras DBMS. Los eventos se envían al manejador de eventos desde algún trigger o procedure señalando la acción que se desarrolló.

Por ejemplo: Enviar mensajes de inserción, modificación y borrado que se realicen en la tabla 'TABLA':

Código SQL [-]
SET TERM ^;

CREATE OR ALTER TRIGGER EV_TABLA_INSERT FOR TABLA
ACTIVE AFTER INSERT POSITION 10
AS
BEGIN
  POST_EVENT 'TABLA_INSERT';
END^

CREATE OR ALTER TRIGGER EV_TABLA_UPDATE FOR TABLA
ACTIVE AFTER UPDATE POSITION 10
AS
BEGIN
  POST_EVENT 'TABLA_UPDATE';
END^

CREATE OR ALTER TRIGGER EV_TABLA_DELETE FOR TABLA
ACTIVE AFTER DELETE POSITION 10
AS
BEGIN
  POST_EVENT 'TABLA_DELETE';
END^

SET TERM ;^

Una vez realizado Commit o CommitRetaining, el evento es disparado y Firebird lo notificará. Ahora hay que detectar esa notificación desde Delphi, para eso podes utilizar el componente TIBEvents (si estas usando los componentes IBX)

Ejemplo de cofiguración del componente:

Desde Object Inspector

• Propiedad Database <- tu_IBDatabase
• Propiedad AutoRegister <- False;
• propiedad Name <- evTabla
• Evento OnEventAlert <- evTablaEventAlert;

Desde código

Código Delphi [-]
...
procedure TDataModule.DataModuleCreate(Sender: TObject);
begin
  ...
  evTabla.Events.Clear;
  evTabla.Events.Add('TABLA_INSERT');
  evTabla.Events.Add('TABLA_UPDATE');
  evTabla.Events.Add('TABLA_DELETE');
  evTabla.RegisterEvents;
  ...
end;

...

procedure TDataModule.evTablaEventAlert(Sender: TObject; EventName: string;
  EventCount: Integer; var CancelAlerts: Boolean);
begin
  case AnsiIndexStr(EventName,['TABLA_INSERT','TABLA_UPDATE','TABLA_DELETE']) of
    0:; // Notificación de inserción
    1:; // Notificación de modificación 
    2:; // Notificación de borrado
  end;
end;

Luego podes realizar las acciones pertinentes a cada caso, como por ejemplo un Refresh sobre la tabla en cuestión.

Saludos.

[ARPE1]

Hola.

¡¡¡Ojo con POST_EVENT!!! cuidado cómo tratas el evento en la otra aplicación.
Supongamos que sin más haces un "refresh" a la tabla para que así vea el nuevo registro añadido en la otra aplicación y da la casualidad que el usuario está en mitad de un alta sobre la misma tabla, seguramente lo fastidies.

un saludo.

[anubis]

Se agradecen las respuestas, a ver si lo pruebo.

con respecto al post_even, en esos casos que mencionas que se suele hacer.

saludos

gracias

[ecfisa]

Hola Anubis.

En todos los casos, lo primero que debes hacer es notificar la acción acontecida, la acción que tomes luego depende de como desees manejarla.

Como veo que estas incurriendo en Firebird te recomiendo leer sobre concurrencia, transacciones, bloqueos optimistas/pesimistas y eventos para familiarizarte con ellos.

En estos enlaces vas a encontrar información buscando por esos términos en el contenido:

• Firebird uso de eventos
• Transacciones en Interbase y Firebird
• La cara oculta de Delphi 4
• Firebird
• Arquitectura del SMBD Firebird

Saludos.

[anubis]

hola de nuevo.

El trigger para los eventos me funciona, y en la otra aplicacion si se dispara y me muestra un showmessage qu ele puse, pero no se actualiza, por ejemplo el dbgrid.

He probado a poner zquery1.refresh, tambien zquery1.close y luego open, pero no queda, alguna sugerencia?

Gracias a todos por vuestros consejos y paciencia.