Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Conexión con bases de datos
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Conexión con bases de datos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 08-09-2005
marcoev marcoev is offline
Miembro
 
Registrado: may 2003
Ubicación: Nogales, Sonora, Mex.
Posts: 57
Poder: 21
marcoev Va por buen camino
Como puedo crear un servicio para monitorear BD

Hola que tal, espero y no duplique este hilo...

mi problema es el siguiente, quiero hacer un programa que me permita monitorear unas bd (MS Access), en las cuales correre algunos queries para obtener cambios en ciertas tablas, y asi poder informar al usuario en tiempo real de registros que estan por vencerse, y lo que se me vino a la cabeza es tener un programa corriendo como un servicio (sin que el usuario se preocupe de su existencia) y este enviando dichos resultados a la pantalla, como mensajes, crear reportes o en el mejor de los casos enviarlos por email.

espero sus comentarios, y muchas gracias!
__________________
saludos a todos y gracias por compartir sus conocimientos y experiencias... ;-)
Responder Con Cita
  #2  
Antiguo 09-09-2005
Edgar Perez Edgar Perez is offline
Registrado
 
Registrado: sep 2005
Ubicación: Los Mochis, Sinaloa, Mexico
Posts: 9
Poder: 0
Edgar Perez Va por buen camino
Lightbulb Respuesta...

Marcoev:

Buenas tardes, Yo hice algo parecido. Primero te explicare lo que hice y luego como lo hice y espero q te sirva de algo:

Yo hice una Service Application que realiza lo siguiente: Esta conectado a una BD de Interbase y está a la escucha de un mensaje enviado por la BD para lo cual utilizo el IBEvents, al recibir el evento de la BD mi amplicacion lo q hace toma los valores de cierta tabla y las guarda en un archivo XML.

Para hacer lo anterior hice lo siguiente: Primero q nada crear la Service Application (que supongo ya sabras como crearla File-New-Other-Service Application), en la ventana de la Service (que tiene el aspecto de un DataModule y que de echo se comporta como tal ya que no puedes pegarle componentes visuales), ahi pegas los componentes de conexion hacia la BD, y le agregas un TTimer. En el evento OnTimer le pones el codigo q deseas para consultar la BD y le indicas cada que tanto tiempo quieres q haga esa consulta en la propiedad Interval (me supongo q tambien ya tienes construida la sentencia sql para hacer la consulta q quieres), ahora bien en el evento OnExecute del Service App pega este codigo:

procedure TSvc_Principal.ServiceExecute(Sender: TService);
begin
Timer.Enabled:=True;
while not Self.Terminated do
ServiceThread.ProcessRequests(True);// wait for termination
end;

y pues basicamente eso es todo, una cosa nada mas como detalle es que debes tener la propiedad Interactive = True del Service App por si quieres mostrar alguna ventana desde tu Service,...
Responder Con Cita
  #3  
Antiguo 12-09-2005
marcoev marcoev is offline
Miembro
 
Registrado: may 2003
Ubicación: Nogales, Sonora, Mex.
Posts: 57
Poder: 21
marcoev Va por buen camino
Muchas gracias edgar, probare lo que me expones. saludos
__________________
saludos a todos y gracias por compartir sus conocimientos y experiencias... ;-)
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

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


La franja horaria es GMT +2. Ahora son las 07:10:12.


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