Home » Delphi » Component, Database, Delphi, Tips & Tricks » Mendeteksi Adanya Record Baru Dengan SQL Monitor (TZSQLMonitor)

Mendeteksi Adanya Record Baru Dengan SQL Monitor (TZSQLMonitor)

December 14, 2012

Posted by Joko Rivai under Component, Database, Delphi, Tips & Tricks

No Comments

Pertanyaan terkait dengan

Koneksi Database Dengan Delphi, MySQL & ZEOS

Maaf, numpang tanya Mas, gimana ya caranya saya mendeteksi adanya record baru di mysql (pakai timer atau ada event khusus?..) di delphi ?… , jadi ketika ada record baru program akan memberitahukan dalam bentuk ‘alert’ lalu langsung menampilkan record baru tersebut saat itu juga secara realtime. Terima kasih…

Ditanyakan oleh yunidotcom di Koneksi Database Dengan Delphi, MySQL & ZEOS pada 2011-08-21 08:50:37

Maaf, numpang tanya Mas, gimana ya caranya saya mendeteksi adanya reco…

Tergantung tujuannya.
Tempo hari saya paka SQL Logger (Di Zeos ada namanya TZSQLMonitor, jangan lupa tambahkan unit ZSQLMonitor ke uses list…). Jadi tiap ada eksekusi perintah sql, SQLMonitor akan mentrace SQL. SQL ini diparse untuk memeriksa jenis SQL (apakah update, insert, delete atau select). Kemudian baru ditampilkan warningnya.

Sekarang, di MySQL versi baru, saya cenderung memilih trigger. Cara ini agak repot karena di semua tabel harus dipasang trigger, tapi akurasi lebih terjamin. Cara SQL Monitor akan keliru jika SQL sudah dieksekusi dan ditrace, tapi ternyata gagal di database (back-end).

Untuk memulai, cobalah pake TZSQLMonitor.

Set Active ke True. Trus event OnTrace:

procedure TForm3.ZSQLMonitor1Trace(Sender: TObject; Event: TZLoggingEvent;
var LogTrace: Boolean);
var
tmp:String;
begin
LogTrace := False;
tmp := uppercase(copy(Trim(Event.Message), 1, 6));
if (tmp = ‘INSERT’) then
ShowMessage(Event.Message);
end;

Semoga dapat membantu..