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
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
