DESKRIPSI
FORM LATIHAN 18
Form Latihan ini Terdapat satu object yaitu datagridview
Object Data
Gridview
Terdapat sebuah object datagridview. Datagridview digunakan untuk
menampilkan data yang ingin ditampilkan. Dalam latihan ini datanya diambil data
table dari file access
Script Unique
Semua sript yang digunakan hampir sama pada latihan
sebelumnya yang bedanya adalah sumber data yang akan ditampilkan pada data grid
view
Even
Load
Langkah-
Langkah Membuat Form Latihan 18
2. Ganti nama sesuai dengan nama
yang anda ingingkan
3. Lalu pilih object yang
ada di latihan 18
4. Buat form sampai
menghasilkan form seperti di bawah ini
5. Pilih menu view lalu klik code
6. Masukkan script sebagai berikut:
Public Class Latihan_18_46110024
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_46110024_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 barang.kodebarang, barang.namabarang, detailtransaksi.notrans, detailtransaksi.unit, detailtransaksi.harga from barang inner join detailtransaksi on barang.kodebarang=detailtransaksi.kodebarang", CONECT)
DS.Rows.Clear()
DEDE.Fill(DS)
Dgv46110024.DataSource = DS
DEDE.Dispose()
End Sub
End Class
Public Class Latihan_18_46110024
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_46110024_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 barang.kodebarang, barang.namabarang, detailtransaksi.notrans, detailtransaksi.unit, detailtransaksi.harga from barang inner join detailtransaksi on barang.kodebarang=detailtransaksi.kodebarang", CONECT)
DS.Rows.Clear()
DEDE.Fill(DS)
Dgv46110024.DataSource = DS
DEDE.Dispose()
End Sub
End Class
Langkah-Langkah
Menjalankan Form Latihan 18
- Klick Star Debugging
- Data akan secara otomatis muncul pada object datagridview

0 komentar:
Posting Komentar