Cara membuat database Acces 2007 2010 2013 2016 ke VB.NET

Membuat database tidak mudah di lakukan bagi para pemula. Namun di VB.Net saya akan menunjukan bagaimana membuat database Acces mulai dari Acces 2007, 2010, 2013 bahkan Microsoft Access 2016. Perlu anda ketahui format atau Extension database Access adalah (Accdb). Berbeda dengan Microsoft Acces 2003 yaitu dengan extensi (.MDB).

Perbedaan koneksi database Access 2003 dan 2007 hanya terletak di bagian extensi dan syntak pemanggilan saja, jadi tentukan pilihan anda sendiri. Biasanya saya lebih favorite di Microsoft Access 2010 daripada 2003. Saya pribadi lebih mudah paham membuat koneksi database VB.net menggunakan Microsoft Access 2010 terutama di syntak codingannya.

Di bawah akan saya jelaskan mengkoneksi database menggunakan access 2010 dengan contoh nama database PENJUALAN dan nama tabel yaitu BARANG.

Langkah koneksi database access 2010 ke VB.NET

Langkah 1 yaitu buatlah database dengan nama PENJUALAN dan nama tabel BARANG. Caranya buka Access masing-masing dan create database > Ganti nama tabel1 dengan klik kanan Design View dan silahkan ganti namanya sesuai keinginan.

Langkah 2 silahkan kalian tentukan seperti gambar di bawah ini dan simpan.

Id barang — id_barang sebagai primary key

Langkah 3 silahkan kalian isi seperti gambar di bawah ini

Langkah 4 silahkan kalian buka Vb.NET masing-masing. Saya di sini menggunakan VB.Net ultimate 2010. Buatlah Form baru dan tambahkan Datagridview, dan button1.

Langkah 5 Masukan code seperti berikut. Baca Juga : Belajar Vb.Net menentukan sebuah kondisi if then

Imports System.Data.OleDb 'masukan kode ini diatas public class form1
Public Class Form1


    Dim Conn As OleDbConnection 'kode ini di bawah form1
    Dim da As OleDbDataAdapter
    Dim ds As DataSet
    Dim Lokasidatabase As String

    Sub Koneksi()
        Lokasidatabase = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=PENJUALAN1.accdb"
        Conn = New OleDbConnection(Lokasidatabase)
        If Conn.State = ConnectionState.Closed Then Conn.Open()
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Koneksi() 'masukan kode ini di button1
        da = New OleDbDataAdapter("Select * from Barang", Conn)
        ds = New DataSet
        ds.Clear()
        da.Fill(ds, "Barang")
        DataGridView1.DataSource = (ds.Tables("Barang"))
    End Sub
End Class

Penjelasan

Imports System.Data.OleDb = ini bertujuan untuk membaca semua koneksi Access ke VB.Net silahkan kalian pelajari disini .
Dim Lokasidatabase As String = memanggil string nama database.
Sub Koneksi() = Membuat dan membuka fungsi letak direktori database berada dan menutup koneksi database.
DataGridView1.DataSource = (ds.Tables(“Barang”)) = membuka koneksi dan menampilkan data dari datasheet tabel barang.