Deskripsi form Latihan_19_46110003
Form Latihan_19_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_19_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 Latihan15_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
mastertransaksi.notrans, mastertransaksi.tanggaltransaksi,
mastertransaksi.jenistransaksi, detailtransaksi.kodebarang,
detailtransaksi.unit, detailtransaksi.harga from mastertransaksi inner join
detailtransaksi on mastertransaksi.notrans=detailtransaksi.notrans",
maulana)
am.Rows.Clear()
amal.Fill(am)
View46110003.DataSource = am
amal.Dispose()
End Sub
Private Sub View46110003_CellContentClick(ByVal sender As
System.Object, ByVal e As
System.Windows.Forms.DataGridViewCellEventArgs) Handles
View46110003.CellContentClick
End Sub
End Class
3. Jalankan Program dengan mengklik
Debugging.
4. Maka akan tampil program seperti
dibawah ini.
0 komentar:
Posting Komentar