Latihan_23b_46110006

Deskripsi Form Latihan_23B_46110006

Pada form latihan 23B ada 3 object yang digunakan yaitu Label, Text Box 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_46110006.

Object DataGridView

Terdapat 1 object datagridview berfungsi untuk menampilkan data tabel yang diinginkan (sesuai dengan detail pada text box).

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)

DTG_46110006.DataSource = tabel

Even

Load

CellContentClick

     Cara Membuat From Latihan 23B :

                         1.      Pilih item Toolbar “Project” kemudian pilih “Add Windows From”

2.  Setelah mengKlik “Add Windows From”, akan muncul tabel dibawah ini. Lalu rename pada Name menjadi nama form anda misalnya “ Latihan_23B_46110006”

3.  Buatlah desain dibawah ini dengan menggunakan toolbox TextBox dan Label.     

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

Public Class Latihan_23B_46110006

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

    Dim tabel As New DataTable

    Public Sub FITRI(ByVal A As String)

        Dim adapter As New OleDb.OleDbDataAdapter

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

        tabel.Rows.Clear()

        adapter.Fill(tabel)

        DTG_46110006.DataSource = tabel

    End Sub

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

    End Sub

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

    End Sub

End Class

            

                -   Klik STAR DEBUGING,lalu tekan atau klik button "KLIK" muncul form seperti berikut:

        -      Selamat Mencoba.