Latihan_21_36110034

Deskripsi penyelesaian

Form Latihan_21_36110034  terdapat satu object yaitu DataGreatView

Object DataGreatview

Terdapat dua object datagreatview. Pada datagreatview yang pertama akan menampilkan table yang berasal dari data acces, yang dimana akan muncul semua kolom pada table yang berjudul detailtransaksi dan pada tabel mastertransaksi. 

Property

Property Datagreatview => name => ok

Prosedur penyelesaian

1.   buka project yang telah dibuat sebelumnya klik add new item => add windows form => ganti nama project => add.

 

2.   membuat form dengan menggunakan Label dan Textbox yang ada dalam "Toolbox”.

 

3.   ganti nama textbox dan button menggunakan "Properties Window".

 

4.   membuka lembar vb Masukkan rumus berikut untuk menyelesaikan latihan_21_36110034

Public NotInheritable Class latihan_21_36110034

    Dim ANDINI As New DataSet

    Dim ANDINI1 As New DataTable

    Dim ANDINI2 As New DataTable

    Dim WARA1 As New BindingSource

    Dim WARA2 As New BindingSource

    Dim AW1 As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=E:\SEMESTER 5\APKOM 4\kumpulan_latihan_36110034\DataTransaksiJualBeli.accdb")

    Dim AW2 As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=E:\SEMESTER 5\APKOM 4\kumpulan_latihan_36110034\DataTransaksiJualBeli.accdb")

    Private Sub latihan_21_36110034_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        Dim DIAN1 As New OleDb.OleDbDataAdapter

        DIAN1 = New OleDb.OleDbDataAdapter("select  * from MASTERTRANSAKSI", AW1)

        DIAN1.Fill(ANDINI1)

        DIAN1.Dispose()

        DGV1_36110034.DataSource = ANDINI1

        Dim DIAN2 As New OleDb.OleDbDataAdapter

        DIAN2 = New OleDb.OleDbDataAdapter("select  * from DETAILTRANSAKSI", AW2)

        DIAN2.Fill(ANDINI2)

        DIAN2.Dispose()

        DGV2_36110034.DataSource = ANDINI2

        ANDINI.Tables.Add(ANDINI1)

        ANDINI.Tables.Add(ANDINI2)

        ANDINI1.TableName = "DD1"

        ANDINI2.TableName = "DD2"

        ANDINI.Relations.Add(New DataRelation("DDZ1", ANDINI.Tables("DD1").Columns("NOTRANS"), ANDINI.Tables("DD2").Columns("NOTRANS")))

        WARA1.DataSource = ANDINI

        WARA1.DataMember = "DD1"

        WARA2.DataSource = WARA1

        WARA2.DataMember = "DDZ1"

        DGV1_36110034.DataSource = WARA1

        DGV2_36110034.DataSource = WARA2

    End Sub

End Class

5.      5.Jalankan program dengan “start debugging”.