Love Timor: MEMBUAT KONEKSI DATABASE VISUAL BASIC.NET KE MS. ACCESS

MEMBUAT KONEKSI DATABASE VISUAL BASIC.NET KE MS. ACCESS

Dalam membuat aplikasi database dengan bahasa pemrograman koneksi ke database adalah salah satu tahan paling awal yang harus dilakukan sebelum memulai mendevelop sebuah system. Berikut adalah satu contoh bagaimana membuat koneksi database dari vb.net 2010 ke database ms. Access 2007.

Jalankan Visual Studio 2010 kamu
Buat sebuah form untuk membuat koneksi dari vb.net ke database ms. Access. Berikut ada contoh form yang saya buat dengan nama form1.
Buat Database Ms. Access. Sebagai contoh database saya gunakan database dengan nama db_atoinmeto.mdb. dan tempatkan database didalam folder bin/debug dalam project anda.
Dobel klik pada form1 diatas kemudian masukan listing code berikut ke dalamnya

 Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
Imports System.Data.OleDb
Imports System.Data
Public Class Kamus
    Dim cnn As OleDbConnection
    Dim cmmd As OleDbCommand
    Dim dReader As OleDbDataReader
    Dim sql As String = ""
    Public strConn As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
          Application.StartupPath & "\db_atoinmeto.mdb;"
    Private Sub Kamus_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        cnn = New OleDbConnection(strConn)
        If cnn.State <> ConnectionState.Closed Then cnn.Close()
        cnn.Open()
        MsgBox(" Koneksi ke Database Sukses!")
    End Sub

End Class

Tekan F5 untuk menjalankan program tersebut.Bila sukses akan muncul pesan “Koneksi Ke database Sukses!”