Latihan_23B_46110043

A. Langkah-langkah Pembuatan dan Penyelesaian Form Pada Latihan 23B

1. Bukalah Kumpulan Project yang telah dibuat.

2. Kemudian pilih Project, lalu Add Windows Form

3. Ubah nama Form menjadi "Latihan_23B_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. Begitu juga pada object TextBox dan DateTimePicker kecuali Object Label tidak usah. Contoh pada TextBox dibawah ini:

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

Public Class Latihan_23B_46110043

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

    Dim tabel As New DataTable

    Public Sub uly(ByVal A As String)

        Dim adapter As New OleDb.OleDbDataAdapter

        adapter = New OleDb.OleDbDataAdapter("select*from detailtransaksi where notrans='" & A & "'", CONECT)

        tabel.Rows.Clear()

        adapter.Fill(tabel)

        life_46110043.DataSource = tabel

    End Sub

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

    End Sub

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

    End Sub

End Class

8. Klik Start Debugging pada ToolBar untuk menjalankan form.

B. Deskripsi Form Latihan_23B

Pada Form Latihan_23B pada gambar diatas terdapat 1 Object DataGridView, 2 Object TextBox, 1 Object DateTimePicker dan 4 Object Label.

Object Label
Terdapat 4 object Label yang masing masing bernama: DETAIL TRANSAKSI, Nama, Tanggal dan Jenis"

Object DataGridView

Terdapat 1 object datagridview yang berfungsi untuk menampilkan datatabel .

Object Button

Terdapat 2 object textbox, yang nantinya akan menampilkan detail data yang telah dipilih pada Latihan_23A_46110043.

Object DateTimePicker

Terdapat satu Object DatetimePicker yang digunakan untuk menginput tanggal data.

Script Unique

Membuat Koneksi

Dim koneksi 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 tabel As New DataTable

Membuat adapter

Dim adapter As New OleDb.OleDbDataAdapter

Membersihkan data tabel

tabel.Rows.Clear()

Mengisi data base kedalam data tabel

adapter.Fill(tabel)

life_46110043.DataSource = tabel

Even

Load

CellContentClick