Engga ada orang bodoh didunia ini, orang malas banyak.
oke langsung aja
download databasenya disini
pertama egan buat dulu projectnya di vb.net
sebelum itu jangan lupa buat database dan save dengan extention .mdb ( 2000 - 2003 )
setelah itu kita buat module dulu di vb.net , Disini ane make vb.net 2008
Public conn As OleDbConnection
Public cmd As OleDbCommand
Public data_reader As OleDbDataReader
Public data_adapter As OleDbDataAdapter
Public sql As String
Public data As String
Public str As String
Public Sub sambung()
'masukkan provider Ms Acces Dengan ext .mdb
data = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=app.net.mdb"
'Deklarasi variable koneksi
conn = New OleDbConnection(data)
'Syntax OpenConection
If conn.State = ConnectionState.Closed Then
conn.Open()
End If
End Sub
Sekian dulu dari ane gan ditunggu komennya .
=========================================================================
oke langsung aja
download databasenya disini
pertama egan buat dulu projectnya di vb.net
sebelum itu jangan lupa buat database dan save dengan extention .mdb ( 2000 - 2003 )
setelah itu kita buat module dulu di vb.net , Disini ane make vb.net 2008
Setelah itu masukkin syntax ini di module kalian
sebelum itu kita import dulu library oledbnya, libary oledb ini untuk menghubungkan ms access ke vb.net.
Syntax :
(Letakan diatas Modul)
Imports System.Data.OleDb
setelah itu masukkin coding modulnya
ingat posisi syntax ini dibawah public class
Public conn As OleDbConnection
Public cmd As OleDbCommand
Public data_reader As OleDbDataReader
Public data_adapter As OleDbDataAdapter
Public sql As String
Public data As String
Public str As String
Public Sub sambung()
'masukkan provider Ms Acces Dengan ext .mdb
data = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=app.net.mdb"
'Deklarasi variable koneksi
conn = New OleDbConnection(data)
'Syntax OpenConection
If conn.State = ConnectionState.Closed Then
conn.Open()
End If
End Sub
Sekian dulu dari ane gan ditunggu komennya .
=========================================================================
Thanks mas sangat bermanfaat
BalasHapusyaa sama" mass
BalasHapusmaksudnya 'masukkan provider Ms Acces Dengan ext .mdb
BalasHapusdata = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=app.net.mdb"
saya akan coba yah mas
BalasHapusMantap gan, makasih yaa
BalasHapus