Test Koneksi Database Access Pada VB Net

Dalam membuat suatu program koneksi dalam database pasti sangat diperlukan baik itu berupa database access, MySql, Sql Server maupun lainnya. Untuk itu diperlukan suatu perintah untuk menghubungkan ke dalam database itu tersendiri.

Pada kesempatan kali ini saya akan membagikan cara membuat Test Koneksi Database Access Pada VB Net

1. Buat terlibih dahulu database Access sebagai contoh saya membuat database Access dengan nama "db_laithan.accdb"

2. Buka Visual Studio 2013 dan buat New Project sebagai contoh saya beri nama project ini "KoneksiAccess"

3. Pindahkan database db_latihan tersebut ke dalam folder "Debug" pada directory project yang kita buat. contoh : "D:\koneksiAkses\koneksiAkses\bin\Debug"

4. Tambahkan Module, caranya Klik kanan pada project KoneksiAccess pilih "Add - Module" berikan nama "mdlKoneksi" atau nama bebas sesuka kalian.

5. Ketikan kode pada gambar di bawah ini :

Imports System.Data.OleDb

Module mdlKoneksi

    Public conn As OleDbConnection

    Public daData As New OleDbDataAdapter

    Public dsData As New DataSet

    Public cmd As OleDbCommand

    Public rd As OleDbDataReader

    Public Query As String

    Public Sub KoneksiKeAccess()

        Query = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source = |DataDirectory| \db_latihan.ACCDB"

        conn = New OleDbConnection(Query)

        Try

            If conn.State = ConnectionState.Closed Then

                conn.Open()

                MsgBox("koneksi database berhasil")

            End If

        Catch ex As Exception

            MsgBox("koneksiAccess database GAGAL")

        End Try

    End Sub

End Module

6. Selanjutnya pada Design Form1 tambahkan button dengan beri penamaan "Test Koneksi" dan "btnKoneksi" seperti pada gambar dibawah ini

7. Klik dua kali pada "Test Koneksi" tuliskan code "KoneksiKeAccess()" seperti pada gambar dibawah ini setelah itu save dan jalankan programnya.

Imports System.Data.OleDb
Public Class Form1

    Private Sub btnKoneksi_Click(sender As Object, e As EventArgs) Handles btnKoneksi.Click
        KoneksiKeAccess()

    End Sub
End Class

8. Jika sukses maka saat kitak klik Test Koneksi akan muncul "koneksi database berhasil"

Seperti itulah salah satu cara membuat Test Koneksi Database Access Pada VB Net semoga dapat menambah wawasan dan berguna bagi kita semua sekian dan terima kasih. Tinggalkan pertanyaan jika masih kurang jelas.