VB .Net - Cara Koneksi Database Access (.accdb)

Pada Tutorial Gratis VB .Net kali akan dibahas mengenai cara membuat koneksi database Access .accdb. Secara default jika anda membuat database access dengan Microsoft Office Access 2007 keatas ( Access 2010, access 2013, Access 2015 atau Access 2016 ) maka akan terbuat dengan Extension .accdb. Ada pengecualian jika anda menggunakan Access 2003, maka yang bisa dibuat adalah dengan Extension .MDB. Oleh karenanya pada tutorial lainnya, saya sudah buatkan tutorial koneksi database Access .MDB.

Namun anda juga bisa membuat Database Access .MDB pada Office Access 2007 keatas yang sudah saya buatkan pula tutorialnya dengan KLIK LINK INI.

Cara mengkoneksikan Database Access .ACCDB pada VB .NET sangat mudah, anda cukup mengikuti tutorial dibawah ini. Dan langsung di praktikan. Adapun jika ada kendala anda bisa berkomentar dibawah.

Berikut langkahnya :
LANGKAH 1 : Membuat Database dan Tabel Menggunakan Access 2007 atau 2010 atau 2013
Seperti yang sudah kami informasikan diatas, anda harus membuat database dengan Access.
Nama Database : DBJNM.accdb
Buatkah tabel dengan Nama : SISWA
Design Tabel SISWA seperti gambar dibawah ini :

VB .Net - Cara Koneksi Database Access (.accdb)
Gambar diatas adalah penampakan dari Tabel SISWA pada DBJNM.accdb dengan field :
NIS, NamaSiswa,JenisKelamin,Alamat,NamaBapak dan NamaIbu
Jika sudah berhasil membuat database dan Tabel seperti gambar diatas, anda bisa mengikuti langkah ke-2

LANGKAH 2 : Membuat Form1 Dengan Kodingnya
Jika anda sudah membuat database dan tabel, kini saatnya anda membuat form dan koding dengan VB .Net
Buka VB .Net anda
Jika sudah muncul Form1, silahkan design Form1 seperti gambar dibawah ini :

VB .Net - Cara Koneksi Database Access (.accdb)
Pada gambar diatas, hanya ditambahkan DataGridView

Kemudian masukan koding dibawah ini pada Form1
Imports System.Data.OleDb
Public Class Form1
    Dim Conn As OleDbConnection
    Dim da As OleDbDataAdapter
    Dim ds As DataSet
    Dim LokasiDB As String
    Sub Koneksi()
        LokasiDB = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=DBJNM.accdb"
        Conn = New OleDbConnection(LokasiDB)
        If Conn.State = ConnectionState.Closed Then Conn.Open()
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Koneksi()
        da = New OleDbDataAdapter("Select * from SISWA", Conn)
        ds = New DataSet
        ds.Clear()
        da.Fill(ds, "SISWA")
        DataGridView1.DataSource = (ds.Tables("SISWA"))
    End Sub
End Class 

Note :
Jangan lupa, database DBJNM.accdb di pindahkan ke Folder Bin\Debug Project VB .Net anda
Jika sudah silahkan jalankan Project anda, gambar dibawah adalah hasil jika anda running project VB .Net amda.

VB .Net - Cara Koneksi Database Access (.accdb)
Silahkan KLIK DISINI untuk mendownload Tutorial Diatas
Tutorial Mengkoneksikan database lainnya dengan Visual Basic .NET

Video Tutorialnya bisa dilihat di :
https://www.youtube.com/watch?v=whmCjAnQXeo

Demikian Tutorial Visual Basic .NET yaitu Cara Mengkoneksikan database Access .Accdb pada VB .NET, Semoga bermanfaat untuk anda. Silahkan anda share ke rekan anda atau anda bisa juga berkomentar dibawah. Jika anda sudah bisa mengkoneksikan database pada VB .NET, maka langkah selanjutnya anda bisa Input, Edit dan Delete Data didalam database dengan VB .NET.

6 comments:

  1. Versi instalasi untuk microsoft 2016 berapa?

    ReplyDelete
    Replies
    1. versinya 2007 keatas, boleh 2007 / 2020 / 2013 / 2016 / 2019 atau Office 365 juga bisa

      Delete
  2. Mohon donk dikasih penjelasan pula untuk koding nya, kenapa koding nya ditulia seperti itu, mungkin bisa dijelaskan kata demi kata, klo kita hnya copy coding diatas, mungkin kita bisa melakukan nya, tapi kita tdak tau maknanya. Sehingga kita tdak bisa mengembangkan atau membuat prjek baru dengan coding yg baru pula.


    Tolong dijelaskan untuk coding dibawah :

    Imports System.Data.OleDb
    Public Class Form1
    Dim Conn As OleDbConnection
    Dim da As OleDbDataAdapter
    Dim ds As DataSet
    Dim LokasiDB As String
    Sub Koneksi()
    LokasiDB = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=DBJNM.accdb"
    Conn = New OleDbConnection(LokasiDB)
    If Conn.State = ConnectionState.Closed Then Conn.Open()
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Koneksi()
    da = New OleDbDataAdapter("Select * from SISWA", Conn)
    ds = New DataSet
    ds.Clear()
    da.Fill(ds, "SISWA")
    DataGridView1.DataSource = (ds.Tables("SISWA"))
    End Sub
    End Class


    Terima kasih

    ReplyDelete
    Replies
    1. Hi Macruze, untk bisa mengerti perlu praktik yang panjang dan mempunyai jam terbang ( sering ngoprek ). dan sudah dijelaskan juga di Video saya.
      Silahkan buka Channel Youtube TECH TAWAR ya... penjelasan sudah detail.
      Terima kasih

      Delete
  3. Itu yg datasetnya dimasukin ke debug juga ga sih?

    ReplyDelete
    Replies
    1. database nya di masukan ke folder bin debug.
      Silahkan lihat video tutorialnya agar lebih jelas atau bisa Whatsapp ke saya. Thanks

      Delete