Mengkoneksikan Database Ms acces dg Visual Basic

Meilita Rahayu TI 11 C 2486

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

klik Next kemudian Yes

 

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