Latihan_15_46110002

Deskripsi Form Latihan 15

Pada form latihan 15 hanya  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 ID As New DataTable

Membuat adapter

Dim ILDA As New OleDb.OleDbDataAdapter

Membersihkan data tabel

ID.Rows.Clear()

Mengisi data base kedalam data tabel

ILDA.Fill(ID)

DGV1_46110002.DataSource = ID

Menghancurkan adapter yang sudah dipakai

ILDA.Dispose()

Even

Load

Langkah-Langkah Penyelesaian Form Latihan_15_46110002

·         Buka folder project yang telah dibuat.

·         Click project kemudian pilih add windows form

·         Buat form "Latihan_15_46110002" pada name kemudian click add

·         Buat form seperti berikut

·         Kemudian beri nama pada  objek

·         Setelah itu masukkan rumus

Public Class Latihan_15_46110002

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

    Dim ID As New DataTable

    Private Sub Latihan_15_46110002_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim ILDA As New OleDb.OleDbDataAdapter

        ILDA = New OleDb.OleDbDataAdapter("select * from barang", CONECT)

        ID.Rows.Clear()

        ILDA.Fill(ID)

        DGV1_46110002.DataSource = ID

        ILDA.Dispose()

    End Sub

End Class

Langkah-Langkah Menjalankan Form Latihan 15

1.      Klik star debugging, trus klik latihan 15

2.       Maka akan muncul hasil seperti ini