Deskripsi Penyelesaian Latihan_20_36110041

Deskripsi Penyelesaian

Latihan_20_36110041

A.     Objek dalam Form Latihan_20:

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

B.     Script Unique

Untuk scriptnya hanya akan ditampilkan secara keseluruhan dalam prosedur Latihan_20_36110041.

C.     Even

latihan_20_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_20_36110041

    Dim rizka As New DataTable

    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")

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

        Dim ikatable As New OleDb.OleDbDataAdapter

        ikatable = New OleDb.OleDbDataAdapter("select barang.kodebarang,barang.namabarang, mastertransaksi.notrans, mastertransaksi.tanggaltransaksi, mastertransaksi.jenistransaksi, detailtransaksi.unit, detailtransaksi.harga from mastertransaksi inner join(barang inner join detailtransaksi on barang.kodebarang=detailtransaksi.kodebarang) on mastertransaksi.notrans=detailtransaksi.notrans", azisah)

        rizka.Rows.Clear()

        ikatable.Fill(rizka)

        rizka_36110041.DataSource = rizka

        ikatable.Dispose()

    End Sub

End Class