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_46110027.
Object DataGridView
Terdapat 1 object datagridview yang berfungsi
untuk menampilkan data tabel.
Script Unique
Membuat koneksi
Dim koneksi As New OleDb.OleDbConnection("provider=microsoft.ACE.oledb.12.0;data source=D:\apkom 4\LATIHAN 15-26 MENGAKSES DATA\datatransaksijualbeli.accdb")
Even
Load
CellContentClick
- Langkah-langkah Membuat Form 23B
2. Ketik nama Latihan_23B yang akan dibuat pada kotak “NAME” lalu pilih “add”
3. Buatlah desain seperti berikut menggunakan toolbox
Klik kanan, pilih "properties" dan Beri nama pada objek di kolom "Name"
4. Pilih menu “view” klik “code”
5. Masukkan rumus berikut:
Public Class Latihan_23B_46110027
Dim koneksi As New OleDb.OleDbConnection("provider=microsoft.ACE.oledb.12.0;data source=D:\apkom 4\LATIHAN 15-26 MENGAKSES DATA\datatransaksijualbeli.accdb")
Dim tabel As New DataTable
Public Sub rsty(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)
dgv1_46110027.DataSource = tabel
End Sub
Private Sub Latihan_23B_46110027_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
End Sub
Private Sub DGV1_46110027_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgv1_46110027.CellContentClick
End Sub
End Class
6. Klik start debugging
7. Maka akan tampil Lat 23A sbb:
Lalu pilih tombol button "KLIK" akan tampil sbb:
0 komentar:
Posting Komentar