Latihan_21_46110022
Deskripsi Form Latihan_21_46110022
Dalam
form ini hanya terdapat 1 buah object yaitu DataGriedView.
Object Datagriedview
Terdapat
dua buah object Datagriedview yang digunakan untuk menampilkan data tabel yang
telah dibuat.
Script Unique
1. Dim ega1 As New DataTable
==> untuk membuat DataTable baru.
2. Dim ayam1 As New OleDb.OleDbDataAdapter ==> untuk membuat
adapter baru.
3. Dim noldi1 As New BindingSource
==> untuk membuat data Binding Source baru.
4. Dim dss As New
DataSet ==> untuk membuat data set baru.
5. dss.Tables.Add(ega1)
==> untuk menambahkan data table ke
dalam dataset.
6. ega1.TableName =
"01" ==> untuk membuat nama lain pada DataTable
7. ayam1.Fill(ega1)
==> untuk mengisi database ke dalam data
table
8. dss.Relations.Add(New DataRelation("03",
dss.Tables("01").Columns("notrans"), dss.Tables("02").Columns("notrans")))
==> untuk membuat relationship.
9. ega.Dispose() ==> untuk
menghancurkan adapter yang telah dipakai.
10.
noldi1.DataSource = dss
noldi1.DataMember = "01"
noldi2.DataSource = noldi1
noldi2.DataMember = "03"
==> ketika data set menjadi data sorce
11.
dgv146110022.DataSource = noldi1
dgv246110022.DataSource = noldi2 ==> Binding source menjadi data source pda datagridview.
Even
Load
Langkah-Langkah Membuat Form Latihan 21_46110022
1.
Buat form baru seperti langkah berikut :
2.
Input nama form pada kolom "add" seperti berikut :
3.
Buat desain form seperti gambar berikut :
4.
Input script di bawah ini :
Public Class Latihan_21_46110022
Dim hubung As New
OleDb.OleDbConnection("provider =
microsoft.ace.oledb.12.0;data source =E:\SEMESTER 5\apkom\bahan ajar\LATIHAN
15-26 MENGAKSES DATA\DataTransaksiJualBeli.accdb")
Dim ega1 As New DataTable
Dim ega2 As New DataTable
Dim dss As New DataSet
Dim noldi1 As New BindingSource
Dim noldi2 As New BindingSource
Private Sub Latihan_21_46110022_Load(ByVal
sender As Object,
ByVal e As
System.EventArgs) Handles Me.Load
Dim
ayam1 As New
OleDb.OleDbDataAdapter
Dim
ayam2 As New
OleDb.OleDbDataAdapter
ayam1 = New
OleDb.OleDbDataAdapter("select * from
mastertransaksi", hubung)
ayam1.Fill(ega1)
ayam1.Dispose()
ayam1 = New
OleDb.OleDbDataAdapter("select * from
detailtransaksi", hubung)
ayam1.Fill(ega2)
ayam2.Dispose()
dss.Tables.Add(ega1)
dss.Tables.Add(ega2)
ega1.TableName = "01"
ega2.TableName = "02"
dss.Relations.Add(New DataRelation("03",
dss.Tables("01").Columns("notrans"), dss.Tables("02").Columns("notrans")))
noldi1.DataSource = dss
noldi1.DataMember = "01"
noldi2.DataSource = noldi1
noldi2.DataMember = "03"
dgv146110022.DataSource = noldi1
dgv246110022.DataSource = noldi2
End Sub
End Class
5. Jalankan program dengan cara
mengklik start debugging seperti berikut :
Langkah-Langkah Membuat Form Latihan 21_46110022
- Klik start
debugging
- Hasil akan
muncul sendiri secara otomatis.
- Good luck :)
Postingan
