Latihan_23B_46110055

Deskripsi Latihan 23B

 Pada form latihan 23B ada 3 object yang digunakan yaitu Label, Textbox dan Data Grid View.

Object Label
Terdapat 4 label pada form latihan 23B (Detail Transaksi, Nomor, Tanggal dan Jenis).

Object Textbox                                                              
Terdapat 3 object textbox, yang nantinya akan menampilkan detail data yang telah dipilih pada Latihan_23A_46110055.

Object DataGridView
Terdapat 1 object datagridview yang berfungsi untuk menampilkan data tabel.

Script Unique

Membuat koneksi :
    Dim connect As New OleDb.OleDbConnection("provider=microsoft.ACE.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")
 
Even  
Load
CellContentClick

Cara  membuat Latihan 23B:

1. Buka  Microsoft Visual Studio 2008
2. Setelah itu  pilih “kumpulan_Latihan_46110055” (sesuai dengan nama file anda)

3. Pilih menu Project lalu klik add windows form

4. Ketik nama latihan yang akan dibuat pada kotak “NAME”  (namun jangan menghapus nama .vb) setelah itu pilih “add”.

5. Buatlah desain sesuai dengan yang diperintahkan soal “Latihan 23B”

 

6. Setelah itu beri teks pada label dan textbox , serta ganti nama design yang diakhiri nim anda pada semua object, kecuali label.

7. Pilih menu “view” klik  “code”.
8. Masukkan rumus berikut :

Public Class Latihan_23B_46110055
    Dim connect As New OleDb.OleDbConnection("provider=microsoft.ACE.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")
    Dim tabel As New DataTable

    Public Sub fby(ByVal A As String)
        Dim feby As New OleDb.OleDbDataAdapter
        feby = New OleDb.OleDbDataAdapter("select*from detailtransaksi where notrans='" & A & "'", connect)
        tabel.Rows.Clear()
        feby.Fill(tabel)

        dgv146110055.DataSource = tabel
    End Sub

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

    End Sub

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

    End Sub
End Class


9. Klik start debugging.

10.Maka akan muncul terlebih dahulu seperti ini :

11. Setelah itu klik button "klik' maka akan muncul tampilan dibawah ini :