Latihan_19_46110022
Deskripsi Form Latihan_19_46110022
Dalam
form ini hanya terdapat 1 buah object yaitu DataGriedView.
Object Datagriedview
Terdapat
sebuah object Datagriedview yang digunakan untuk menampilkan data tabel yang
telah dibuat.
Script Unique
1. Dim DS As New DataTable
==> untuk membuat DataTable baru.
2. ega = New
OleDb.OleDbDataAdapter ==> untuk membuat adapter baru.
3. DS.Rows.Clear() ==>
untuk membersihkan DataTable
4.
ega.Fill(DS)
dgv46110022.DataSource = DS ==> untuk mengisi database ke dalam DataTable
dgv46110022.DataSource = DS ==> untuk mengisi database ke dalam DataTable
5.
ega.Dispose() ==> untuk menghancurkan adapter yang telah dipakai.
Even
Load
Langkah-Langkah Membuat Form Latihan 19_46110022
1.
Buat form baru seperti langkah berikut :
2.
Input nama form pada kolom "add" seperti berikut :
3.
Buat desain form seperti gambar berikut :
4.
Input script di bawah ini :
Public Class Latihan_19_46110022
Dim CONECT As New
OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data
source= E:\SEMESTER 5\apkom\bahan ajar\LATIHAN 15-26 MENGAKSES
DATA\datatransaksijualbeli.accdb")
Dim DS As New DataTable
Private Sub Latihan_19_46110022_Load(ByVal
sender As Object,
ByVal e As
System.EventArgs) Handles Me.Load
Dim ega
As New
OleDb.OleDbDataAdapter
ega = 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()
ega.Fill(DS)
dgv46110022.DataSource = DS
ega.Dispose()
End Sub
Private Sub dgv46110022_CellContentClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgv46110022.CellContentClick
End Sub
End Class
5.
Jalankan program dengan cara mengklik start debugging seperti berikut :
Langkah-Langkah Membuat Form Latihan 19_46110022
- Klik start
debugging
- Hasil akan muncul
sendiri secara otomatis.
- Good luck :)
Postingan
