Latihan_16_46110027

Deskripsi Form Latihan 16

  Pada form latihan 16 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 * from detailtransaksi", CONECT)

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

  
Even 
Load 

• Langkah-langkah Membuat Form 16

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

2.  Ketik nama Latihan_16  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_16_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 * from detailtransaksi", CONECT)
        Ds.Rows.Clear()
        rsty.Fill(DS)
        Dgv_46110027.DataSource = DS
        rsty.Dispose()
    End Sub


End Class

6.    Klik start debugging

7. Maka akan tampil hasil sbb: