Latihan_21_36110056

Deskripsi Latihan 21:

Form Latihan 21 terdapat satu object yaitu Data Grid View

Object  Data Grid View

Terdapat dua object DataGridView yang diberi nama Dgv_36110056 dan Dgv2_36110056 dan digunakan untuk menampilkan semua field atau kolom yang terdapat dalam data D:\Apkom 4\LATIHAN 15-26 MENGAKSES DATA\datatransaksijualbeli

Script Unique

 Dapat dilihat pada langkah -langkah penyelesaian latihan 21

Even

FromLoad

Property

Default





                                                    Form Latihan 21

Langkah-langkah penyelesaian latihan 21:

• Buka project yang dibuat sebelumnya
• Pilih Add new item

• Setelah terbuka jendela Add new item, pilih windows form  serta anda dapat mengganti nama form, dan setelah itu pilih add

• Buat form sesuai soal di atas dengan menggunakan Data Grid View yang terdapat dalam toolsbox

• Setelah form selesai, ubah nama DataGridView yang terdapat dalam properties window  

• Selanjutnya masukkan formula atau rumus untuk menjalan form  :

Public Class latihan21_36110056
    Dim iyas As New DataSet
    Dim ias As New DataTable
    Dim ias2 As New DataTable
    Dim boz As New BindingSource
    Dim boz1 As New BindingSource
    Dim jembatan As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= D:\Apkom 4\LATIHAN 15-26 MENGAKSES DATA\datatransaksijualbeli.accdb")
    Dim jembatan2 As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= D:\Apkom 4\LATIHAN 15-26 MENGAKSES DATA\datatransaksijualbeli.accdb")
    Private Sub form21_36109003_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim mis As New OleDb.OleDbDataAdapter
        mis = New OleDb.OleDbDataAdapter("select  * from MASTERTRANSAKSI", jembatan)
        mis.Fill(ias)
        mis.Dispose()
        Dgv_36110056.DataSource = ias
        Dim mis2 As New OleDb.OleDbDataAdapter
        mis2 = New OleDb.OleDbDataAdapter("select  * from DETAILTRANSAKSI", jembatan2)
        mis2.Fill(ias2)
        mis2.Dispose()
        Dgv2_36110056.DataSource = ias2
        iyas.Tables.Add(ias)
        iyas.Tables.Add(ias2)
        ias.TableName = "data1"
        ias2.TableName = "data2"
        iyas.Relations.Add(New DataRelation("ant1", iyas.Tables("data1").Columns("NOTRANS"), iyas.Tables("data2").Columns("NOTRANS")))
        boz.DataSource = iyas
        boz.DataMember = "data1"
        boz1.DataSource = boz
        boz1.DataMember = "ant1"
        Dgv_36110056.DataSource = boz
        Dgv2_36110056.DataSource = boz1
    End Sub
    End Class

• Selanjutnya jika ingin menjalankannya pilih Start de bungging