Menambah Data MS Access dengan TAdoQuery

Buatlah form dengan tata letak seperti dibawah ini

Obyek-obyek yang perlu ditambahkan adalah 3 TLabel, 3 TEdit, 1 TDBGrid, 3 TButton, 2 TADOQuery. Sebagai catatan, kita membutuhkan 2 TADOQuery karena kita menggunakannya untuk 2 kepentingan yang berbeda. Satu Query dibutuhkan untuk menampilkan data pada TDBGrid, satunya lagi dipergunakan untuk operasi data, dalam artikel ini, operasi data tersebut adalah menambahkan data

Program ini akan diberi skenario sebagai berikut:

Seluruh koneksi data sudah dijalankan. Kode program dibawah ini ditulis di FormCreate

/* Mengambil path dari file exe dirinya sendiri */
AnsiString exeFile = Application->ExeName;
AnsiString exePath = ExtractFilePath(exePath);

/* Menghubungkan diri ke database Data.mdb */
ADOConnection1->Close();
ADOConnection1->LoginPrompt = false;
ADOConnection1->ConnectionString =
“Provider=Microsoft.Jet.OLEDB.4.0;Data Source= ” + exePath +
“\Data.mdb;Persist Security Info=False;”;
ADOConnection1->Open();

/* menghubungkan DBGrid1 dengan AdoQuery agar dapat menampilkan data*/
DataSource1->DataSet = ADOQuery1;
DBGrid1->DataSource = DataSource1;

Tambahkan kode program berikut pada FormCreate. Kode ini digunakan agar query nantinya dapat menampilkan perubahan data pada tabel yang bersangkutan dengan hanya menggunakan perintah Refresh() dari obyek Query itu sendiri
ADOQuery1->CursorLocation = clUseServer;

Pada FormCreate, tulislah aksi Query yang akan mengambil data dari database untuk diperlihatkan di grid

/* menjalankan query untuk menampilkan data pada grid */
ADOQuery1->Close();
ADOQuery1->Connection = ADOConnection1;
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Add(“Select * from Pelanggan”);
ADOQuery1->Open();

Saat dijalankan pertama kali, tombol btnTambah dan btnTutup dibuat enable, sedangkan tombol btnSimpan dibuat disable. Tombol btnSimpan akan enable saat tombol btnTambah ditekan.

btnTambah->Enabled = true;
btnSimpan->Enabled = false;
btnTutup->Enabled = true;
Saat tombol btnTambah ditekan, maka seluruh kotak masukan edtIDCustomer, edtNamaCustomer dan edtAlamat akan dikosongkan dan tombol btnSimpan di-enable, sedangkan tombol btnTambah sendiri dibuat disable.
Kemudian pointer akan diarahkan ke edtIdCustomer dengan perintah SetFocus

edtIDCustomer->Clear();
edtNamaCustomer->Clear();
btnTambah->Enabled = false;
btnTutup->Enabled = true;
edtIDCustomer->SetFocus();

Tombol btnSimpan digunakan untuk menjalankan query agar data dapat disimpan pada Data.mdb. Sesudah tombol btnSimpan ditekan, maka btnSimpan akan dibuat disable, sementara tombol btnTambah akan dibuat enabled kembali. Kode program pada btnSimpanClick adalah sebagai berikut:

void __fastcall TForm1::btnSimpanClick(TObject *Sender)
{ ADOQuery2->Close();
   ADOQuery2->SQL->Clear();

     ADOQuery2->SQL->Add(
           “insert into pelanggan(ID_CUSTOMER, NAMA_CUSTOMER, ALAMAT)”);

    ADOQuery2->SQL->Add(
              “values(:IDCUSTOMER, :NAMACUSTOMER, :ALAMAT)”);

/* siapkan parameter penerimaan data */
ADOQuery2->Parameters->ParamByName(“IDCUSTOMER”)->Value = edtIDCustomer->Text;

ADOQuery2->Parameters->ParamByName(“NAMACUSTOMER”)->Value = edtNamaCustomer->Text;
   ADOQuery2->Parameters->ParamByName(“ALAMAT”)->Value = edtAlamat->Text;
ADOQuery2->ExecSQL();
if (ADOQuery2->RowsAffected > 0)
{
      edtIDCustomer->Text = DBGrid1->Columns->Grid->Fields[0]->Text;
      edtNamaCustomer->Text = DBGrid1->Columns->Grid->Fields[1]->Text;
      edtAlamat->Text = DBGrid1->Columns->Grid->Fields[2]->Text;

/* tampilkan perubahan pada grid */
      ADOQuery1->Refresh();

     ShowMessage(“Data telah disimpan”);   }
else
   {
   ShowMessage(“Data tidak dapat disimpan”);
   edtIDCustomer->SetFocus();
   };
}