Latihan_18_46110002

Deskripsi Form Latihan 18

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

Object DataGridView

Terdapat 1 object datagridview yang berfungsi untuk menampilkan table data-data tabel 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_18_46110002

·         Buka folder project yang telah dibuat.

·         Click project kemudian pilih add windows form

·         Buat form "Latihan_18_46110002" pada name kemudian click add 

·         Buat form seperti berikut

·         Setelah itu beri nama pada properties 

·         Setelah itu masukkan rumus

Public Class Latihan_18_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, detailtransaksi.notrans, detailtransaksi.unit, detailtransaksi.harga from barang inner join detailtransaksi on barang.kodebarang=detailtransaksi.kodebarang", CONECT)
        DS.Rows.Clear()
        DEDE.Fill(DS)
        DGV1_46110002.DataSource = DS
        DEDE.Dispose()
    End Sub
End Class

 

Langkah-Langkah Menjalankan Form Latihan 18

·         Klik star debugging, trus klik latihan 18

·          Maka akan muncul hasil seperti ini