Latihan_21_46110002

Deskripsi Form Latihan 21

Pada form latihan 21 hanya ada 1 object yang digunakan yaitu Data Grid View.

Object DataGridView

Terdapat 2 object datagridview yang berfungsi untuk menampilkan data tabel barang pada file access.

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 ILDA1 As New DataTable

Dim ILDA2 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

Mengisi data base kedalam data tabel

chiko1.Fill(ILDA1)

Menghancurkan adapter yang sudah dipakai

chiko1.Dispose()

Menambahkan data tabel kedalam data set

dss.Tables.Add(ILDA1)

dss.Tables.Add(ILDA2

Membuat nama lain pada data tabel

ILDA1.TableName = "01"

ILDA2.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

Binding source menjadi data source pda datagridview

  DGV1_46110002.DataSource = ikha1

        DGV2_46110002.DataSource = ikha2

Even

Load

Langkah-Langkah Penyelesaian Form Latihan_21_46110002

·         Buka folder project yang telah dibuat.

·         Click project kemudian pilih add windows form

·         Buat form "Latihan_21_46110002" pada name kemudian click add

·         Buat form seperti berikut

·         Setelah itu beri nama pada properties 

·         Setelah itu masukkan rumus

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

    Dim ILDA1 As New DataTable
    Dim ILDA2 As New DataTable

    Dim dss As New DataSet

    Dim ikha1 As New BindingSource
    Dim ikha2 As New BindingSource

    Private Sub Latihan_21_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(ILDA1)
        chiko1.Dispose()

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

        dss.Tables.Add(ILDA1)
        dss.Tables.Add(ILDA2)

        ILDA1.TableName = "01"
        ILDA2.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 21

·         Klik star debugging, trus klik latihan 21

·          Maka akan muncul hasil seperti ini