Mengkoneksikan Ms,Acces ke Visual Basic 2010
Terlebih dahulu buat database menggunakan Ms.Acces.. sebagai contoh saya membuat database mahasiswa seperti berikut
Lalu isikan atribut dalam tabel tersebut
Lalu buka visual basic 2010 -> New Project -> Windows form Application -> OK
Setelah muncul tampilan form, Klik Data pada toolbar standar -> pilih Add New Data source
akan muncul dialog seperti dan klik next
kemudian klik Next
pilih new connection
pilih Ms access database file pada change
data source dan browse file database yg tadi dibuat..klik test
conection untuk mengetahui berhasil atau tidak koneksinya.
Jika sudah succeed klik ok lalu ok
centang tables lalu pilih finish
drag tbmahasiswa dan ubah jurusan menjadi combobox pada tada panah kebawah disamping kanan
buat button pertama,terakhir,sebelum,selanjutnya,simpan,cari,hapus,tambah dan keluar
Setelah program dijalankan
klik tombol tambah
tombol simpan
tombol hapus
tombol pertama
tombol terakhir
tombol sebelum
tombol cari
Listing program diatas
Public Class Formmahasiswa
Private Sub TbMahasiswaBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TbMahasiswaBindingNavigatorSaveItem.Click
Me.Validate()
Me.TbMahasiswaBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.DbMahasiswaDataSet)
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'DbMahasiswaDataSet.TbMahasiswa' table. You can move, or remove it, as needed.
Me.TbMahasiswaTableAdapter.Fill(Me.DbMahasiswaDataSet.TbMahasiswa)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TbMahasiswaBindingSource.MoveFirst()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TbMahasiswaBindingSource.MoveLast()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
TbMahasiswaBindingSource.MovePrevious()
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
TbMahasiswaBindingSource.MoveNext()
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Me.Validate()
Me.TbMahasiswaBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.DbMahasiswaDataSet)
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
TbMahasiswaBindingSource.AddNew()
End Sub
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
Me.Validate()
Me.TbMahasiswaBindingSource.RemoveCurrent()
Me.TableAdapterManager.UpdateAll(Me.DbMahasiswaDataSet)
End Sub
Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
Dim carinama As String
Dim posisi As Integer = 1
carinama = InputBox("Masukkan Nama", "Cari Nama")
If (TbMahasiswaBindingSource.Find("Nama_Mahasiswa", carinama)) > -1 Then
MsgBox("Data Ditemukan", vbOKOnly, "Pencarian data")
Me.TbMahasiswaBindingSource.Position = TbMahasiswaBindingSource.Find("Nama_Mahasiswa", carinama)
posisi = TbMahasiswaBindingSource.Find("Nama_Mahasiswa", carinama) + 1
Else
MsgBox("Data Tidak ditemukan", vbOKOnly, "Pencarian Data")
End If
End Sub
Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
Me.Close()
End Sub
End Class
Private Sub TbMahasiswaBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TbMahasiswaBindingNavigatorSaveItem.Click
Me.Validate()
Me.TbMahasiswaBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.DbMahasiswaDataSet)
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'DbMahasiswaDataSet.TbMahasiswa' table. You can move, or remove it, as needed.
Me.TbMahasiswaTableAdapter.Fill(Me.DbMahasiswaDataSet.TbMahasiswa)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TbMahasiswaBindingSource.MoveFirst()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TbMahasiswaBindingSource.MoveLast()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
TbMahasiswaBindingSource.MovePrevious()
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
TbMahasiswaBindingSource.MoveNext()
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Me.Validate()
Me.TbMahasiswaBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.DbMahasiswaDataSet)
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
TbMahasiswaBindingSource.AddNew()
End Sub
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
Me.Validate()
Me.TbMahasiswaBindingSource.RemoveCurrent()
Me.TableAdapterManager.UpdateAll(Me.DbMahasiswaDataSet)
End Sub
Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
Dim carinama As String
Dim posisi As Integer = 1
carinama = InputBox("Masukkan Nama", "Cari Nama")
If (TbMahasiswaBindingSource.Find("Nama_Mahasiswa", carinama)) > -1 Then
MsgBox("Data Ditemukan", vbOKOnly, "Pencarian data")
Me.TbMahasiswaBindingSource.Position = TbMahasiswaBindingSource.Find("Nama_Mahasiswa", carinama)
posisi = TbMahasiswaBindingSource.Find("Nama_Mahasiswa", carinama) + 1
Else
MsgBox("Data Tidak ditemukan", vbOKOnly, "Pencarian Data")
End If
End Sub
Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
Me.Close()
End Sub
End Class