Latihan_20_46110043

A. Langkah-langkah Pembuatan dan Penyelesaian Form Pada Latihan 20

1. Bukalah Kumpulan Project yang telah dibuat.

2. Kemudian pilih Project, lalu Add Windows Form

3. Ubah nama Form menjadi "Latihan_20_NIM" tanpa menghilangkan (.vb)

4. Buatlah form pada window tersebut seperti gambar dibawah ini:

semua kelengkapan (object) pada form dapat kita temukan di ToolBox

5. Ubah nama pada Data Grid View sesuai dengan yang kita inginkan. Jangan lupa menambahkan NIM anda pada akhir nama.

6. Setelah form selesai klik kanan pada form lalu pilih View Code lalu masukkan script dibawah ini pada window:

Public Class Latihan_20_46110043

  Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")

    Dim BON5 As New DataTable

    Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")

    Dim BON6 As New DataTable

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

        Dim TRI6 As New OleDb.OleDbDataAdapter

        TRI6 = 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)

        BON6.Rows.Clear()

        TRI6.Fill(BON6)

        TRINITA1_46110043.DataSource = BON6

        TRI6.Dispose()

End Sub

    

End Class

8. Klik Start Debugging pada ToolBar untuk menjalankan form.

B. Deskripsi Form Latihan_20

Pada Form Latihan_20 pada gambar diatas hanya terdapat 1 Object DataGridView.

Object DataGridView

Terdapat 1 object datagridview yang berfungsi untuk menampilkan datatabel yang dinginkan .

Script Unique

Untuk membuat koneksi (connector)

 Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")

Untuk membuat Data Tabel

Dim BON6 As New DataTable

Untuk membuat Adapter

Dim TRI6 As New OleDb.OleDbDataAdapter

Untuk membersihkan Data Tabel

BON6.Rows.Clear()

Untuk mengisi Database ke dalam DataTabel

TRI6.Fill(BON2)

        TRINITA1_46110043.DataSource = BON

Untuk menghancurkan Adapter yang sudah dipakai

TRI5.Dispose()

Even

Load