Latihan_18_46110027

Deskripsi Form Latihan 18

  Pada form latihan 18 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, detailtransaksi.")

Mengisi datatable ke database
rsty.Fill(DS)
        DataGridView1_46110027.DataSource = DS
Menghancurkan adapter yg telah dipakai
 rsty.Dispose()

  
Even 
Load 

• Langkah-langkah Membuat Form 18

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

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

 3. Buatlah desain seperti berikut menggunakan toolbox

4. Pilih menu “view” klik  “code”

5. Masukkan rumus berikut: 
Public Class Latihan_18_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 Latihan16_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, detailtransaksi.notrans, detailtransaksi.unit, detailtransaksi.harga from barang inner join detailtransaksi on barang.kodebarang=detailtransaksi.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: