Latihan_20_46110022
Deskripsi Form Latihan_20_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 20_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_20_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_20_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
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", CONECT)
DS.Rows.Clear()
ega.Fill(DS)
dgv46110022.DataSource = DS
ega.Dispose()
End Sub
End Class
5.
Jalankan program dengan cara mengklik start debugging seperti berikut :
Langkah-Langkah Membuat Form Latihan 20_46110022
Postingan
