Latihan_20_46110002

Deskripsi Form Latihan 20

Pada form latihan 20 hanya ada 1 object yang digunakan yaitu Data Grid View.

Object DataGridView

Terdapat 1 object datagridview yang berfungsi untuk menampilkan tabel data barang pada file access. 

Script Unique

Membuat koneksi untuk menyambungkan data access dengan form ata datagerid view yang dibuat

Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")

Membuat data tabel

Dim DS As New DataTable

Membuat adapter  dengan fungsi ini mentransfer data pada access dari tabel "barang" dan dmaukkan di data gridview

Dim DEDE As New OleDb.OleDbDataAdapter

Even

Load

Langkah-Langkah Penyelesaian Form Latihan_20_46110002

·         Buka folder project yang telah dibuat.

·         Click project kemudian pilih add windows form

·         Buat form "Latihan_20_46110002" pada name kemudian click add 

·         Buat form seperti berikut

·         Setelah itu beri nama pada properties 

·         Setelah itu masukkan rumus
 Public Class Latihan_20_46110002
    Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")

    Dim DS As New DataTable

    Private Sub Latihan_15_46110002_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim DEDE As New OleDb.OleDbDataAdapter
        DEDE = 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()
        DEDE.Fill(DS)
        DGV1_46110002.DataSource = DS
        DEDE.Dispose()
    End Sub
End Class

Langkah-Langkah Menjalankan Form Latihan 20

·         Klik star debugging, trus klik latihan 20

·          Maka akan muncul hasil seperti ini