Latihan 21

Deskripsi Latihan 21

1. Objek Datagridview
terdapat dua objek datgridview pada form ini. fungsinya adalah untuk menampilkan tabel yang telah dibuat di file access 2007

even : form_load

Pembuatan Form
1. buka Microsoft Visual Studio anda
2. bukalah file kumpulan latihan anda
3. pilih menu project lalu klik add windows form
4. drag objek dari menu toolbox anda. susun hingga menjadi form seperti form pada gambar dibawah ini.

  5. buat koneksi dengan file access, caranya bisa anda lihat di http://www.tulistulisian.blogspot.com/2012/10/membuat-koneksi-antara-access-2007.html


6. buat pendeklarasian datatable, koneksi, dataset, dan bindingsource

Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")
    Dim ab As New DataTable
    Dim ac As New DataTable

    Dim dss As New DataSet

    Dim xxx As New BindingSource
    Dim yyy As New BindingSource

7. letakkan script berikut untuk even form_load

 Private Sub Latihan_21_46110008_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim sss1 As New OleDb.OleDbDataAdapter
        Dim sss2 As New OleDb.OleDbDataAdapter

        sss1 = New OleDb.OleDbDataAdapter("select * from mastertransaksi", CONECT)
        sss1.Fill(ab)
        sss1.Dispose()

        sss1 = New OleDb.OleDbDataAdapter("select * from detailtransaksi", CONECT)
        sss1.Fill(ac)
        sss2.Dispose()

        dss.Tables.Add(ab)
        dss.Tables.Add(ac)

        ab.TableName = "01"
        ac.TableName = "02"

        dss.Relations.Add(New DataRelation("03", dss.Tables("01").Columns("notrans"), dss.Tables("02").Columns("notrans")))

        xxx.DataSource = dss
        xxx.DataMember = "01"
        yyy.DataSource = xxx
        yyy.DataMember = "03"

        dgv1_46110008.DataSource = xxx
        dgv1_46110008.DataSource = yyy
    End Sub

8. save all, lalu debug untuk menjalankan