CARA KONEKSI DATABASE Access 2000 VB.Net

Kini saya berikan cara mengkoneksikan database Access 2000 ke vb.net.

Cara membuat string koneksi access 2000

1. klik kanan toolbox
2. pilih choose items
3.
4. ketik oledd
5. centang oledbconnection
6. OK
7.

8. klik dua kali oledbconnection
9.

10.

11.

12.

13.

14.

15.

16. string koneksi yang dihasilkan adalah
Provider=Microsoft.Jet.OLEDB.4.0;Data Source="D:\1 vb.net 2005\modul vb.net
2005 April 2011\Latihan1\Latihan1\bin\Debug\db1.mdb"
Catatan : posisi drive dan folder dapat dilepas menjadi :
Str= “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=db1.mdb"
Database access 2007
1. Buka project vb.net 2005 pertemuan sebelumnya
2. buka access 2007
3. Blank Database



6. Ketik nama file dan simpan di folder BIN > DEBUG
7. Create



8.Memberi Nama Tabel





Rancangan Struktur Tabel Barang:

No	Nama Field	Type	Size	Ket
1	Kode_barang	Text	13	Primary Key
2	Nama_barang	Text	30
3	Harga_beli	Long Integer
4	Harga_jual	Long Integer
5	Jumlah_barang	Numeric
6	Satuan	Text	15

atau



Mengisi Data Secara Manual (Klik Dua Kali Nama Tabel)


Koneksi Vb.Net 2005 Dengan Database Access 2007
5. Buka vb.net
6. Buatlah form seperti gambar di bawah ini



7. ubah nama Datagridview1 menjadi GDV
8. buka jendela coding dan tulis coding berikut :

+ expand sourceview plaincopy to clipboardprint

1. Imports System.Data.OleDb
2. Public Class TampilGrid
3. Dim Conn As OleDbConnection
4. Dim da As OleDbDataAdapter
5. Dim ds As DataSet
6. Sub Koneksi()
7. str = "provider=microsoft.ACE.OLEDB.12.0;data
8. source=LATIHAN1.ACCDB.mdb"
9. Conn = New OleDbConnection(str)
10. If Conn.State = ConnectionState.Closed Then Conn.Open()
11. End Sub
12. Private Sub TampilGrid_Load(ByVal sender As System.Object, ByVal e
13. As System.EventArgs) Handles MyBase.Load
14. Koneksi()
15. da = New OleDbDataAdapter("Select * from barang", Conn)
16. ds = New DataSet
17. ds.Clear()
18. da.Fill(ds, "Barang")
19. DGV.DataSource = (ds.Tables("Barang"))
20. End Sub
21. End Class

Hasil program :