(06-05-2023, Saat: 17:40)barissagir Adlı Kullanıcıdan Alıntı: Merhabalar,
SQL Serverdaki bir tablo da Insert olayı olduğunda delphi de bu işlemden nasıl haberdar olabilirim.
SQL Server'daki bir tabloa INSERT işlemi yapıldığında Delphi'de bu işlemden haberdar olmak için TSQLTableMonitor bileşeni kullanılabilir. TSQLTableMonitor bileşeni, SQL Server'daki tabloları izler ve bir INSERT, UPDATE veya işlemi gerçekleştiğinde durumu bildirir.
Aşağıdaki adımları izleyerek TSQLTableMonitor bileşenini kullanarak SQL Server'daki bir tabloa INSERT işleminden haberdar olabilirsiniz:
1. Delphi'nin bir formuna TSQLConnection bileşenini ekleyin.
2. TSQLConnection bileşenini ayarlayın ve SQL Server veritabanına bağlanın.
3. Forma bir TSQLTableMonitor bileşeni ekleyin.
4. TSQLTableMonitor componentini uygun bir tabloya bağlayın. Bunun için TSQLTableMonitor Nesnesini bir nesne koleksiyonuna ekleyin ve SQL Server'ın bağlanması gereken tabloyu belirtin.
MyTableMonitor := TSQLTableMonitor.Create(Self);
MyTableMonitor.SQLConnection := SQLConnection1;
MyTableMonitor.TableName := 'MyTable';
MyTableMonitor.Active := True;
Bu örnekte, SQL Server veritabanında yer alan "MyTable" adlı bir tabloyu takip etmekteyiz.
5. TSQLTableMonitor bileşeni OnChange olayını kullanarak, tablodaki değişiklikleri takip edin.
procedure TForm1.TableMonitorChange(Sender: TObject; Reason: TTableChangeReason;
Source: TDataSet; CurValue: TVarRec; UpdateKind: TUpdateKind);
begin
if Reason = crInsert then
begin
ShowMessage('INSERT işlemi gerçekleşti.');
end;
end;
Bu örnekte, OnChange olaylarından biri olan crInsert, bir INSERT işlemi gerçekleştiğinde çalışacak işlemleri tetikler.
Bu adımları izleyerek, SQL Server'daki bir tabloa yapılan bir INSERT işleminden haberdar olabilir ve gerektiğinde uygun işlemleri gerçekleştirebilirsiniz.