Latihan_21_36110038

Deskripsi Latihan_21_36110038

Form Latihan_21 terdapat satu object yaitu DataGridView:

Object Data GridView

Terdapat dua data gridview (dgv1_36110038 dan dgv2_36110038) DataGridView pertama digunakan untuk menampilkan field atau  NOTRANS, TANGGALTRANSAKSI, JENISTRANSAKSI dan KETERANGAN dari tabel MASTERTRANSAKSI serta ID, NOTRANS, UNIT dan HARGA dari tabel DETAILTRANSAKSI yang ada pada D:\^bd3^\semester5\Apkom 4\LATIHAN 15-26 MENGAKSES DATA\DataTransaksiJualBeli.

Script Unique 

Script sesuai yang ada pada prosedur-prosedur Latihan_21_36110038 dibawah

Even

Latihan_21_36110038_Load

Prosedur penyelesaian

1.      Buka Project_36110038 yang telah dibuat sebelumnya.

2.      Buka visual basic Kumpulan_Latihan_36110038 yang telah dibuat sebelumnya.

3.      Buat form baru dengan nama Latihan_21_36110038 sesuai form dibawah ini.

4.      Ganti semua nama objek yang ada selain label menggunakan "Properties Window" sesuai dengan yang diinginkan dengan menambahkan stambuk dibelakang nama obyek.

5.      Klik 2x pada kotak design untuk membuka lembar VB untuk menuliskan rumusnya. Masukkan rumus berikut untuk menyelesaikan Latihan_21

Public Class Latihan_21_36110038

    Dim widhe As New DataSet

    Dim table1 As New DataTable

    Dim table2 As New DataTable

    Dim bs1 As New BindingSource

    Dim bs2 As New BindingSource

    Dim hubung1 As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\^bd3^\semester5\Apkom 4\LATIHAN 15-26 MENGAKSES DATA\DataTransaksiJualBeli.accdb")

    Dim hubung2 As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\^bd3^\semester5\Apkom 4\LATIHAN 15-26 MENGAKSES DATA\DataTransaksiJualBeli.accdb")

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

        Dim angkut1 As New OleDb.OleDbDataAdapter

        angkut1 = New OleDb.OleDbDataAdapter("select  * from MASTERTRANSAKSI", hubung1)

        angkut1.Fill(table1)

        angkut1.Dispose()

        DGV1_36110038.DataSource = table1

        Dim angkut2 As New OleDb.OleDbDataAdapter

        angkut2 = New OleDb.OleDbDataAdapter("select  * from DETAILTRANSAKSI", hubung2)

        angkut2.Fill(table2)

        angkut2.Dispose()

        DGV2_36110038.DataSource = table2

        widhe.Tables.Add(table1)

        widhe.Tables.Add(table2)

        table1.TableName = "T1"

        table2.TableName = "T2"

        widhe.Relations.Add(New DataRelation("T3", widhe.Tables("T1").Columns("NOTRANS"), widhe.Tables("T2").Columns("NOTRANS")))

        bs1.DataSource = widhe

        bs1.DataMember = "T1"

        bs2.DataSource = bs1

        bs2.DataMember = "T3"

        DGV1_36110038.DataSource = bs1

        DGV2_36110038.DataSource = bs2

    End Sub

End Class

6.      Tekan F5 pada keyboard untuk menjalankan form.