Ver Mensaje Individual
  #1  
Antiguo 17-07-2012
Victorialerda Victorialerda is offline
Registrado
NULL
 
Registrado: jul 2012
Posts: 8
Reputación: 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 Noteví fecha: 17-07-2012 a las 17:05:38.
Responder Con Cita