Latihan 22_36001155

PROSEDUR LATIHAN 22:

Ø  Lanjutan

Ø  Pilih “Add New Item” pada tool

Ø  Lalu pilih “Windows Form” dan ganti nama yang di ingin kan kemudian pilih “Add”

Ø  Muncullah form1.vb (Form1 bisa diganti)

Ø  Mulai bekerja dengan menggunakan tool pada toolbox

Ø  Buat 2 object Data Grid View digunakan untuk menampilkan data tabel.

Ø  Untuk lebih jelasnya perhatikan gambar di bawah ini :

 

Ø  Setelah selesai, maka kita masuk pada rumus yaitu :

Public Class Latihan_22_36001155

    Dim Masnur As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= D:\MATA KULIAH\SEMESTER 5\Apkom 4\Apkom\LATIHAN 15-26 MENGAKSES DATA\datatransaksijualbeli.accdb")

    Dim DS As New DataTable

    Dim Selayar1 As New DataTable

    Dim Selayar2 As New DataTable

    Dim dss As New DataSet

    Dim Orzhel1 As New BindingSource

    Dim Orzhel2 As New BindingSource

    Private Sub Latihan_22_36001155_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim Manarai1 As New OleDb.OleDbDataAdapter

        Dim Manarai2 As New OleDb.OleDbDataAdapter

        Manarai1 = New OleDb.OleDbDataAdapter("select * from mastertransaksi", Masnur)

        Manarai1.Fill(Selayar1)

        Manarai1.Dispose()

        Manarai1 = New OleDb.OleDbDataAdapter("select * from detailtransaksi", Masnur)

        Manarai1.Fill(Selayar2)

        Manarai2.Dispose()

        dss.Tables.Add(Selayar1)

        dss.Tables.Add(Selayar2)

        Selayar1.TableName = "01"

        Selayar2.TableName = "02"

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

        Orzhel1.DataSource = dss

        Orzhel1.DataMember = "01"

        Orzhel2.DataSource = Orzhel1

        Orzhel2.DataMember = "03"

        Phangarhu_36001155.DataSource = Orzhel1

        Selayar_36001155.DataSource = Orzhel2

    End Sub

End Class