Latihan_20_36110056

Deskripsi Latihan 20:

Form Latihan 20 terdapat satu object yaitu Data Grid View

Object  Data Grid View

Terdapat satu object DataGridView 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 20

Even

FromLoad

Property

Default

 
                                                 Form Latihan 20

Langkah-langkah penyelesaian latihan 20:

• 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 latihan20_36110056
    Dim ias As New DataTable
    Dim noer As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= D:\Apkom 4\LATIHAN 15-26 MENGAKSES DATA\datatransaksijualbeli.accdb")
    Private Sub latihan20_36110056_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim ica As New OleDb.OleDbDataAdapter
        ica = New OleDb.OleDbDataAdapter(" select barang.kodebarang, barang.namabarang, detailtransaksi.unit, detailtransaksi.harga, mastertransaksi.notrans, mastertransaksi.tanggaltransaksi, mastertransaksi.jenistransaksi from (detailtransaksi inner join barang on detailtransaksi.kodebarang = barang.kodebarang) inner join mastertransaksi on mastertransaksi.notrans = detailtransaksi.notrans ", noer)
        ias.Rows.Clear()
        ica.Fill(ias)
        ica.Dispose()
        Dgv_36110056.DataSource = ias
    End Sub
End Class

• Selanjutnya jika ingin menjalankannya pilih Start de bungging