DESKRIPSI
FORM LATIHAN 19
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 19
1 .Buka File Microsoft Visual Studio
Anda lalu pilih project --> Add
windows form
2. Ganti nama sesuai dengan nama
yang anda ingingkan
3. Lalu pilih object yang
ada di latihan 19
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_19_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 mastertransaksi.notrans, mastertransaksi.tanggaltransaksi, mastertransaksi.jenistransaksi, detailtransaksi.kodebarang, detailtransaksi.unit, detailtransaksi.harga from mastertransaksi inner join detailtransaksi on mastertransaksi.notrans=detailtransaksi.notrans", CONECT)
DS.Rows.Clear()
DEDE.Fill(DS)
dgv46110024.DataSource = DS
DEDE.Dispose()
End Sub
Private Sub dgv46110024_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgv46110024.CellContentClick
End Sub
End Class
Public Class Latihan_19_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 mastertransaksi.notrans, mastertransaksi.tanggaltransaksi, mastertransaksi.jenistransaksi, detailtransaksi.kodebarang, detailtransaksi.unit, detailtransaksi.harga from mastertransaksi inner join detailtransaksi on mastertransaksi.notrans=detailtransaksi.notrans", CONECT)
DS.Rows.Clear()
DEDE.Fill(DS)
dgv46110024.DataSource = DS
DEDE.Dispose()
End Sub
Private Sub dgv46110024_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgv46110024.CellContentClick
End Sub
End Class
Langkah-Langkah
Menjalankan Form Latihan 19
- Klick Star Debugging
- Data akan secara otomatis muncul pada object datagridview

0 komentar:
Posting Komentar