Visual Studio mendukung berbagai macam jenis database termasuk produk microsoft, namun taukah kamu ms accsess sendiri tidak hanya digunakan sebagai database saja, dapat juga membuat aplikasi, namun kali ini saya hanya akan membahas bagaimana cara membuat koneksi program vb.net agar dapat terkoneksi dengan database accsess.
Versi database accsess yang digunakan yaitu acceses 2010, baiklah kita awali latihan membuat koneksi vb.net dengan ms access ini,
Persiapan :
Buatlah database dengan ms access kemudian berilah nama db, buatkan tabel dengan nama login, properti dari tabel tersebut dapat dilihat seperti yang tertera dalam gambar berikut,
Kemudian isi tabel berikut sesuai dengan yang kamu inginkan, contoh data yang saya isi sebagai berikut
Baiklah sekarang kita fokus ke Visual Studio .Net, versi yang digunakan saat membuat tutorial ini yaitu vb.net 2008, sekarang buatlah project baru, beri nama Koneksi Vb.net Via Accsess sisipkan 2 Button dan 1 Datagridview
Selanjutnya buatlah class baru, berinama Koneksi.vb dan sisipkan kode dibawah ini
Imports Microsoft.VisualBasic
Imports System.Data.OleDb
Public Class koneksi
Public str As String
Public conn As OleDbConnection
Public cmd As New OleDbCommand
Public da As OleDbDataAdapter
Public ds As DataSet
Public dt As DataTable
Public rd As OleDbDataReader
Public Function openconn() As Boolean
' Try
' Provider = Microsoft.Jet.OleDb.4.0;data source=mydata.mdb;Jet Oledb:Database Password='passku'
conn = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=db.accdb")
conn.Open()
If conn.State <> ConnectionState.Open Then
Return False
Else
Return True
End If
' Catch ex As Exception
' End Try
End Function
Public Sub closeconn()
If Not IsNothing(conn) Then
conn.Close()
conn = Nothing
End If
End Sub
Public Function cek_koneksi()
Call openconn()
If Not openconn() Then
MsgBox("Koneksi Gagal")
Else
MsgBox("Koneksi Sukses")
End If
Return 0
End Function
Public Function ExecuteQuery(ByVal Query As String) As DataTable
If Not openconn() Then
MsgBox("koneksi gagal")
Return Nothing
Exit Function
End If
cmd = New OleDbCommand(Query, conn)
da = New OleDbDataAdapter
da.SelectCommand = cmd
ds = New DataSet
da.Fill(ds)
dt = ds.Tables(0)
Return dt
dt = Nothing
ds = Nothing
da = Nothing
closeconn()
End Function
Public Sub ExecuteNonQuery(ByVal Query As String)
' Try
If Not openconn() Then
MsgBox("Gagal Koneksi")
Exit Sub
End If
'On Error Resume Next
cmd = New OleDbCommand
cmd.Connection = conn
cmd.CommandType = CommandType.Text
cmd.CommandText = Query
cmd.ExecuteNonQuery()
cmd = Nothing
closeconn()
Exit Sub
' Catch ex As Exception
' End Try
End Sub
Public Sub ExecuteReader(ByVal Query As String)
If Not openconn() Then
MsgBox("Gagal Koneksi")
Exit Sub
End If
cmd = New OleDbCommand(Query, conn)
rd = cmd.ExecuteReader()
rd.Read()
End Sub
End Class
Jika proses class koneksi sudah selesai selanjutnya buatlah deklarasi pada form1
Dim proses As New koneksi
Dim sql As String
Dim datatable As DataTable
Selanjutnya sisipkan code di Button Cek koneksi dengan klik double pada tersebut
proses.cek_koneksi()
Selanjutnya sisipkan code di Button Tampilkan Data dengan klik double pada tersebut
Jika tidak ada code yang tidak terlewatkan maka hasilnya seperti ini
Selamat mencoba, jika ada eror atau kurang paham silahkan berkonsultasi dengan kami, kami akan membantu dengan senang hati
