A. Langkah-Langkah Penyelesaian Form Latihan_22
· Buka project yang telah dibuat sebelumnya
· Click project kemudian pilih add windows
form, seperti pada gambar dibawah ini
· Ketik nama form
"Latihan_22_46110007" pada name kemudian click add
· Buat form seperti berikut
·
Kemudian
beri nama pada objek “TK1_46110007 dan TK2_46110007”
· Setelah form selesai masukkan rumus seperti
dibawah ini
Public Class
Latihan_22_46110007
Dim hubung As New
OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source
=E:\SEMESTER 5\VB\LATIHAN 15-26 MENGAKSES
DATA\DataTransaksiJualBeli.accdb")
Dim TK1 As New DataTable
Dim TK2 As New DataTable
Dim SKA As New DataSet
Dim K1 As New BindingSource
Dim K2 As New BindingSource
Private Sub Latihan_22_46110007_Load(ByVal
sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim chiko1 As New
OleDb.OleDbDataAdapter
Dim chiko2 As New OleDb.OleDbDataAdapter
chiko1 = New
OleDb.OleDbDataAdapter("select * from mastertransaksi", hubung)
chiko1.Fill(TK1)
chiko1.Dispose()
chiko2 = New
OleDb.OleDbDataAdapter("select * from detailtransaksi", hubung)
chiko2.Fill(TK2)
chiko2.Dispose()
SKA.Tables.Add(TK1)
SKA.Tables.Add(TK2)
TK1.TableName = "01"
TK2.TableName = "02"
SKA.Relations.Add(New
DataRelation("03",
SKA.Tables("01").Columns("notrans"),
SKA.Tables("02").Columns("notrans")))
K1.DataSource = SKA
K1.DataMember = "01"
K2.DataSource = K1
K2.DataMember = "03"
TK1_46110007.DataSource = K1
TK2_46110007.DataSource = K2
End Sub
End Class
· Untuk menjalankan form tekan F5
B. Deskripsi Form Latihan 22
Pada form latihan 22 hanya ada 1 object
yang digunakan yaitu Data Grid View.
Object DataGridView
Terdapat 2 object datagridview yang berfungsi
untuk menampilkan data tabel.
Script Unique
Membuat koneksi
Dim hubung 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 TK1 As New DataTable
Membuat data set
Dim SKA As New DataSet
Membuat data binding source
Dim K1 As New BindingSource
Membuat adapter
Dim chiko1 As New OleDb.OleDbDataAdapter
Mengisi data base kedalam data tabel
chiko1.Fill(TK1)
Menghancurkan adapter yang sudah dipakai
chiko2.Dispose()
Menambahkan data tabel kedalam data set
SKA.Tables.Add(TK1)
Membuat nama lain pada data tabel
TK1.TableName = "01"
Membuat relationship
SKA.Relations.Add(New DataRelation("03",
SKA.Tables("01").Columns("notrans"),
SKA.Tables("02").Columns("notrans")))
Saat data set menjadi data source
K1.DataSource = SKA
K1.DataMember = "01"
Binding source menjadi data source pda
datagridview
TK1_46110007.DataSource = K1
Even
Load
Posting Komentar