Latihan_17_46110027

Deskripsi Form Latihan 17

  Pada form latihan 17 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 mastertransaksi", 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 17

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

2.  Ketik nama Latihan_17  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_17_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 mastertransaksi", 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: