latihan_21_46110004

Deskripsi form latihan 21
Dalam form Latihan 21 hanya terdapat satu object yaitu DataGriedView

Object datagridview :
Dalam form ini terdapat 2 buah object datagridview. Datagridview digunakan untuk menampilkan data kedalam bentuk table yang terdiri dari baris dan kolom.

Script Unique :
Dalam form ini tidak terdapat script unique karena script yang digunakan hampir sama dengan script yang digunakan di latihan 15 dan latihan 13.

Even :
Load

Langkah-langkah penyelesaian form latihan 21

1.Buat form baru seperti gambar dibawah ini,

2. Ketikkan nama form latihan_15_xxxxx, lalu klik add

3. Buat form seperti gambar di bawah ini:

4. Setelah itu input script berikut ini :

Public Class latihan_21_46110004
    Dim koneksi As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source =D:\Dokumen Koe\SEMESTER 5\APKOM 4\Visual Basic\LATIHAN 15-26 MENGAKSES DATA\DataTransaksiJualBeli.accdb")

    Dim tabel1 As New DataTable
    Dim tabel2 As New DataTable

    Dim ds As New DataSet

    Dim bs1 As New BindingSource
    Dim bs2 As New BindingSource

    Private Sub latihan_21_46110004_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim adapter1 As New OleDb.OleDbDataAdapter
        Dim adapter2 As New OleDb.OleDbDataAdapter

        adapter1 = New OleDb.OleDbDataAdapter("select * from mastertransaksi", koneksi)
        adapter1.Fill(tabel1)
        adapter1.Dispose()

        adapter2 = New OleDb.OleDbDataAdapter("select * from detailtransaksi", koneksi)
        adapter2.Fill(tabel2)
        adapter2.Dispose()

        ds.Tables.Add(tabel1)
        ds.Tables.Add(tabel2)

        tabel1.TableName = "sulhi"
        tabel2.TableName = "husni"

        ds.Relations.Add(New DataRelation("husni", ds.Tables("sulhi").Columns("notrans"), ds.Tables("husni").Columns("notrans")))

        bs1.DataSource = ds
        bs1.DataMember = "sulhi"
        bs2.DataSource = bs1
        bs2.DataMember = "husni"

        dg1_46110004.DataSource = bs1
        dg2_46110004.DataSource = bs2
    End Sub
End Class
5. Jalankan program dengan cara klik kanan pada project, lalu pilih properties, kemudian akan muncul tampilan seperti gambar dibawah ini: