Latihan_22_36110056

Deskripsi Latihan 22:

Form Latihan 22 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 22

Even

FromLoad

Property

Default

                                                        From Latihan 22

Langkah-langkah penyelesaian latihan 22:

• 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 latihan22_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 detailtransaksi.notrans, detailtransaksi.harga, detailtransaksi.unit, detailtransaksi.kodebarang, barang.namabarang, detailtransaksi.unit*barang.hargajual as [jumlah standar], detailtransaksi.unit * detailtransaksi.harga as [jumlah realisasi] from detailtransaksi inner join barang on barang.kodebarang = detailtransaksi.kodebarang ", 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