Tutorial VB | Koneksi ke database

Masih seputar VB. Kali ini saya bahas tentang koneksi database di vb, mungkin diantara kalian ada yang pernah mengalami kesulitan pada project database di vb.Masalahnya itu saat project + database pindah dari folder asal project itu dbuat (awalnya). Data base tidak terdeteksi di project,jadi mesti koneksi ulang lagi...

Dari hal itu, saya akan sedikit share ilmu tentang koneksi database dengan menggunakan modul.
Ok langsung ajah ke TKP :
Tahap awalnya itu kalian tentunya sudah buat database di folder yg sama dengan project.
Komponen yg di gunakan :
- Adodc
- DataGrid
- Module


Ketikkan Listing ini di modul :


Public CONN As New ADODB.Connection 'Sebagai koneksi adodc
Public TblData As ADODB.Recordset ' sebagai pengganti recordset

Public Sub BUKADB() 'deklarasi peng koneksian
Set CONN = New ADODB.Connection
CONN.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Persist Security Info=False;Data Source=" & App.Path & _
"\DataBase\Database.mdb;Mode = readwrite"
CONN.Open
End Sub

Tuliskan Listing ini di form :

Sub bersih()
talmt = ""
tkode = ""
Tnama = ""
End Sub
Sub REFRESHDATA()
BUKADB
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & "\DataBase\Database.mdb"
Adodc1.RecordSource = "data"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
DataGrid1.Refresh
End Sub
Private Sub CmdCancel_Click()
bersih
tkode.SetFocus
End Sub

Private Sub CmdKeluar_Click()
pesan = MsgBox("Mau Keluar???", vbQuestion + vbOKCancel, "Exit")
If pesan = vbOK Then End
End Sub

Private Sub cmdsimpan_Click()
BUKADB
simpandata = "insert into data (kode,nama,alamat)values " & _
"('" & tkode & "','" & Tnama & "','" & talmt & "')"
CONN.Execute simpandata
REFRESHDATA
MsgBox "Data Sudah Disimpan", vbInformation, "Simpan"
bersih
tkode.SetFocus
End Sub


Private Sub Form_Load()
REFRESHDATA
End Sub


sumber : http://vbsource-code.blogspot.com/2011/05/koneksi-dengan-modul.html