Berikut cara koneksi databaseMicrosoft Access pada Visual Basic .Net
Buat tampilan seperti dibawah :
Buat module untuk koneksi database access, cara klik menu “Project -> Add Module”. kasih nama tersebut “koneksiDatabase.vb” setelah itu klik tombol “Add”.
Imports System.Data.OleDb
Module koneksiDatabase
Public Connection As OleDbConnection
Public CMD As OleDbCommand
Public Adapter As OleDbDataAdapter
Public Data As OleDbDataReader
Public DataSet As New DataSet
Public Sub OpenConnection()
Dim database As String
database = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=/datadirectory/dbdata.accdb"
'atau bisa dengan sintak dibawah juga' database = "provider=microsoft.jet.oledb.4.0;data source=" & dir & _";Jet OLEDB:Database Password=" & password & ";persist security info=false;"
Connection = New OleDbConnection(database)
If Connection.State = ConnectionState.Closed Then
Connection.Open()
End If
End Sub
End Module
Setelah itu, double klik pada form1, maka akan keluar event form1_load, isikan sintak berikut :
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Call OpenConnection()
End Sub
Kemudian, double klik pada button connect, maka akan keluar editor, isikan sintak berikut :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If Connection.State = ConnectionState.Closed Then
MsgBox("Koneksi Gagal", vbCritical, "Disconnected")
Else
MsgBox("Koneksi Berhasil", vbOKOnly, "Connected")
End If
End Sub
Lalu jalankan tekan F5, setelah itu klik Connect, maka hasilnya adalah :
Jika berhasil
