Tugas Akhir VB2 Database

selamat datang di blog saya..
kali ini saya akan membahas tentang mengkoneksikan Visual Basic dengan Microsoft Access 2007..

Pertama tama saya akan membuat file databasenya terlebih dahulu..

kurang lebihnya seperti ini:

database ini terdiri dari 2 tabel dan 1 query..

selanjutnya saya langsung mengkoneksikan database yang sudah saya buat dengan Visual Basic. Kebetulan versi yang saya pakai saat ini versi 2010. Seperti ini screenshoot nya:

dan ini adalah crystal report yang sudah saya buat berdasarkan database yang sudah dibuat.

dari form 1 terdapat tombol next yang berfungsi untukk beralih dari form 1 ke form selanjutnya..
Untuk reportnya saya memakai report manual karena tidak ada report otomatis di program saya..

Untuk keluar dari program ini anda tinggal mengklik tombol Exit dan akan ada pemberitahuan seperti ini..

Berikut source code dari program saya..

Public Class Form1

    Private Sub Table1BindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Table1BindingNavigatorSaveItem.Click
        Me.Validate()
        Me.Table1BindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.Database1DataSet)

    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 'Database1DataSet.Table1' table. You can move, or remove it, as needed.
        Me.Table1TableAdapter.Fill(Me.Database1DataSet.Table1)

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Hide()
        Form2.Show()

    End Sub
End Class

Public Class Form2

    Private Sub Table2BindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Table2BindingNavigatorSaveItem.Click
        Me.Validate()
        Me.Table2BindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.Database1DataSet)

    End Sub

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'Database1DataSet.Table2' table. You can move, or remove it, as needed.
        Me.Table2TableAdapter.Fill(Me.Database1DataSet.Table2)

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Hide()
        Form3.Show()

    End Sub
End Class

Public Class Form3

    Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'Database1DataSet.Query1' table. You can move, or remove it, as needed.
        Me.Query1TableAdapter.Fill(Me.Database1DataSet.Query1)

        Me.ReportViewer1.RefreshReport()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        MsgBox("Terimakasih")
        Form1.Close()
        Form2.Close()
        Me.Close()

    End Sub
End Class

Terimakasih sudah membaca!!