problema al refrescar tabla en firebird

[Casimiro Noteví]

Empezado por marcial

.. sustituyendo su código por otra cosa ..

¿Por otra cosa?

[marcial]

Perdón; por otro código similar que podia sustituir al que tenia en el ApplicationEvents.

[marcial]

Por otro código que sustituía al que tenía en el ApplicationEvents (OnMessage). Es raro pero así es.

[anubis]

Buenas de nuevo, y perdonad que reabra un post antiguo.

En base al trigger que lance un evento en funcion de un insert en una tabla, ahora lo hice pero con update, el unico problema es que me lanza el evento una vez, despues de haber abierto el programa, aunque el refresh no me lo hace (que tendre que buscarle por otro lado porque estoy usando los mismos parametros en el zconnection que en los anteriores post y funciono).

Aqui no entiendo porque, despues de hacer un edit y luego un post y finalmente un commit (commitretaing no lo tiene zeos), me salta el evento, pero despues de hacer lo mismo, ya no salta dicho evento.

Estuve checando si tendria que ver con los cacheupdates pero ni modificandolos lo hace dos veces.

Verdaderamente si esta bastante raro el asunto porque tambien hice un trigger para insertar y me hace lo mismo, solo lo hace una vez.

Código Delphi [-]
CREATE TRIGGER POST_NEW_REG FOR CLIENTES ACTIVE 
AFTER UPDATE POSITION 0 
AS 
BEGIN    
 POST_EVENT 'new_reg'; 
END

[anubis]

Bueno retomando este post, pero cambiando un poco el termino.

que tanto problema hay en activar o desactivar un query para que actualice, ya que el el metodo anterior, (post_event) no trabaja bien.

me refiero a

Código Delphi [-]
zquery1.active:=false
zquery1.active:=true

bastantes veces.

[Casimiro Noteví]

No pasa nada, salvo que si es un query muy pesado, harás trabajar mucho al servidor de bases de datos.

[anubis]

gracias, pense que habria algun problema con la corrupcion de datos . Pero es la forma que encontre de actualizar.

[anubis]

Hola amigos y perdon que reabra este post .

Aplicando los componente ibx en lazarus windows y, entendiendo que los events se disparan cuando hay alguna insercion por ejemplo, el refresh no trabaja con los nuevos datos.

En ibtransaction, defaultaction esta puesto en tacommitretaining, en params esta puesto como read_committed, rec_version y nowait.

Imagino que muchos de vosotros no teneis problemas con el refresh de un ibdataset en computadoras clientes puesto que os actualiza los datos y, como comentaba eficsa, que no ha tenido problemas con los componentes ibx.

En una computadora doy de alta un usuario, y en la computadora del cliente tengo en pantalla un dbgrid abierta, el event salta pero no refresca, no quiero abrir y cerrar el dataset porque, como dice casimiro notevi, se le hace trabajar mucho al servidor de la base de datos.

soy un caso verdad?.

[Casimiro Noteví]

Empezado por anubis

En una computadora doy de alta un usuario, y en la computadora del cliente tengo en pantalla un dbgrid abierta, el event salta pero no refresca, no quiero abrir y cerrar el dataset...

Tampoco es que sea habitual ese escenario, quiero decir que no hay alguien con la misma pantalla en distintos forms atento a ver lo que hace si otro lo edita.
No sé para qué tipo de negocio estás implementando eso, pero si un usuario/vendedor/contable/etc. está atendiendo a un cliente, no hay otro usuario/vendedor/contable/etc. atendiendo al mismo cliente, por lo que esas casualidades no se producen en la vida real.

También recuerda que deben estar abiertos unos puertos adicionales, lee esto y esto.

[ecfisa]

Hola anubis.

No he manejado los componentes IBX en Lazarus pero en Delphi, Refresh no es compatible con todos los TDataSet. Además, si se trata de una consulta estática se recomienda cerrarla y abrirla nuevamente.

Por otro lado para actualizar un conjunto de datos, el método Refresh vuelve a solicitar los datos de la tabla, no creo que tengas una degradación de velocidad por elegir una u otra alternativa (cerrar/abrir).

La ventaja mas notoria es que Refresh mantendrá la posición de la fila actual, pero eso también podes lograrlo usando Close/Open sobre TIBQuery como en este ejemplo:

Código Delphi [-]
...
var
  BM: Pointer;
begin
  // Obtener posición actual del query que muestra
  BM := IBQuery1.GetBookmark;

  try
    // Modificar una columna (para el ejemplo uso otro qry)
    IBQuery2.Close;
    IBQuery2.SQL.Text := 'UPDATE TABLA SET CAMPO = :CAMPO WHERE ID = 1';
    IBQuery2.ParamByName('CAMPO').AsString := Edit1.Text;
    IBQuery2.ExecSQL;

    // Refrescar qry asociado al DBGrid
    IBQuery1.Close;
    IBQuery1.Open;
    IBQuery1.GotoBookmark(BM);

  finally
    IBQuery1.FreeBookmark(BM);
  end;
end;

Saludos