LATIHAN 22 APKOM 4 D3B Akuntansi PNUP

A.    Object dalam Latihan_22_36110051 :

Hanya ada satu object dalam Latihan_22_36110051, yaitu object DataGridView sebanyak dua.

B.     Script Unique

Untuk script, dapat diliat secara lebih lengkap pada Prosedur Penyelesaian Latihan_22_36110048.

C.     Even

Latihan_22_36110051_Load

 

PROSEDUR :

1.      Klik Start lalu pilih Microsoft Visual Studio 2008

 

2.      Lalu akan muncul jendela awal Microsoft Visual Studio seperti di bawah ini.

 

3.      Lalu pilih New Project dan beri nama serta pilih tempat folder untuk menyimpannya.

 

4.      Kemudian buat form sesuai dengan form di bawah ini.

 

5.      Berikut ini adalah rumus untuk menjalankan form di atas.

 

Public NotInheritable Class Latihan_22_36110051

    Dim aci As New DataSet

    Dim aci1 As New DataTable

    Dim aci2 As New DataTable

    Dim isa1 As New BindingSource

    Dim isa2 As New BindingSource

    Dim isa11 As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & Application.StartupPath & "\DataTransaksiJualBeli.accdb'")

    Dim isa12 As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & Application.StartupPath & "\DataTransaksiJualBeli.accdb'")

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

        Dim melissa1 As New OleDb.OleDbDataAdapter

        melissa1 = New OleDb.OleDbDataAdapter("select  * from MASTERTRANSAKSI", isa11)

        melissa1.Fill(aci1)

        melissa1.Dispose()

        DGV1_36110051.DataSource = aci1

        Dim melissa2 As New OleDb.OleDbDataAdapter

        melissa2 = New OleDb.OleDbDataAdapter("select  * from Query4", isa12)

        melissa2.Fill(aci2)

        melissa2.Dispose()

        DGV2_36110051.DataSource = aci2

        aci.Tables.Add(aci1)

        aci.Tables.Add(aci2)

        aci1.TableName = "an1"

        aci2.TableName = "an2"

        aci.Relations.Add(New DataRelation("ant1", aci.Tables("an1").Columns("NOTRANS"), aci.Tables("an2").Columns("NOTRANS")))

        isa1.DataSource = aci

        isa1.DataMember = "an1"

        isa2.DataSource = isa1

        isa2.DataMember = "ant1"

        DGV1_36110051.DataSource = isa1

        DGV2_36110051.DataSource = isa2

    End Sub

End Class

6.      Setelah itu, jalankan programnya dengan mengklik icon “Start Debbuging”.