Deskripsi form Latihan_20_46110003
Form Latihan_20_46110003 terdapat satu object DataGriedView
Object DataGridView
Terdapat 1 object datagridview yang berfungsi untuk
menampilkan data tabel.
Script Unique
Tidak ada
script unique untuk form ini.
Even
Load
Langkah-langkah Penyelesaian
1. Buat desain Form seperti contoh
dibawah ini:
2. Masukkan rumus:
Public Class Latihan_20_46110003
Dim maulana
As New
OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data
source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")
Dim am As New DataTable
Private Sub Latihan_20_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
barang.kodebarang, barang.namabarang, mastertransaksi.notrans,
mastertransaksi.tanggaltransaksi, mastertransaksi.jenistransaksi,
detailtransaksi.unit, detailtransaksi.harga from (mastertransaksi inner join
detailtransaksi on mastertransaksi.notrans=detailtransaksi.notrans) inner join
barang on detailtransaksi.kodebarang=barang.kodebarang", maulana)
am.Rows.Clear()
amal.Fill(am)
View46110003.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