Sunday, November 20

VB.NET 2005 dan Cara Koneksi DataBase

Koneksi VB.Net 2005 dengan data base Access 2003
Untuk membuat koneksi database VB.Net ke Access 2003 kurang lebih kaya gini :
buka jendela coding dan tulis coding berikut :

Imports System.Data.OleDb
Public Class TampilGrid
Dim Conn As OleDbConnection
Dim da As OleDbDataAdapter
Dim ds As DataSet
Sub Koneksi()
     str = "provider=microsoft.jet.oledb.4.0;data source=db1.mdb"
     Conn = New OleDbConnection(str)
              If Conn.State = ConnectionState.Closed Then Conn.Open()
     End Sub

Private Sub TampilGrid_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Koneksi()
da = New OleDbDataAdapter("Select * from barang", Conn)
ds = New DataSet
ds.Clear()
da.Fill(ds, "Barang")
DGV.DataSource = (ds.Tables("Barang")) 'DGV adalah nama grid yang di ubah name nya'
End Sub
End Class

Cara membuat string koneksi access 2003
1. klik kanan toolbox
2. pilih choose items













3. ketik oledd, centang oledbconnection dan klik OK       
4. Klik 2x oledbconnection
   
     5.                                                      6.
 7.                                                                          












8.

 9.                                                                       














10.
11. string koneksi yang dihasilkan adalah
Provider=Microsoft.Jet.OLEDB.4.0;Data Source="D:\1 vb.net 2005\modul vb.net 2005 April 2011\Latihan1\Latihan1\bin\Debug\db1.mdb"
Catatan : posisi drive dan folder dapat dilepas menjadi :
Str= “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=db1.mdb"

Koneksi Vb.Net 2005 Dengan Database Access 2007
Imports System.Data.OleDb
Public Class TampilGrid
Dim Conn As OleDbConnection
Dim da As OleDbDataAdapter
Dim ds As DataSet
Sub Koneksi()
       str = "provider=microsoft.ACE.OLEDB.12.0;data
       source=LATIHAN1.ACCDB.mdb"
       Conn = New OleDbConnection(str)
                If Conn.State = ConnectionState.Closed Then Conn.Open()
End Sub
Private Sub TampilGrid_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Koneksi()
da = New OleDbDataAdapter("Select * from barang", Conn)
ds = New DataSet
ds.Clear()
da.Fill(ds, "Barang")
DGV.DataSource = (ds.Tables("Barang")) 'DGV adalah nama grid yang di ubah name nya'
End Sub
End Class

yah sgitu dulu slamat mencoba yah,..
kurang jelas ? sox di unduh aja disini

No comments:

Post a Comment

Wilujueng Sumping

Sasieureun sabeunyeuren uarng bagi elmu nu manfaat kanggo urang sadayana. Bilih aya nu teu geunah hapunten sateuacana.