Menampilkan Isi Tabel MS Access dengan TAdoQuery

1.  Letakkan komponen TAdoConnection, TAdoQuery, TDataSource dan TDBGrid pada form
   
   
   
2. Sambungkan TAdoConnection ke database MS Access di FormCreate
   
   

   AnsiString exeFile = Application->ExeName; AnsiString exePath = ExtractFilePath(exePath); ADOConnection1->Close(); ADOConnection1->LoginPrompt = false; ADOConnection1->ConnectionString =   “Provider=Microsoft.Jet.OLEDB.4.0;” + “Data Source= ” + exePath +   “\Data.mdb;Persist Security Info=False;”; ADOConnection1->Open();

   Koneksi diatas mengasumsikan kalau file database Data.mdb terletak di satu direktori dengan program aplikasi. Hal ini tampak dari perintah,
   Mengambil nama file exe dirinya sendiri. Jika anda meletakkan file KonekAccess.exe di direktori c:\Program, maka hasil dari perintah ini adalah c:\Program\KonekAccess
   AnsiString exeFile = Application->ExeName;
   Mengambil nama path dari file exe KonekAccess.exe, jika anda meletakaan di c:\Program, maka variabel exeFile akan berisi c:\ Program
   AnsiString exePath = ExtractFilePath(exePath);
   Variabel exeFile dipergunakan untuk mendapatkan posisi Data.mdb, dengan perintah berikut:
   
   ……….
   “Data Source= ” + exePath +
   ………..
3. Sambungkan TAdoQuery ke TAdoConnection di FormCreate
   
   

   ADOQuery1->Close(); ADOQuery1->Connection = ADOConnection1; ADOQuery1->SQL->Clear(); ADOQuery1->SQL->Add(“Select * from Pelanggan”); ADOQuery1->Open();

4. Sambungkan TDataSource ke TAdoQuery di FormCreate
   
   

   DataSource1->DataSet = ADOQuery1;

5. Sambungkan TDbGrid ke TDataSource di FormCreate
   
   

   DBGrid1->DataSource = DataSource1;

6. Sekarang isi dari FormCreate selengkapnya menjadi seperti ini:
   
   

   FormCreate

   void __fastcall TForm1::FormCreate(TObject *Sender) { AnsiString exeFile = Application->ExeName; AnsiString exePath = ExtractFilePath(exePath);ADOConnection1->Close(); ADOConnection1->LoginPrompt = false; ADOConnection1->ConnectionString = “Provider=Microsoft.Jet.OLEDB.4.0;Data Source= ” + exePath + “\Data.mdb;Persist Security Info=False;”; ADOConnection1->Open(); ADOQuery1->Close(); ADOQuery1->Connection =  ADOConnection1; ADOQuery1->SQL->Clear(); ADOQuery1->SQL->Add(“Select * from Pelanggan”); ADOQuery1->Open();DataSource1->DataSet = ADOQuery1; DBGrid1->DataSource = DataSource1;}

Menampilkan Isi Tabel MS Access dengan TAdoQuery 2015-08-08T22:17:00-07:00 Rating: 4.5 Diposkan Oleh: Good Dreamer