Latihan_22_46110002

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 =" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")

Membuat data tabel

Dim dede1 As New DataTable

Dim dede2 As New DataTable

Membuat data set

Dim dss As New DataSet

Membuat data binding source

Dim ikha1 As New BindingSource

Dim ikha2 As New BindingSource

Membuat adapter

Dim chiko1 As New OleDb.OleDbDataAdapter

Dim chiko2 As New OleDb.OleDbDataAdapter

Mengisi data base kedalam data tabel

chiko1.Fill(TK1)

Menghancurkan adapter yang sudah dipakai

chiko1.Dispose()

Menambahkan data tabel kedalam data set

dss.Tables.Add(dede1)

dss.Tables.Add(dede2)

Membuat nama lain pada data tabel

dede1.TableName = "01"

dede2.TableName = "02"

Membuat relationship

dss.Relations.Add(New DataRelation("03", dss.Tables("01").Columns("notrans"), dss.Tables("02").Columns("notrans")))

Saat data set menjadi data source

ikha1.DataSource = dss

ikha1.DataMember = "01"  

Binding source menjadi data source pda datagridview

DGV1_46110002.DataSource = ikha1

DGV2_46110002.DataSource = ikha2

Even

Load

Langkah-Langkah Penyelesaian Form Latihan_22_46110002

·         Buka folder project yang telah dibuat.

·         Click project kemudian pilih add windows form

·         Buat form "Latihan_22_46110002" pada name kemudian click add 

·         Buat form seperti berikut

·         Setelah itu beri nama pada properties 

·         Setelah itu masukkan rumus

 Public Class Latihan_22_46110002
    Dim hubung As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source =" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")

    Dim dede1 As New DataTable
    Dim dede2 As New DataTable

    Dim dss As New DataSet

    Dim ikha1 As New BindingSource
    Dim ikha2 As New BindingSource

    Private Sub Latihan_22_46110002_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim chiko1 As New OleDb.OleDbDataAdapter
        Dim chiko2 As New OleDb.OleDbDataAdapter

        chiko1 = New OleDb.OleDbDataAdapter("select * from mastertransaksi", hubung)
        chiko1.Fill(dede1)
        chiko1.Dispose()

        chiko2 = New OleDb.OleDbDataAdapter("select * from detailtransaksi", hubung)
        chiko2.Fill(dede2)
        chiko2.Dispose()

        dss.Tables.Add(dede1)
        dss.Tables.Add(dede2)

        dede1.TableName = "01"
        dede2.TableName = "02"

        dss.Relations.Add(New DataRelation("03", dss.Tables("01").Columns("notrans"), dss.Tables("02").Columns("notrans")))

        ikha1.DataSource = dss
        ikha1.DataMember = "01"
        ikha2.DataSource = ikha1
        ikha2.DataMember = "03"

        DGV1_46110002.DataSource = ikha1
        DGV2_46110002.DataSource = ikha2
    End Sub
End Class

Langkah-Langkah Menjalankan Form Latihan 22

·         Klik star debugging, trus klik latihan 22

·          Maka akan muncul hasil seperti ini