Langkah Langkah Koneksi Microsoft Accsess Ke Delphi

 Kali Ini Saya Posting Tentang Program Delphi dan cara mengkoneksikan database Microsoft Access ke Delphi .. Nih Caranya Simak Baik Baik Yahhh ....

   Ø     Buatlah Database Data Barang Menggunakan Microsoft Accsess

1.    Buka Ms.Accsess Pada Microsoft Office

2.    Pilih Blank database

Di samping Kanan pada File Name isi menjadi Data_BRG lalu save pada Folder yang di inginkan, klik pada lingkaran yang berwarna  Merah Kemudian klik Create

           4.     Pada pojok kiri atas Klik View Kemudian akan muncul Table Name lalu isi TBL_BRG     lalu klik Ok.

   Isi Filde name dan Data Type seperti gambar di bawah ini Dengan Filed Size yang  di butuhkan.

6.  Setelah Selesai Membuat Tabel Barang kemudian save Pada Microsoft Accsess 2003 seperti gambar di bawah Pilih Folder Yang di inginkan.

Ø  Buka Borland Delphi  kemudian pada lembar kerja form1.

·         Masukan Kompnen Sbb:

1.      5 Label, 5 Edit dan 2 Button.

2.      1 Dbigrd (dalam komponen Data Controls) digunakan Untuk Menampilkan data table pada Form.

3.      1 Datasource (dalam komponen data Access) digunakan untuk koneksi database.

4.      1 ADOtable (Dalam Komponen ADO)

·         Desain Form

•         Hasil Project

·         Koneksi Database ke Delphi

1.      Pada ADOtable Di Properties Pilih ConectionString

2.      Lalu akan muncul gambar seperti di bawah ini, Klik Build.

                      3.      Lalu akan muncul Data link Properties pilih Microsoft 4.0 OLE DB Provider.lalu klik Next.

4.      Lalu pada No.1 klik gambar … lalu pilih database yang di simpan di folder tadi,lalu klik Test Conection kalau sudah konek klik tombol OK.

·         Setting Properties

Object	properties
	Name	Caption/Text	Tablename	Active	DataSource/Dataset
Label1	Label1	KodeBarang	-	-	-
Label2	Label2	NamaBarang	-	-	-
Label3	Label3	Harga	-	-	-
Label4	Label4	Jumlah	-	-	-
Label5	Label5	satuan	-	-	-
Edit1	Ed_Kode	-	-	-	-
Edit2	Ed_Nama	-	-	-	-
Edit3	Ed_Harga	-	-	-	-
Edit4	Ed_Jumlah	-	-	-	-
Edit5	Ed_Satuan	-	-	-	-
Button1	BTN_Simpan	Simpan	-	-	-
Button2	BTN_Keluar	Keluar	-	-	-
ADOTabel1	ADO_BRG	-	Data_BRG	True	-
DataSource1	Datasource1	-	-	-	ADO_BRG
DBGird1	DBGird1	-	-	-	DataSource1

Ø  Coding Program

Pada Button Simpan Di klik Lalu masukan Coding Sbb:

procedure TForm1.Button1Click(Sender: TObject);

begin

ADO_BRG.Append;

FORM1.ADO_BRG['KodeBarang']:= Ed_Kode.Text;

FORM1.ADO_BRG['NamaBarang']:= ed_Nama.Text;

FORM1.ADO_BRG['Harga']:= Ed_harga.Text;

FORM1.ADO_BRG['Jumlah']:= Ed_Jumlah.Text;

FORM1.ADO_BRG['satuan']:= Ed_Satuan.Text;

ADO_BRG.Post;

Ed_Kode.Text:=' ';

Ed_Nama.Text:=' ';

Ed_Harga.Text:=' ';

Ed_Jumlah.Text:=' ';

Ed_satuan.Text:=' ';

Ed_Kode.SetFocus;

end;

end.

Kemudian jalankan Programnya Tekan F9.

Semoga Bermanfaat yahh

•