Latihan_20_46110006

Deskripsi Form Latihan 20 :

Form latihan 20 terdapat Satu  object yaitu  DataGriedView.

Object DataGridView :

Dalam form ini terdapat satu objek DataGridView yang berfungsi untuk menampilkan semua data dari SQL.

 

Script unik

Untuk membuat Connection  :

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

Untuk membuat datatable :

 Dim DS As New DataTable

Untuk membuat DataAdapter :

Dim fitri As New OleDb.OleDbDataAdapter

Untuk membersihkan datatable :

  DS.Rows.Clear()

Untuk mengisi data base kedalam datatable :

fitri I.Dispose()

Even

  Load

Cara Untuk Membuat Form Latihan 20:

1.       Pertama Bukalah Project yang telah anda buat sebelumnya.

2.       Pilih dan  Buka Project dalam visual basic.

3.       Kemudian pilih Add Windows form

4.       Lalu add new item dan rename file “form.vb menjadi Latihan_20_46110006”

5.       Buatlah design form seperti pada gambar berikut ini :

6.    Klik kanan lalu pilih “View Code” ,setelah itu ketik rumus untuk menjalankan from diatas
 

Public Class Latihan_20_46110006

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

    Dim DS As New DataTable

    Private Sub Latihan_20_46110006_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        Dim fitri As New OleDb.OleDbDataAdapter

        fitri = 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", CONECT)

        DS.Rows.Clear()

        fitri.Fill(DS)

        dtg_46110006.DataSource = DS

        fitri.Dispose()

    End Sub

End Class

 

Langkah – Langkah Menjalankan Latihan 20:

1.       Klik start debugging, Maka Secara otomatis akan muncul seperti di bawah ini :

     2. Selamat Mencoba