Update / Perbaharui Data di Database MySQL Dari Lazarus / Delphi

Update atau memperbaharui data yang sudah tersimpan di Database MySQL dari Lazarus.

Disini saya menggunakan 3 model komponen untuk memperbaharui data di Database, kemudian sahabat dapat kembangkan lagi dengan komponen lainnya sesuai dengan kebutuhan, Oke.

Dicontoh kali ini saya menggunakan 4 komponen :

• Label (lokasi di Standard)
• DataEdit (lokasi di Misc)
• Combobox (lokasi di Standard)
• Button (lokasi di Standard)
• DBGrid (lokasi di Data Controls)

Berikut Codingnya, masukkan di Button dengan cara double click.

• with ZQuery1 do // gunakan with do agar tidak menulis ulang zquery
• begin
• Edit; // untuk perbaharui data
• FieldByName('jam').AsString:=FormatDateTime('hh:mm:ss',Now); // update jam dari waktu otomatis
• FieldByName('ket').AsString:=Label2.Caption; // update dari label
• FieldByName('tgl').AsString:=DateEdit1.Text; // update dari DataEdit
• FieldByName('hari').AsString:=ComboBox1.Text; // update dari combobox
• Post; // untuk menyimpan pembaharuan
• end;

 Coding diatas untuk memperbaharui 4 Field yang ada di Database MySQL, diantaranya :

• Field Jam
• Field  Ket
• Field  Tgl
• Field Hari

Oke sahabat, cukup sampai disini dulu, semoga bermanfaat. Terima Kasih