latihan_21_36110036

Deskripsi latihan_21_36110036

A.           Object Data gridview

    Terdapat dua object data gridview yang digunakan untuk menampilkan data table yang telah dibuat.   

B.            Script Unique

    Untuk script unique dapat dilihat pada Langkah-langkah mengerjakan    latihan_21_36110036.

C.          Even

Latihan_21_36110036_Load 

 

Langkah-langkah mengerjakan latihan_21_36110036

            1.          Buka project yang telah dibuat, dan buka solution explorer

            2.          Klik  kanan nama project ==> add ==> new item

        

                 3.          Klik New Item, setelah terbuka  pilih windows form dan ketik nama form  lalu klik Add 

           

4.      Kemudian klik file tersebut,  maka akan terbuka jendela pekerjaan dari Ms. Visual Studio.

5.     Kemudian buat form seperti dibawah ini: 

                  

6.    Setelah design form selesai  dibuatlah rumusnya, Berikut adalah rumus untuk     menjalankan  latihan_21_36110036

Public Class latihan_21_36110036

    Dim hubung As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source = D:\apkom 4\LATIHAN 15-26 MENGAKSES DATA\datatransaksijualbeli.accdb")

    Dim anna1 As New DataTable

    Dim anna2 As New DataTable

    Dim icha As New DataSet

    Dim uchi1 As New BindingSource

    Dim uchi2 As New BindingSource

    Private Sub latihan_21_36110036_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(anna1)

        chiko1.Dispose()

        chiko1 = New OleDb.OleDbDataAdapter("select * from detailtransaksi", hubung)

        chiko1.Fill(anna2)

        chiko2.Dispose()

        icha.Tables.Add(anna1)

        icha.Tables.Add(anna2)

        anna1.TableName = "01"

        anna2.TableName = "02"

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

        uchi1.DataSource = icha

        uchi1.DataMember = "01"

        uchi2.DataSource = uchi1

        uchi2.DataMember = "03"

        data1_36110036.DataSource = uchi1

        data2_36110036.DataSource = uchi2

    End Sub

End Class

7.       Setelah rumus selesai, program dijalankan dengan menggunakan start debugging

8.     Setelah program jalan maka file disave.