Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Bases de datos > Firebird e Interbase
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

 
 
Herramientas Buscar en Tema Desplegado
  #7  
Antiguo 06-02-2013
Avatar de duilioisola
[duilioisola] duilioisola is offline
Miembro Premium
 
Registrado: ago 2007
Ubicación: Barcelona, España
Posts: 1.806
Poder: 22
duilioisola Es un diamante en brutoduilioisola Es un diamante en brutoduilioisola Es un diamante en bruto
También puede ser que estés registrando más de una vez el evento.
El OnShow se ejecuta cada vez que se muestra el formulario (si minimizas y vuelves a maximizarlo o si haces un Form.Hide; Form.Show.
Quizás debas poner el registro de eventos en OnActivate.

También puede ser que se esté ejecutando el evento al mismo tiempo que haces un Close y el evento trate de hacer un Refresh.
Para probar puedes crear una variable global a la unidad

Código Delphi [-]
var
   TenerEnCuentaEventos : Boolean;

OnCreate
begin
   TenerEnCuentaEventos := True;
end;

OnEvent
begin
   if ((TenerEnCuentaEventos) and (EventName='ACTUALIZA_CLIENTES')) then
   begin
      Clientes.Refresh;
   end;
end;

Consulta
begin
   SQL := 'Select * from Clientes ORDER BY NOMBRE ASCENDING';

   // "desactivo" eventos
   TenerEnCuentaEventos := False;
   try
      Clientes.CLose;
      if pFIBTransaction1.InTransaction then pFIBTransaction1.CommitRetaining;
      pFIBTransaction1.StartTransaction;
      CLIENTES.SelectSQL.Clear;
      CLIENTES.SelectSQL.Add(SQL);
      CLIENTES.QSelect.ExecQuery;
      pFIBtransaction1.CommitRetaining;
      Clientes.Open;
   finally
      // "activo" nuevamente los eventos
      TenerEnCuentaEventos := True;
   end;
end;
Responder Con Cita
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
error raro en firebird leo_037 Firebird e Interbase 10 03-02-2008 19:22:23
Caso raro Firebird consume muchos recursos AGAG4 Firebird e Interbase 4 23-02-2007 01:10:19
Error Firebird sin Explicacion , Demasiado Raro hot1974 Firebird e Interbase 10 05-10-2006 15:44:35
Comportamiento raro de Firebird en Starting With AGAG4 Firebird e Interbase 6 07-06-2006 16:10:56
URGENTE: Error raro en Firebird burasu Firebird e Interbase 3 14-07-2004 13:19:25


La franja horaria es GMT +2. Ahora son las 05:44:30.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi