latihan_15_46110004

Deskripsi form latihan 15
Dalam form Latihan 15 hanya terdapat satu object yaitu DataGriedView

Object datagridview :
Dalam form ini terdapat 1 buah object datagridview. Datagridview digunakan untuk menampilkan data kedalam bentuk table yang terdiri dari baris dan kolom.

Script Unique :
Perintah untuk mendeklarasikan connection :
Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= D:\Dokumen Koe\SEMESTER 5\APKOM 4\Visual Basic\LATIHAN 15-26 MENGAKSES DATA\datatransaksijualbeli.accdb")

Perintah untuk mendeklarasikan adapter :
Dim sulhi As New OleDb.OleDbDataAdapter

Perintah untuk memunculkan semua data dari tabel barang dalam acces
sulhi = New OleDb.OleDbDataAdapter("select * from barang", CONECT)

Perintah untuk membersihkan data tabel
DT.Rows.Clear()

Perintah untuk mengisi database ke dalam data table
sulhi.Fill(DT)

Perintah untuk menghancurkan adapter yang sudah terpakai
sulhi.Dispose()

Even :
Load

Langkah-langkah penyelesaian form latihan 15

1.Buat form baru seperti gambar dibawah ini,

2. Ketikkan nama form latihan_15_xxxxx, lalu klik add

3. Buat form seperti gambar di bawah ini:

4. Setelah itu input script berikut ini :
Public Class latihan_15_46110004
    Private Sub latihan_15_46110004_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= D:\Dokumen Koe\SEMESTER 5\APKOM 4\Visual Basic\LATIHAN 15-26 MENGAKSES DATA\datatransaksijualbeli.accdb")
        Dim DT As New DataTable
        Dim sulhi As New OleDb.OleDbDataAdapter
        sulhi = New OleDb.OleDbDataAdapter("select * from barang", CONECT)
        DT.Rows.Clear()
        sulhi.Fill(DT)
        DataGridView1.DataSource = DT

        sulhi.Dispose()
    End Sub
End Class

5. Jalankan program dengan cara klik kanan pada project, lalu pilih properties, kemudian akan muncul tampilan seperti gambar dibawah ini: