Latihan_15_46110027

Deskripsi Form Latihan 15

  Pada form latihan 15 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 barang", 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 15

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

2.  Ketik nama Latihan_15  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_15_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 * from barang", 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: