Ok gracias por contestar.
Les explico lo que pretendo hacer.
Código Delphi
[-]
tiempo:Ttime;
fecha:Tdate;
procedure TForm1.FormCreate(Sender: TObject);
begin
QServerTime.Open;
fecha := StrToDate(QServerTime.FieldByName('FECHA').AsString);
tiempo := StrToTime(QServerTime.FieldByName('HORA').AsString);
QServerTime.Close;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
tiempo:=tiempo+0.000012;
Label2.Caption:=TimeToStr(Tiempo);
end;
procedure TForm1.IBEvents1EventAlert(Sender: TObject; EventName: string;
EventCount: Integer; var CancelAlerts: Boolean);
begin
if EventName='fecha_a_actualizado' then
begin
QServerTime.Open;
fecha := StrToDate(QServerTime.FieldByName('FECHA').AsString);
tiempo := StrToTime(QServerTime.FieldByName('HORA').AsString);
QServerTime.Close;
end;
end;
En conclusion, el problema que tengo es que no se como crear el tigger, aunque casimiro_notevi me puso este codigo:
Código Delphi
[-]QServerTime.SQL.ADD:='SELECT CURRENT_TIME, CURRENT_DATE FROM RDB$DATABASE'
pero en verdad soy muy novato con los tigger y por mas que e intentado siempre me marca error
saludos y gracias...