Rancangan ToolBox di atas seperti gambar berikut ini.
Setelah Anda mendesain Form dengan ToolBox di atas. Sekarang membuat file Access 2007 dengan nama Data_Base2007.accdb. Saya menyimpan pada Drive F.
Setelah langkah di atas selesai, ketikkan source program di bawah ini dengan mengarahkan kursor pada design Form, Klik kanan lalu pilih View Code.
Listing program sebagai berikut:
Imports System.Data.OleDb
Public Class Form1
REM Binding database table to DataGridView
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim con As OleDbConnection = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=F:\Data_Base2007.accdb;Persist Security Info=False;")
REM untuk koneksi access 2003 dan access 2000 gunakan listing di bawah ini
REM Dim con As OleDbConnection = New OleDbConnection("Provider=Microsoft.jet.oledb.4.0;data source=D:\Data_Base2007.mdb")
Dim cmd As OleDbCommand = New OleDbCommand("SELECT * FROM Table1", con)
con.Open()
Dim myDA As OleDbDataAdapter = New OleDbDataAdapter(cmd)
Dim myDataSet As DataSet = New DataSet()
myDA.Fill(myDataSet, "MyTable")
DataGridView1.DataSource = myDataSet.Tables("MyTable").DefaultView
con.Close()
con = Nothing
End Sub
End Class
Setelah mengetikkan Listing Source Program di atas tekan F5. Tampilan Visualnya seperti gambar paling atas.
Untuk M O Access 2000 ke Visual Basic 2008 Klik Tutorial ini ==> di sini
Selamat mencoba Guys! Nantikan Tips Aplikasi Cantik Lainnya by Verynandus Hutabalian
0 komentar:
Posting Komentar