Memahami Penggunaan Fungsi Params dan ParamByName di Delphi Studi kasus Update Data Supplier

Fungsi Params dan ParamByname merupakan Syntak delphi yang biasanya digunakan untuk insert atau update data ke database melalui front end Aplikasi. Berikut contoh perbedaan kedua sintak tersebut dimana Syntak Params digunakan dengan menggunakan parameter dan memanggilnya dengan menyebutkan urutan index, Sedangkan Syntak ParambyName sama menggunakan parameter tetapi nanti pemanggilannya menyebutkan kembali nama parameter tersebut.  untuk lebih jelasnya lihat perbedaan kedua syntak tersebut untuk mengupdate data Supplier.

Syntak Penggunaan Params

Begin               close;               sql.Clear;               sql.Add('update tsupplier set nama_supplier=:a0,alamat1=:a1, ');               sql.Add('alamat2=:a2,kota=:a3,contact_person=:a4,telp=:a5 ');               sql.Add('where id_supplier = "'+ed_isupp.text+'"' );               Params[0].AsString :=  ed_ns.Text;               Params[1].AsString :=  ed_alamat.Text;               Params[2].AsString :=  ed_alamat2.Text;               Params[3].AsString :=  ed_kota.Text;               Params[4].AsString :=  ed_cp.Text;               Params[5].AsString :=  ed_telp.Text;               ExecSQL;               ShowMessage('Data Berhasil di Update');               close;               QSupplier.Refresh;            end;

Keterangan : ·         Syntak diatas berfungsi untuk mengupdate data di tabel supplier dengan memasukan parameter dimana a0, a1,a2,a3, dan a5 adalah parameter. ·         Params[0] adalah urutan index dari parameter

Untuk melihat perbedaannya jika menggunakan parambyname lihat script dibawah ini

Syntak Penggunaan ParamByName

Begin               close;               sql.Clear;               sql.Add('update tsupplier set nama_supplier=:ns,alamat1=:alm1, ');               sql.Add('alamat2=:alm2,kota=:kota,contact_person=:cp,telp=:telp ');               sql.Add('where id_supplier = "'+ed_isupp.text+'"' );               ParamByName(‘ns’).AsString :=  ed_ns.Text;               ParamByName (‘alm1’).AsString :=  ed_alamat.Text;               ParamByName (‘alm2’).AsString :=  ed_alamat2.Text;               ParamByName (‘kota’).AsString :=  ed_kota.Text;               ParamByName (‘cp’).AsString :=  ed_cp.Text;               ParamByName (‘telp’).AsString :=  ed_telp.Text;               ExecSQL;               ShowMessage('Data Berhasil di Update');               close;               QSupplier.Refresh;            end;

Keterangan : ·         ns merupakan nama parameter ·         ParamByname(‘ns’) berfungsi memanggil nama parameter yang telah di definisikan

OUTPUT APLIKASI

OUTPUT RUN APLIKASI UPDATE DATA SUPPLIER

SALAM PADEPOKAN IT COURSES
IT Tutorial, IT Training, & IT Solution

www.padepokanit.com

Share

Artikel Lainnya :