Mengkoneksikan Microsoft Access 2007 dengan Visual Basic 6.0

Cara Menghubungkan Database Access .accdb 2007 dengan VB  

Database merupakan bank data yang kita input pada sebuah program. Database terdiri dari beberapa tabel sesuai dengan pengelompokan data yang kita inginkan. Misal kita ingin membuat program Pembelian barang. Maka tabel yang akan kita butuhkan antara lain data barang, data Beli, data supplier dan lain-lain.

Untuk membuat File database,kita bisa menggunakan program visual data manager (visdata) atau program lain, misalnya program microsoft access.

Visual data manager adalah suatu program “ Add-Ins “, yaitu program terpisah yang “ditampilkan” dalam MS-Visual Basic 6.0, sehingga bisa dipakai sebagai bagian  dari program MS-Visual Basic 6.0.

Memanggil visual data manager :

1. Klik menu Add-Ins
2. Pilih visual data Manager (Posisi file system pada : C:\WINDOWS\SYSTEM )

 Berikut ini cara membuat file data base. Sebagai contoh kita akan membuat sebuah file data base dengan nama “pembelian”, yang didalamnya terdapat 3 tabel yaitu : Supplier, Barang dan,  Beli.  Adapun struktur database dari ketiga tabel tersebut adalah :

Tabel Barang

 

No	Nama Field	Tipe	Lebar
1	Kode	Text	6
2	Nama	Text	30
3	Satuan	Text	5
4	Harga	Single

 

Tabel Supplier 

No	Nama field	Tipe	Lebar
1	Kode	Text	5
2	Nama	Text	30
3	Alamat	Text	30
4	Kota	Text	10
5	Telepon	Text	20

Tabel Beli

No	Nama field	Tipe	Lebar
1	KodeSpl	Text	5
2	KodeBrg	Text	6
3	NoFaktur	Text	10
4	TgFaktur	Date/Time
5	Banyak	Single
6	Harga	Single

Membuat Database (dalam Format MS.ACCESS)

1. Pada jendela visdata yang telah dibuka , klik menu File- New,
2. Pilih microsoft Access- version 7.0 MDB 

   

3.  Tampil Jendela select Microsoft Access DataBase to create
4. Ketik nama file database pada file name : (dalam hal yang ini ketik Pembelian )
5. Klik Save.

   

6. Pada jendela Database window, arahkan panah mouse pada properti dan klik tombol kanan  mouse.
7. Klik new Tabel  
   
8. Setelah Muncul Tampilan Tabel Structure Ketik  "barang " pada Table Name 
   
9.  Klik Add Field ( untuk menambahkan field dan akan tampil jendela Add Field)
10.  Ketik kode pada kolom Name, pilih Text pada kolom Type, Ketik 6 pada kolom Size
11. Pilih Option Button Pada Pilihan FixedField agar lebih field bersifat tetap,sehingga tidak dapat berubah pada saat program di jalankan, dan klik Ok 

    

12. Ulangi langkah no 10 sampai 11 untuk mengisi Nama,Satuan, dan Harga ( lihat tabel diatas )
13. Jika selesai klik Close
14. Untuk Membuat  tabel Supplier dan Beli lakukan hal yang sama seperti mebuat tabel barang 
15. Jika tabel sudah di buat semua Klik Build the Table, 
    

Membuat index data :

Index data adalah urutan data pada suatu tabel database. index data diperlukan terutama untuk pencarian data dengan cepat dan pengelompokan data.

Langkah- langkahnya : 

1.  Masih pada jendela VisData, Arahkan panah mouse pada nama file (tabel ), klik tombol kanan mouse dan klik design.
2. Setelah itu Muncul Tampilan jendela Tabel Structure Klik Add Index
3. Ketik nama index ( misalnya  kode Brg) pada kolom Name
4. Klik index pada kolom Acilable Field,
5. Tentukan pilihan primary, unique dan igmoreNulls
6. Jika sudah selesai Kklik Ok

   

7.  Ulangi langkah langkah yangtadi jika ada index lain yang ingin ditambahkan ( perhatikan ! hanya boleh ada satu kunci primary pada satu tabel database )
8. Apabaila sudah selesai Klik close
9. Untuk keluar pada program Visual Data Manager Klik File-Exit 

MEMBUAT FORM 

1. Buka Microsoft Visual Basic, buat project baru dengan sebuah form. Karena Kita akan mengkoneksikan VB dengan Access 2002-2003 yang tidak disupport oleh Vb 6, maka harus menambahkan komponen baru dengan cara mengeklik Project- Components.
   
   
   
2.  SetelahItu akan muncul jendela Components, Pilih Microsoft ADO Data Control 6.0 (SP3) dan Microsoft DataGrid Control 6.0 dengan cara mengklik kotak di sebelah kiri tulisan tersebut. Lalu Klik OK.
   
   
3. Setelah itu pada tampilan toolbar anda akan muncul icon ADO Control (Adodc) dan DBGrid.
4.  langkah selanjutnya disain form seperti tampilan berikut  
   
5.  Atur Properti Seperti Ketentuan berikut

6. Obyek	Properti	Pengaturan
   Adodc	Capion Name EOFAcction ConnectionString  RecordSource	Data Barang DbPembelian 2-adDoAdNew Pilih OptionButton pada Use Connection string-Build Pilih Microsoft Jet 4.0 OLEDB Provider-Next Pada kolom select or enter a database name masukan nama database yang digunakan  ( contoh pembelian)- Klik Ok Command type : 2-adCmdTable Table or stored Procedure Name : Barang- Klik OK
   TextBox 1	Name DataSource Data Field Text	TxtKode DbPembelian Kode (Kosong )
   TextBox 2	Name DataSource Data Field Text	TxtNama DbPembelian Nama (Kosong )
   TextBox 3	Name DataSource Data Field Text	TxtSatuan DbPembelian Satuan (Kosong )
   TextBox 4	Name DataSource Data Field Text	TxtHarga DbPembelian Harga (Kosong )
   Label 1	Caption	Kode Barang
   Label 2	Caption	Nama Barang
   Label 3	Caption	Satuan
   Label 4	Caption	Harga

7. Coba Jalankan Program Maka Tampilan akhirnya seperti Berikut :

Tanda " |< "digunakan untuk kembali ke nomor awal," < " digunakan untuk kembali ke nomor sebelumnya, "> " untuk menuju nomor berikutnya, " >| " untuk menuju nomor yang paling akhir.