DATABASEDE YAPILAN DEĞİŞİKLİĞİ YAKALAMA

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
HakanY
Üye
Mesajlar: 5
Kayıt: 13 Eyl 2021 07:20

DATABASEDE YAPILAN DEĞİŞİKLİĞİ YAKALAMA

Mesaj gönderen HakanY »

Merhabalar,

Ana uygulamadan çoklu kullanıcının bağlandığı databaseye triggerı Craeta ederek oluşturdum ve güzelde çalışıyor.
Fakat 2. uygulamadan databasede değişiklik yapıldığını nasıl yakalaya bilirim? bunu çözemedim. yardımlarınızı rica ederim.

Kod: Tümünü seç

try
        FDQuery.Active := False;
        FDQuery.Close;
        FDQuery.SQL.Clear;
        FDQuery.SQL.Add(' CREATE SEQUENCE GEN_RESIMTETIKLE_ID');
        FDQuery.ExecSQL;
      finally
        FDQuery.Close;
      end;
      try
        FDQuery.Active := False;
        FDQuery.Close;
        FDQuery.SQL.Clear;
        FDQuery.SQL.Add('CREATE TRIGGER RESIMTETIKLE FOR RESIM');
        FDQuery.SQL.Add('ACTIVE AFTER INSERT OR UPDATE OR DELETE POSITION 0');
        FDQuery.SQL.Add(' AS');
        FDQuery.SQL.Add(' BEGIN');
        FDQuery.SQL.Add(' IF (INSERTING) THEN');
        FDQuery.SQL.Add(' POST_EVENT ''Insert'';');
        FDQuery.SQL.Add(' ELSE');
        FDQuery.SQL.Add(' IF (UPDATING) THEN');
        FDQuery.SQL.Add(' POST_EVENT ''Update'';');
        FDQuery.SQL.Add(' ELSE ');
        FDQuery.SQL.Add(' POST_EVENT ''Delete'';');
        FDQuery.SQL.Add(' END');
        FDQuery.ExecSQL;
      finally
        FDQuery.Close;
      end;
    end;

Kod: Tümünü seç

procedure TMainForm.FDEventAlerterAlert(ASender: TFDCustomEventAlerter; const AEventName: string; const AArgument: Variant);
begin
  if SameText(AEventName, 'Update') then
  begin
    ResimTetikleUpdate(Self);// değişiklik yap
  end;
end;
Kullanıcı avatarı
freeman35
Admin
Mesajlar: 2298
Kayıt: 12 Haz 2003 04:05
Konum: merkez camii yanı

Re: DATABASEDE YAPILAN DEĞİŞİKLİĞİ YAKALAMA

Mesaj gönderen freeman35 »

Burayı bir incele
https://docwiki.embarcadero.com/RADStud ... _(FireDAC)

Ayrıca Transaction CommitRetaining edilmezse, evebt gönderilmiyor.
ZAGOR TENAY TÜRK'tür... TÜRK kalacak...
Zoru başarırım, İmkansız zaman alır
FreeMan 35.5

Soru sormaya üşenmiyorsan, sorunun çözümünü yazmaya da üşenme !!!
HakanY
Üye
Mesajlar: 5
Kayıt: 13 Eyl 2021 07:20

Re: DATABASEDE YAPILAN DEĞİŞİKLİĞİ YAKALAMA

Mesaj gönderen HakanY »

Çok teşşürler.
Cevapla