Menghapus Data MS Access dengan TAdoQuery

Pada tulisan kali ini, saya akan menambahkah tombol btnHapus untuk menghapus data. Langsung saja, tambahkan kode program berikut ini pada btnHapusClick.

void __fastcall TForm1::btnHapusClick(TObject *Sender)
{
    if (
       MessageBox(0,(LPSTR) “Apakah data akan dihapus”,”Konfirmasi”,MB_ICONQUESTION | MB_YESNO ) ==IDYES
       )
    {
    ADOQuery2->Close();
    ADOQuery2->SQL->Clear();
    ADOQuery2->SQL->Add(“delete from pelanggan where ID_CUSTOMER = :ID_CUSTOMER”);
    ADOQuery2->Parameters->ParamByName(“ID_CUSTOMER”)->Value;
    ADOQuery2->ExecSQL();
    if (ADOQuery2->RowsAffected > 0) {
      ShowMessage(“Data telah dihapus”);
    } else
    {
      ShowMessage(“Data tidak dapat dihapus”);
    }
}

Sebelum menghapus, aplikasi akan bertanya apakah pengguna benar-benar ingin menghapus data. Hal ini dilakukan untuk jaga-jaga siapa tahu pengguna tersebut secara tidak sengaja menghapus data. Perintahnya adalah sebagai berikut:

  if (
       MessageBox(0,(LPSTR) “Apakah data akan dihapus”,”Konfirmasi”,MB_ICONQUESTION | MB_YESNO ) ==IDYES
       )
    {

Jika pengguna memilih tombol Yes pada kotak dialog maka aplikasi akan mengeksekusi query penghapusan:

ADOQuery2->Close();
ADOQuery2->SQL->Clear();
ADOQuery2->SQL->Add(“delete from pelanggan where ID_CUSTOMER = :ID_CUSTOMER”);
ADOQuery2->Parameters->ParamByName(“ID_CUSTOMER”)->Value;
ADOQuery2->ExecSQL();

Untuk memeriksa apakah penghapus tersebut benar-benar berhasil, kita dapat memeriksanya pada RowsAffected. Jika RowsAffected bernilai lebih dari nol maka ada data yang terhapus.

    if (ADOQuery2->RowsAffected > 0) {
      ShowMessage(“Data telah dihapus”);
    } else
    {
      ShowMessage(“Data tidak dapat dihapus”);
    }

Ada satu tambahan tombol lagi. Tombol ini memang tidak ada hubungannya dengan penghapusan data. Tombol dipergunakan untuk mengembalikan btnTambah dan btnEdit agar enable kembali saat pengguna batal melakukan operasi penambahan dan perubahan data. Kita namakan tombol ini btnBatal. Kode programnya adalah sebagai berikut:

btnTambah->Enabled = true;
btnEdit->Enabled = true;
btnSimpan->Enabled = false;
edtIDCustomer->Text = DBGrid1->Columns->Grid->Fields[0]->Text;
edtNamaCustomer->Text = DBGrid1->Columns->Grid->Fields[1]->Text;
edtAlamat->Text = DBGrid1->Columns->Grid->Fields[2]->Text;

Form dari proyek ini akhirnya berbentuk seperti dibawah ini:

Menghapus Data MS Access dengan TAdoQuery 2015-08-09T19:34:00-07:00 Rating: 4.5 Diposkan Oleh: Good Dreamer