Latihan_20_46110027

Deskripsi Form Latihan20

  Pada form latihan 20 ini, hanya terdapat satu object, yaitu object DataGridView .

Script Unique
Membuat koneksi
 Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= D:\apkom 4\LATIHAN 15-26 MENGAKSES DATA\datatransaksijualbeli.accdb") 

Membuat Adapter
Dim rsty As New OleDb.OleDbDataAdapter
        rsty = 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)
       
       
Mengisi datatable ke database
rsty.Fill(DS)
        DataGridView1_46110027.DataSource = DS

Menghancurkan adapter yg telah dipakai
 rsty.Dispose()

  
Even 
Load 

• Langkah-langkah Membuat Form 20

1. Buka Project yang telah dibuat sebelumnya , Pilih menu Project lalu klik add windows form

2.  Ketik nama Latihan_20  yang akan dibuat pada kotak “NAME” lalu pilih “add”

 3. Buatlah desain seperti berikut menggunakan toolbox

    
         Klik kanan, pilih "properties" dan Beri nama pada objek di kolom "Name"

4. Pilih menu “view” klik  “code”

5. Masukkan rumus berikut: 
Public Class Latihan_20_46110027
    Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= D:\apkom 4\LATIHAN 15-26 MENGAKSES DATA\datatransaksijualbeli.accdb")
    Dim DS As New DataTable

    Private Sub Latihan15_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim rsty As New OleDb.OleDbDataAdapter
        rsty = 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()
        rsty.Fill(DS)
        DataGridView1_46110027.DataSource = DS
        rsty.Dispose()
    End Sub
End Class
6.    Klik start debugging

7. Maka akan tampil hasil sbb: