A. Langkah-Langkah Penyelesaian Form Latihan_20
· Buka project yang telah dibuat sebelumnya
· Click project kemudian pilih add windows
form, seperti pada gambar dibawah ini
· Ketik nama form "Latihan_20_46110007"
pada name kemudian click add
· Buat form seperti berikut
·
Kemudian
beri nama pada objek “TK_46110007”
· Setelah form selesai masukkan rumus seperti
dibawah ini
Public Class
Latihan_20_46110007
Dim CONECT As New
OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=
E:\SEMESTER 5\VB\LATIHAN 15-26 MENGAKSES
DATA\datatransaksijualbeli.accdb")
Dim DS As New DataTable
Private Sub Latihan_20_46110007_Load(ByVal
sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim FANTY As New OleDb.OleDbDataAdapter
FANTY = 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()
FANTY.Fill(DS)
TK_46110007.DataSource = DS
FANTY.Dispose()
End Sub
End Class
· Untuk menjalankan form tekan F5
B. Deskripsi Form Latihan 20
Pada form latihan 20 hanya ada 1 object
yang digunakan yaitu Data Grid View.
Object DataGridView
Terdapat 1 object datagridview yang berfungsi
untuk menampilkan data tabel.
Script Unique
Membuat koneksi
Dim CONECT As New
OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=
E:\SEMESTER 5\VB\LATIHAN 15-26 MENGAKSES
DATA\datatransaksijualbeli.accdb")
Membuat data tabel
Dim DS As New DataTable
Membuat adapter
Dim FANTY As New
OleDb.OleDbDataAdapter
Membersihkan data tabel
DS.Rows.Clear()
Mengisi data base kedalam data tabel
FANTY.Fill(DS)
TK_46110007.DataSource = DS
Menghancurkan adapter yang sudah dipakai
FANTY.Dispose()
Even
Load
Posting Komentar