Kendi kullandığım bir yöntemi burada paylaşmak istedim malum firebird de güncelleme sıkıntısı yaşayan arkadaşlar var. Aslında belki daha iyi yöntemler vardır ama kolay kullanımı olan bi yöntem şöyleki,
veritabanı tarafında her bir dosya için
Kod: Tümünü seç
CREATE TRIGGER TESBITLER_AIUD0 FOR TESBITLER
ACTIVE AFTER INSERT OR UPDATE OR DELETE POSITION 0
AS
begin
/* Trigger text */
post_event('dsetTesbitler');
Delphi tarafında ise ibevent bileşenine tüm bu eventname leri ekliyoruz.
Kod: Tümünü seç
procedure TDM.ibEventAlerterEventAlert(Sender: TObject; EventName: string;
EventCount: Integer);
var
bm: TBookmark;
begin
with TFIBDataSet(FindComponent(EventName)) do
begin
bm := GetBookmark;
DisableControls;
CloseOpen(true);
while ControlsDisabled do
EnableControls;
GotoBookmark(BM);
end;
end;
Allaha emanet olun inşAllah birilerinin işine yarar.