Deskripsi form Latihan_15_46110003
Form Latihan_15_46110003 terdapat satu object DataGriedView
Object DataGridView
Terdapat 1 object datagridview yang berfungsi untuk
menampilkan data tabel.
Script Unique
deklarasi
adapter
amal = New OleDb.OleDbDataAdapter("select * from barang", maulana)
membersihkan
data table
am.Rows.Clear()
mengisi
database ke dalam data table
amal.Fill(am)
mengisi
database ke dalam data table
DGV4610003.DataSource = am
menghancurkan
kendaraan(adapter) yang sudah dipakai
amal.Dispose()
Even
Load
Langkah-langkah Penyelesaian
1. Buat desain Form seperti contoh
dibawah ini:
2. Masukkan rumus:
Public Class Latihan_15_46110003
Dim maulana
As New
OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data
Source =" & "E:\document\Apkom
4 vb\Kumpulan_latihan_46110003\Kumpulan_latihan_46110003\bin\Debug"
& "\DataTransaksiJualBeli.ACCDB")
Dim am As New DataTable
Private Sub Latihan_15_46110003_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Dim
amal As New
OleDb.OleDbDataAdapter
amal = New
OleDb.OleDbDataAdapter("select * from
barang", maulana)
am.Rows.Clear()
amal.Fill(am)
DGV4610003.DataSource = am
amal.Dispose()
End Sub
End Class
3. Jalankan Program dengan mengklik
Debugging.
4. Maka akan tampil program seperti
dibawah ini.
0 komentar:
Posting Komentar