Latihan_21_46110045

Deskripsi :
Dalam form Latihan 21 hanya terdapat satu object yaitu DataGridView.

Object datagridview :
Dalam form ini terdapat  2 buah object datagridview. Datagridview digunakan untuk menampilkan data kedalam bentuk table yang terdiri dari baris dan kolom.

Langkah-langkah penyelesaian form 21 :
Masukkan rumus seperti ini
Public Class Latihan_21_46110045
    Dim hubung As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source =C:\Users\Microsoft\Documents\VB\LATIHAN 15-26 MENGAKSES DATA\DataTransaksiJualBeli.accdb")

    Dim dina1 As New DataTable
    Dim dina2 As New DataTable

    Dim dss As New DataSet

    Dim dyna1 As New BindingSource
    Dim dyna2 As New BindingSource
    Private Sub Latihan_21_46110045_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim robot1 As New OleDb.OleDbDataAdapter
        Dim robot2 As New OleDb.OleDbDataAdapter

        robot1 = New OleDb.OleDbDataAdapter("select * from mastertransaksi", hubung)
        robot1.Fill(dina1)
        robot1.Dispose()

        robot1 = New OleDb.OleDbDataAdapter("select * from detailtransaksi", hubung)
        robot1.Fill(dina2)
        robot1.Dispose()

        dss.Tables.Add(dina1)
        dss.Tables.Add(dina2)

        dina1.TableName = "01"
        dina2.TableName = "02"

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

        dyna1.DataSource = dss
        dyna1.DataMember = "01"
        dyna2.DataSource = dyna1
        dyna2.DataMember = "03"

        dgv146110045.DataSource = dyna1
        dgv146110045.DataSource = dyna2
    End Sub
End Class

Even :
Load.