Deskripsi form Latihan_21_46110003
Form Latihan_21_46110003 terdapat satu object DataGriedView
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 =" &
Application.StartupPath & "\DataTransaksiJualBeli.accdb")
Dim amal1 As New DataTable
Dim amal2 As New DataTable
==>Membuat data tabel
==>Membuat data tabel
Dim dss As New DataSet
==>Membuat data set
==>Membuat data set
Dim maulana1 As New BindingSource
Dim maulana2 As New BindingSource
==>Membuat data binding source
==>Membuat data binding source
Dim hma1 As New
OleDb.OleDbDataAdapter
Dim hma2 As New
OleDb.OleDbDataAdapter
==>Membuat adapter
==>Membuat adapter
hma1 = New OleDb.OleDbDataAdapter("select
* from mastertransaksi", hubung)
hma1.Fill(amal1)
==>Mengisi data base kedalam data tabel
==>Mengisi data base kedalam data tabel
hma1.Dispose()
==>Menghancurkan adapter yang sudah dipakai
dss.Tables.Add(amal1)
dss.Tables.Add(amal2)
==>Menambahkan data tabel kedalam data set
==>Menambahkan data tabel kedalam data set
amal1.TableName = "01"
amal2.TableName = "02"
==>Membuat nama lain pada data tabel
dss.Relations.Add(New DataRelation("03",
dss.Tables("01").Columns("notrans"), dss.Tables("02").Columns("notrans")))
==>Membuat relationship
==>Membuat relationship
maulana1.DataSource = dss
maulana1.DataMember = "01"
maulana2.DataSource =
maulana1
maulana2.DataMember = "03"
==>Saat data set menjadi data source
dgv146110003.DataSource =
maulana1
dgv246110003.DataSource = maulana2
==>Binding source menjadi data source pda datagridview
==>Binding source menjadi data source pda datagridview
Langkah-langkah Penyelesaian
1. Buat desain Form seperti contoh
dibawah ini:
2. Masukkan rumus:
Public Class Latihan_21_46110003
Dim hubung As New
OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data
source =" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
Dim amal1 As New DataTable
Dim amal2 As New DataTable
Dim dss As New DataSet
Dim
maulana1 As New
BindingSource
Dim
maulana2 As New
BindingSource
Private Sub latihan_21_46110003_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Dim
hma1 As New
OleDb.OleDbDataAdapter
Dim
hma2 As New
OleDb.OleDbDataAdapter
hma1 = New
OleDb.OleDbDataAdapter("select * from
mastertransaksi", hubung)
hma1.Fill(amal1)
hma1.Dispose()
hma1 = New
OleDb.OleDbDataAdapter("select * from
detailtransaksi", hubung)
hma1.Fill(amal2)
hma2.Dispose()
dss.Tables.Add(amal1)
dss.Tables.Add(amal2)
amal1.TableName = "01"
amal2.TableName = "02"
dss.Relations.Add(New DataRelation("03",
dss.Tables("01").Columns("notrans"), dss.Tables("02").Columns("notrans")))
maulana1.DataSource = dss
maulana1.DataMember = "01"
maulana2.DataSource = maulana1
maulana2.DataMember = "03"
dgv146110003.DataSource = maulana1
dgv246110003.DataSource = maulana2
End Sub
End Class
3. Jalankan Program dengan mengklik
Debugging.
0 komentar:
Posting Komentar