Latihan_20_36110038

Deskripsi Latihan_20_36110038

Form Latihan_20 terdapat satu object yaitu DataGridView:

Object Data GridView

Terdapat satu data gridview yang digunakan untuk menampilkan field atau kolom KODEBARANG, NAMABARANG dari tabel BARANG, NOTRANS, TANGGALTRANSAKSI, JENISTRANSAKSI dari tabel MASTERTRANSAKSI serta UNIT, 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_20_36110038 dibawah

Even

Latihan_20_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_20_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_20

Public Class Latihan_20_36110038

    Dim table As New DataTable

    Dim hubung 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_20_36110038_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim angkut As New OleDb.OleDbDataAdapter

        angkut = New OleDb.OleDbDataAdapter("select BARANG.KODEBARANG, BARANG.NAMABARANG, DETAILTRANSAKSI.UNIT, DETAILTRANSAKSI.HARGA, MASTERTRANSAKSI.NOTRANS, MASTERTRANSAKSI.TANGGALTRANSAKSI, MASTERTRANSAKSI.JENISTRANSAKSI FROM (DETAILTRANSAKSI INNER JOIN BARANG ON DETAILTRANSAKSI.KODEBARANG = BARANG.KODEBARANG) INNER JOIN MASTERTRANSAKSI ON MASTERTRANSAKSI.NOTRANS = DETAILTRANSAKSI.NOTRANS", hubung)

        table.Rows.Clear()

        angkut.Fill(table)

        angkut.Dispose()

        DGV_36110038.DataSource = table

    End Sub

End Class

6.      Tekan F5 pada keyboard untuk menjalankan form.