Latihan_19_46110027

Deskripsi Form Latihan 19

  Pada form latihan 19 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 mastertransaksi.notrans, mastertransaksi.tanggaltransaksi, mastertransaksi.jenistransaksi, detailtransaksi.kodebarang, detailtransaksi.unit, detailtransaksi.harga from mastertransaksi inner join detailtransaksi on mastertransaksi.notrans=detailtransaksi.notrans", 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 19

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

2.  Ketik nama Latihan_19  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_19_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 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()
        rsty.Fill(DS)
        DataGridView1_46110027.DataSource = DS
        rsty.Dispose()
    End Sub
End Class

6.    Klik start debugging

7. Maka akan tampil hasil sbb: