Latihan_19_46110006

Deskripsi Form Latihan 19 :

Pada form latihan 19 hanya ada 1 object yang digunakan yaitu Data Grid View.

Object DataGridView

Terdapat 1 object datagridview yang berfungsi untuk menampilkan data tabel.

Script Unique

Membuat koneksi

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

Membuat data tabel

Dim DS As New DataTable

Membuat adapter

Dim fitri As New OleDb.OleDbDataAdapter

Membersihkan data tabel

DS.Rows.Clear()

Mengisi data base kedalam data tabel

fitri.Fill(DS)

        DTG_46110006.DataSource = DS

Menghancurkan adapter yang sudah dipakai

fitri.Dispose()

Even

Load

Cara Untuk Membuat Form Latihan 19:

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_19_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_19_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_19_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 mastertransaksi.notrans, mastertransaksi.tanggaltransaksi, mastertransaksi.jenistransaksi, detailtransaksi.kodebarang, detailtransaksi.unit, detailtransaksi.harga from mastertransaksi inner join detailtransaksi on mastertransaksi.notrans=detailtransaksi.notrans", CONECT)

        DS.Rows.Clear()

        fitri.Fill(DS)

        dtg_46110006.DataSource = DS

        fitri.Dispose()

    End Sub

    Private Sub dtg_46110006_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dtg_46110006.CellContentClick

    End Sub

End Class

 

Langkah – Langkah Menjalankan Latihan 19:

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

2. Selamat Mencoba