Latihan_18_36110034

Deskripsi penyelesaian

Form Latihan_18_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 detailtransaksi pada kolom notrans 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_18_36110034

Public NotInheritable Class latihan_18_36110034

    Dim ANDINI As New DataTable

    Dim ARDIAN 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_18_36110034_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        Dim DN As New OleDb.OleDbDataAdapter

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

        DN.Fill(ANDINI)

        DN.Dispose()

        DGV1_36110034.DataSource = ANDINI

    End Sub

End Class

5.   Jalankan program dengan “start debugging”.