Latihan_15_46110022
Deskripsi Form Latihan_15_46110022
Dalam form ini hanya terdapat 1 buah object yaitu DataGriedView.
Object Datagriedview
Terdapat sebuah object Datagriedview
yang digunakan untuk menampilkan data tabel yang telah dibuat.
Script Unique
2. ega = New OleDb.OleDbDataAdapter ==> untuk membuat adapter baru.
3. DS.Rows.Clear() ==> untuk membersihkan DataTable
4. ega.Fill(DS)
dgv46110022.DataSource = DS ==> untuk mengisi database ke dalam DataTable
5. ega.Dispose() ==> untuk menghancurkan adapter yang telah dipakai.
Even
Load
Langkah-Langkah Membuat Form Latihan 15_46110022
1. Buat form baru seperti langkah
berikut :
2. Input nama form pada kolom
"add" seperti berikut :
3. Buat desain form seperti gambar
berikut :
4. Input script di bawah ini :
Public Class Latihan_15_46110022
Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= E:\SEMESTER 5\apkom\bahan ajar\LATIHAN 15-26 MENGAKSES DATA\datatransaksijualbeli.accdb")
Dim DS As New DataTable
Private Sub Latihan_15_46110022(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim ega As New OleDb.OleDbDataAdapter
ega = New OleDb.OleDbDataAdapter("select * from barang", CONECT)
DS.Rows.Clear()
ega.Fill(DS)
dgv46110022.DataSource = DS
ega.Dispose()
End Sub
End Class
Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= E:\SEMESTER 5\apkom\bahan ajar\LATIHAN 15-26 MENGAKSES DATA\datatransaksijualbeli.accdb")
Dim DS As New DataTable
Private Sub Latihan_15_46110022(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim ega As New OleDb.OleDbDataAdapter
ega = New OleDb.OleDbDataAdapter("select * from barang", CONECT)
DS.Rows.Clear()
ega.Fill(DS)
dgv46110022.DataSource = DS
ega.Dispose()
End Sub
End Class
5. Jalankan program dengan cara
mengklik start debugging seperti berikut :
Langkah-Langkah Membuat Form Latihan 15_46110022
- Klik start debugging
- Hasil akan muncul sendiri secara otomatis.
- Good luck :)