Latihan_20_36110034

Deskripsi penyelesaian

Form Latihan_20_36110034  terdapat satu object yaitu DataGreatView

Object DataGreatview

Terdapat satu object datagreatview yang akan menampilkan table yang berasal dari data acces, pada table yang berjudul barang pada kolom nama barang, kode barang, dan table mastertransaksi pada kolom notrans, tanggal transaksi, jenis transaksi, dan pada tabel detailtransaksi pada kolom  unit dan harga. 

Property

Property Datagreatview => name => ok

Prosedur penyelesaian

1.   buka project yang telah dibuat sebelumnya klik add new item => add windows form => ganti nama project => add.

 

2. membuat form dengan menggunakan Label dan Textbox yang ada dalam "Toolbox”.

 

3.  ganti nama textbox dan button menggunakan "Properties Window".

 

4.   membuka lembar vb Masukkan rumus berikut untuk menyelesaikan latihan_20_36110034

Public NotInheritable Class latihan_20_36110034

    Dim DD As New DataTable

    Dim DN As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=E:\SEMESTER 5\APKOM 4\kumpulan_latihan_36110034\DataTransaksiJualBeli.accdb")

    Private Sub latihan_20_36110034_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        Dim AK As New OleDb.OleDbDataAdapter

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

        AK.Fill(DD)

        AK.Dispose()

        DGV3_36110034.DataSource = DD

    End Sub

End Class

5.   Jalankan program dengan “start debugging”.