Latihan_20_46110037

Deskripsi Form Latihan 20

Pada latihan 20 Hanya terdapat DataGridView.

Object DataGridView

Terdapat 1 DataGridView yang akan menampilkan data dalam tabel yang telah dibuat di script yang merupakan data dari microsoft Access

Script Unique

*Script unique latihan 20 sama dengan script unique latihan 15 (tidak ada Script unique pada latihan  ini)

Even

Load

Propertty

Default

Langkah-langkah Menyelesaikan Form

• Buka project yang telah dibuat.
• Buat form baru, caranya click Project pada Toolbar pilih Add Windows Form kemudian ketik nama form yang diinginkan lalu click Add
• Buat desain form seperti gambar di atas dengan menggunakan DataGridView
• Ganti nama DataGridView di properties-Name
• Click Kanan lalu pilih View Code kemudian buatlah Script seperti dibawah ini:

Public Class LATIHAN_20_46110037

    Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= D:\POLTEK\5\Apkom (pak hasyim)\APKOM 4 a\LATIHAN 15-26 MENGAKSES DATA\datatransaksijualbeli.accdb")

    Dim DS As New DataTable

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

        Dim INNA As New OleDb.OleDbDataAdapter

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

        DS.Rows.Clear()

        INNA.Fill(DS)

        DGV46110037.DataSource = DS

        INNA.Dispose()

    End Sub

End Class

• Click Start Debugging untuk menjalankan form