Latihan_19_46110002

Deskripsi Form Latihan 19

Pada form latihan 19 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_19_46110002

v  Buka folder project yang telah dibuat.

v  Click project kemudian pilih add windows form

v  Buat form "Latihan_19_46110002" pada name kemudian click add 

v  Buat form seperti berikut

v  Setelah itu beri nama pada properties 

v  Klik kanan view kode lalu masukkan rumus

Public Class Latihan_19_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 mastertransaksi.notrans, mastertransaksi.tanggaltransaksi, mastertransaksi.jenistransaksi, detailtransaksi.kodebarang, detailtransaksi.unit, detailtransaksi.harga from mastertransaksi inner join detailtransaksi on mastertransaksi.notrans=detailtransaksi.notrans", CONECT)
        DS.Rows.Clear()
        DEDE.Fill(DS)
        DGV1_46110002.DataSource = DS
        DEDE.Dispose()
    End Sub
    Private Sub DGV1_46110002_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DGV1_46110002.CellContentClick
    End Sub
End Class

 

Langkah-Langkah Menjalankan Form Latihan 19

·         Klik star debugging, trus klik latihan 19

·          Maka akan muncul hasil seperti ini