Deskripsi Penyelesaian Latihan_21_36110041

Deskripsi Penyelesaian

Latihan_21_36110041

A.     Objek dalam Form Latihan_21:

Dalam form latihan ini hanya ada terdapat satu object yaitu datagridview. Dimana terdapat dua objek datagridview. Digunakan untuk menampilkan tabel yang telah dibuat dalam script.

B.     Script Unique

Untuk scriptnya hanya akan ditampilkan secara keseluruhan dalam prosedur Latihan_21_36110041.

C.     Even

latihan_21_36110041_Load

Prosedur penyelesaian

1.      Buka Project yang telah dibuat sebelumnya klik Add New Item  è  Add Windows Form

2.      Kemudian beri nama dan klik Add

3.      buat form seperti di bawah ini dengan menggunakan toolbox yang saya tunjukkan pada postingan sebelumnya.

4.      Berikut ini adalah rumus untuk menjalankan form di atas

Public NotInheritable Class latihan_21_36110041

    Dim rizka As New DataSet

    Dim rizka1 As New DataTable

    Dim rizka2 As New DataTable

    Dim zisah1 As New BindingSource

    Dim zisah2 As New BindingSource

    Dim azisah As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\semester 5\Aplikom\LATIHAN 15-26 MENGAKSES DATA\DataTransaksiJualBeli.accdb")

    Dim azisah2 As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\semester 5\Aplikom\LATIHAN 15-26 MENGAKSES DATA\DataTransaksiJualBeli.accdb")

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

        Dim ikatable1 As New OleDb.OleDbDataAdapter

        ikatable1 = New OleDb.OleDbDataAdapter("select  * from MASTERTRANSAKSI", azisah)

        rizka1.Rows.Clear()

        ikatable1.Fill(rizka1)

        ikatable1.Dispose()

        rizka1_36110041.DataSource = rizka1

        Dim ikatable2 As New OleDb.OleDbDataAdapter

        ikatable2 = New OleDb.OleDbDataAdapter("select  * from DETAILTRANSAKSI", azisah2)

        rizka2.Rows.Clear()

        ikatable2.Fill(rizka2)

        ikatable2.Dispose()

        rizka2_36110041.DataSource = rizka2

        rizka.Tables.Add(rizka1)

        rizka.Tables.Add(rizka2)

        rizka1.TableName = "an1"

        rizka2.TableName = "an2"

        rizka.Relations.Add(New DataRelation("ant1", rizka.Tables("an1").Columns("NOTRANS"), rizka.Tables("an2").Columns("NOTRANS")))

        zisah1.DataSource = rizka

        zisah1.DataMember = "an1"

        zisah2.DataSource = zisah1

        zisah2.DataMember = "ant1"

        rizka1_36110041.DataSource = zisah1

        rizka2_36110041.DataSource = zisah2

    End Sub

End Class