Deskripsi Form Latihan 21
Pada
latihan 21 Hanya terdapat object DataGridView.
Object DataGridView
Terdapat
2, DataGridView1 yang akan menampilkan data dalam tabel
yang telah dibuat di script yang merupakan data dari microsoft Access dan
DataGridView2 akan menampilkan Detail dari data yang dipilih di DataGridView1.
Script Unique
-
Even
Load
Propertty
Default
Langkah-langkah
Menyelesaikan Form
- Buka project yang telah dibuat.
- Buat form baru, caranya click Project pada Toolbar pilih Add Windows Form kemudian ketik nama form yang diinginkan lalu click Add
- Buat desain form seperti gambar di atas dengan menggunakan DataGridView
- Ganti nama DataGridView di properties-Name
- Click Kanan lalu pilih View Code kemudian buatlah Script seperti dibawah ini:
Public Class
LATIHAN_21_46110037
Dim hubung As New
OleDb.OleDbConnection("provider =
microsoft.ace.oledb.12.0;data source =D:\POLTEK\5\Apkom (pak hasyim)\APKOM 4
a\LATIHAN 15-26 MENGAKSES DATA\DataTransaksiJualBeli.accdb")
Dim inna1 As New DataTable
Dim inna2 As New DataTable
Dim muthmil
As New DataSet
Dim muth1 As New BindingSource
Dim muth2 As New BindingSource
Private Sub latihan_21_46110037_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Dim
pink As New
OleDb.OleDbDataAdapter
Dim
biru As New
OleDb.OleDbDataAdapter
pink = New
OleDb.OleDbDataAdapter("select * from
mastertransaksi", hubung)
pink.Fill(inna1)
pink.Dispose()
pink = New
OleDb.OleDbDataAdapter("select * from
detailtransaksi", hubung)
pink.Fill(inna2)
biru.Dispose()
muthmil.Tables.Add(inna1)
muthmil.Tables.Add(inna2)
inna1.TableName = "01"
inna2.TableName = "02"
muthmil.Relations.Add(New DataRelation("03",
muthmil.Tables("01").Columns("notrans"), muthmil.Tables("02").Columns("notrans")))
muth1.DataSource = muthmil
muth1.DataMember = "01"
muth2.DataSource = muth1
muth2.DataMember = "03"
DGV146110037.DataSource = muth1
DGV246110037.DataSource = muth2
End Sub
End Class
- Click Start Debugging untuk menjalankan form
Tidak ada komentar:
Posting Komentar