Latihan_16_46110002

Deskripsi Form Latihan 16

Pada form latihan 16 hanya ada 1 object yang digunakan yaitu Data Grid View.

Object DataGridView

Terdapat 1 object datagridview yang berfungsi untuk menampilkan data tabel.

Script Unique

Membuat koneksi

Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")

Membuat data tabel

Dim DS As New DataTable

Membuat adapter

Dim DEDE As New OleDb.OleDbDataAdapter

Membersihkan data tabel

DS.Rows.Clear()

Mengisi data base kedalam data tabel

DEDE.Fill(DS)

DGV1_46110002.DataSource = DS

Menghancurkan adapter yang sudah dipakai

DEDE.Dispose()

Even

Load

 Langkah-Langkah Penyelesaian Form Latihan_16_46110002

·         Buka folder project yang telah dibuat.

·         Click project kemudian pilih add windows form

·         Buat form "Latihan_16_46110002" pada name kemudian click add 

·         Buat form seperti berikut

·         Setelah itu beri nama pada properties 

Setelah itu masukkan rumus

 

Public Class Latihan_16_46110002
    Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")
    Dim DS As New DataTable

    Private Sub Latihan_15_46110002_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim DEDE As New OleDb.OleDbDataAdapter
        DEDE = New OleDb.OleDbDataAdapter("select * from detailtransaksi", CONECT)
        DS.Rows.Clear()
        DEDE.Fill(DS)
        DGV1_46110002.DataSource = DS
        DEDE.Dispose()
    End Sub
End Class

 

Langkah-Langkah Menjalankan Form Latihan 16

1.      Klik star debugging, trus klik latihan 16

2.       Maka akan muncul hasil seperti ini