Deskripsi form Latihan_22_46110003
Form Latihan_22_46110003 terdapat satu object DataGriedView
Object DataGridView
Terdapat 2 object datagridview yang berfungsi untuk
menampilkan data tabel.
Script Unique
Tidak ada script uniqueuntuk form ini.
Langkah-langkah Penyelesaian
1. Buat desain Form seperti contoh
dibawah ini:
2. Masukkan rumus:
Public NotInheritable Class
Latihan_22_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_22_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)
hma2.Dispose()
hma2 = New
OleDb.OleDbDataAdapter("select * from
detailtransaksi", hubung)
hma2.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.
4. Maka akan tampil program seperti
dibawah ini.
0 komentar:
Posting Komentar