Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

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

Grupo de Teaming del ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 17-07-2012
Victorialerda Victorialerda is offline
Registrado
NULL
 
Registrado: jul 2012
Posts: 8
Poder: 0
Victorialerda Va por buen camino
consulta con data time picker

queremos hacer un recordatorio de eventos utilizando mysql firebird/interbase, hicimos un trigger que nos informara cuando se agrega un nuevo registro y así capturarlo por ibevents.

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

Código Delphi [-]
procedure TDataModule_PROYECTO.DataModuleCreate(Sender: TObject);
Var
 BaseDeDatos: String;
 IniFile: TInfile;
begin
   // Obtiene la ruta y el nombre de la base de datos
   IniFile := TIniFile.Create(ExtractFilePath(Application.ExeName)+'BDatos.ini');
   BasedeDatos := IniFile.ReadString('BD','Path','');
   If BasedeDatos = '' then
    ShowMessage('Error al cargar Base de Datos') else
   Begin
    Try
      BaseGeneral.IBDatabase_proyecto := BaseDeDatos;
      BaseGeneral.Connected := True;
      Transaccion.Active := True;
      AGENDA.Open;
      IBEvents1.Events.Clear;
      IBEvents1.Events.Add('new_reg');
      IBEvents1.RegisterEvents;
    Except
      ShowMessage('No se puede conectar el servidor...');
    End;
   End;
end;

procedure TDataModule_PROYECTO.IBEvents1EventAlert(Sender: TObject;
  EventName: String; EventCount: Integer; var CancelAlerts: Boolean);
begin
  if EventName = 'new_reg' then
  Begin
  ShowMessage('Se inserto registro nuevo');
  SAGENDA.IBDataSet_AGENDA.Refresh;
  End;
end;

lo que quisiéramos saber es si le estamos errando en algo por que nos tira error de que IniFile: TInfile como que no estas declarado.
Muchas gracias.

Última edición por Casimiro Notevi fecha: 17-07-2012 a las 17:05:38.
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 data provider or data packet mcalmanovici Providers 1 11-09-2007 05:55:15
Crear consulta en run time sierraja SQL 6 22-03-2007 19:17:45
consulta sobre el date time picker kazcote Varios 3 20-07-2006 10:32:54
Data-aware o no data-aware... esa es la cuestión! __marcsc Debates 22 09-07-2006 21:32:36
Problema datetime picker victor84 Varios 2 12-06-2005 21:36:59


La franja horaria es GMT +2. Ahora son las 13:26:44.


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