PART 5 cara update data pada tabel database mysql Tutorial delphi bahasa indonesia

PART 5

TUTORIAL DELPHI
Pada video tutorial kali ini saya akan menunjukkan cara update data pada tabel database mysql, bagi teman-teman mohon di tonton video kami sebelumnnya agar dapat menyesuaikan dengan video ini, video sebelumnnya dapat di cek di link dibawah :

2. cara setting koneksi zeos ke database mysql

3. cara tampilkan data tabel mysql di dalam dbgrid

4. cara insert data ditabel mysql dengan delphi

SYNTAX SQL :
UPDATE TB_PEGAWAI SET NAMA=:A,ALAMAT=:B,JABATAN=:C
WHERE
NIK=:D

SOURCE CODE DELPHI :

procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
EDIT1.Text:=DBGRID1.Fields[0].Text;
EDIT2.Text:=DBGRID1.Fields[1].Text;
EDIT3.Text:=DBGRID1.Fields[2].Text;
EDIT4.Text:=DBGRID1.Fields[3].Text;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
if MESSAGEDLG('UPDATE DATA.?',TMSGDLGTYPE.mtConfirmation,MBYESNO,0)=MRYES then
BEGIN
WITH ZQUERY3 DO
BEGIN
CLOSE;
PARAMS[0].Value:=EDIT2.Text;
PARAMS[1].Value:=EDIT3.Text;
PARAMS[2].Value:=EDIT4.Text;
PARAMS[3].Value:=EDIT1.Text;
EXECSQL;
END;
WITH ZQUERY1 DO
BEGIN
CLOSE;
OPEN;
END;
END;
end;