Latihan_20_36110031

Tahap Penyelesaian Latihan_20_36110031

1.         Buka Project yang telah dibuat, lalu buka solution Explorer

2.          Setelah itu klik kanan nama project, pilih add dan klik “new item”

 

3.         Click Add New Item terbuka, pilih Windows Form, lalu isi Name dengan Nama Latihan_20  dan add. seperti pada gambar dibawah:

 

4.         Buat Form Latihan_20 dibawah ini:

 

  5.    Berikut ini Rumus untuk menjalankan Form diatas:

Public Class Latihan_20_36110031

    Dim audry As New OleDb.OleDbConnection("Provider=microsoft.ace.oleDb.12.0;data source=E:\Apkom 4\LATIHAN 15-26 MENGAKSES DATA\DataTransaksiJualBeli.accdb")

    Dim tabel As New DataTable

    Private Sub Latihan_20_36110031_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim AAM As New OleDb.OleDbDataAdapter

        AAM = New OleDb.OleDbDataAdapter("select Barang.KodeBarang, Barang.NamaBarang, MasterTransaksi.Notrans, MasterTransaksi.TanggalTransaksi, MasterTransaksi.JenisTransaksi, DetailTransaksi.Unit, DetailTransaksi.Harga From (MasterTransaksi inner join DetailTransaksi on MasterTransaksi.Notrans = DetailTransaksi.Notrans) inner join Barang on DetailTransaksi.KodeBarang = Barang.KodeBarang", audry)

        tabel.Rows.Clear()

        AAM.Fill(tabel)

        DGV_36110031.DataSource = tabel

        AAM.Dispose()

    End Sub

End Class

6.         Setelah itu jalankan Programnya dengan menekan “start debugging”

 

7.         Setelah menekan  “start debugging” akan muncul gambar seperti dibawah ini:

 

8.         Kemudian simpan file tersebut dengan menekan icon “save”

 

9.         Selesai

Deskripsi Latihan_20_36110031
A. Object dalam latihan_20
      Hanya terdapat satu object yaitu DataGridView 
B. Script Unique 
     Untuk script dapat dilihat pada tahap penyelesaian latihan_20_36110031 yang tertera diatas
C. Even 
   Latihan_20_36110031_Load