vb - Koneksi dengan MODUL

Masih seputar V. 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.
Okmlangsung 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


untuk sample projectnya bisa langsung download disini

*Jangan Lupa Like n follow yah :p

source http://vbsource-code.blogspot.com/2011/05/136075934514575.html