Latihan_22_46110037

Design Latihan 22

Setelah Debugging

Deskripsi Form Latihan 22

Pada latihan 22 Hanya terdapat object DataGridView.

Object DataGridView

Terdapat 2, DataGridView1 yang akan menampilkan data dalam tabel yang telah dibuat di script yang merupakan data dari microsoft Access dan DataGridView2 akan menampilkan Detail dari data yang dipilih di DataGridView1.

Script Unique

Tidak ada script unique pada latihan ini, karena scriptnya hampir sama dengan script latihan sebelumnya

Even

Load

Propertty

Default

Langkah-langkah Menyelesaikan Form

• Buka project yang telah dibuat.
• Buat form baru, caranya click Project pada Toolbar pilih Add Windows Form kemudian ketik nama form yang diinginkan lalu click Add
• Buat desain form seperti gambar di atas dengan menggunakan DataGridView
• Ganti nama DataGridView di properties-Name
• Click Kanan lalu pilih View Code kemudian buatlah Script seperti dibawah ini:

Public Class LATIHAN_22_46110037

    Dim hubung As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source =D:\POLTEK\5\Apkom (pak hasyim)\APKOM 4 a\LATIHAN 15-26 MENGAKSES DATA\DataTransaksiJualBeli.accdb")

    Dim INNA1 As New DataTable

    Dim INNA2 As New DataTable

    Dim MUTHMIL As New DataSet

    Dim MUTH1 As New BindingSource

    Dim MUTH2 As New BindingSource

    Private Sub latihan_22_46110037_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim MOTOR1 As New OleDb.OleDbDataAdapter

        Dim MOTOR2 As New OleDb.OleDbDataAdapter

        MOTOR1 = New OleDb.OleDbDataAdapter("select * from mastertransaksi", hubung)

        MOTOR1.Fill(INNA1)

        MOTOR1.Dispose()

        MOTOR2 = New OleDb.OleDbDataAdapter("select * from detailtransaksi", hubung)

        MOTOR2.Fill(INNA2)

        MOTOR2.Dispose()

        MUTHMIL.Tables.Add(INNA1)

        MUTHMIL.Tables.Add(INNA2)

        INNA1.TableName = "01"

        INNA2.TableName = "02"

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

        MUTH1.DataSource = MUTHMIL

        MUTH1.DataMember = "01"

        MUTH2.DataSource = MUTH1

        MUTH2.DataMember = "03"

        DGV146110037.DataSource = MUTH1

        DGV246110037.DataSource = MUTH2

    End Sub

End Class

• Click Start Debugging untuk menjalankan form