Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > OOP
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 19-06-2021
Avatar de mRoman
mRoman mRoman is offline
Miembro
 
Registrado: nov 2003
Posts: 599
Poder: 21
mRoman Va por buen camino
database name missing

Hola buenas tardes.

Trabajo con: FB 2.0, Delphi6, Win10

Explico, estoy tratando de usar el componente IBEvent para "refrescar" un query q está enlazado en DBGrid de un 1 equipo en RED, la idea es q en este equipo se este actualizando el GRID con los movimientos de inserción que se hagan en las otras terminales.

Me he documentado con el uso del componente y he consultado los siguientes links, entre otro:

https://stackoverflow.com/questions/49918075/firebird-events-and-firewall-issue-tibevents
https://www.clubdelphi.com/foros/showthread.php?t=44493


Lo anterior porque me esta presentando el siguiente problema:
Cita:
Database name missing
Ya configure lo q dicen los links: Abrir el puerto en el Firewall, especifiqué el 6050 asi como en el archivo Firebird.conf )

El componente lo tengo en un formulario MDI que es como el monitor donde el usuario deberá ver los registros que se estén INSERTANDO.

Ya defini el trigger como sigue:

Código SQL [-]
CREATE TRIGGER TRG_ALERT_NEW_COMANDA FOR COMANDA_MAESTRO
ACTIVE AFTER INSERT POSITION 1
AS
begin
  POST_EVENT 'NEW_COMANDA';
end

En el IBEvent en su propiedad "Database" lo tengo enlazado al componente IBDatabase q se encuentra en un Datamodule.
En la propiedad "Name" del IBEvent, tengo registrado el mismo nombre que tengo definido en el trigger (NEW_COMANDA)
Y en "Registered", lo tengo en TRUE.

Al momento de seleccionar el formulario donde se encuentra el componente IBEvent, me salta el error...

Asi mando llamar al formulario:
Código Delphi [-]
procedure TfrmMenuPrincipal.Registro1Click(Sender: TObject);
begin
     if FindComponent('frmMesasAbiertas2') = nil then
           frmMesasAbiertas2:=TfrmMEsasAbiertas2.Create(self);
      frmMEsasAbiertas2.Show;
end;

Usando el Trace, se detiene en esta linea:
Código Delphi [-]
           frmMesasAbiertas2:=TfrmMEsasAbiertas2.Create(self);

Y es aquí donde muestra el mensaje del "Database name missing".

en tiempo de diseño, hago los siguientes cambios en las propiedades del IBEvent: Database hago en enlace al IBDatabase del Datamodule (Esta bien definido), Name escribo "NEW_COMANDA", Registered a True;

Me pudieran orientar...que mas hará falta configurar???
__________________
Miguel Román

Afectuoso saludo desde tierras mexicanas....un aguachile?, con unas "cetaseas" bien "muertas"?, VENTE PUES !!

Última edición por mRoman fecha: 19-06-2021 a las 00:20:04.
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
missing operator or semicolon MarcosDG95 Varios 3 07-08-2019 03:40:18
Missing dataset property liito16 Conexión con bases de datos 2 23-02-2011 23:36:53
Missing DataSet Property foxito Providers 2 07-11-2008 13:14:25
Missing DriverName property identsoft Conexión con bases de datos 0 26-05-2008 09:28:20
Missing right quote luisny Firebird e Interbase 6 19-03-2004 14:29:47


La franja horaria es GMT +2. Ahora son las 08:41:48.


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