Deskripsi Form Latihan 23B
Pada form latihan 23B ada 3 object
yang digunakan yaitu Label, Text Box dan Data Grid View.
Object Label
Terdapat 4 label (Detail Transaksi,
Nomor, Tanggal dan Jenis).
Object
TextBox
Terdapat 3 object textbox, yang
nantinya akan menampilkan detail data yang telah dipilih dari Latihan_23A_46110002.
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=" & Application.StartupPath & "\datatransaksijualbeli.accdb")
Membuat data tabel
Dim tabel As New DataTable
Membuat
adapter
Dim adapter As New
OleDb.OleDbDataAdapter
adapter = New
OleDb.OleDbDataAdapter("select*from
detailtransaksi where notrans='" & A & "'", koneksi)
tabel.Rows.Clear()
adapter.Fill(tabel)
Langkah-Langkah
Penyelesaian Form Latihan_23B_46110002
·
Buka folder
project yang telah dibuat.
·
Click project
kemudian pilih add windows form
·
Buat form
"Latihan_23B_46110002" pada name kemudian click add
·
Buat form
seperti berikut
·
Setelah itu
beri nama pada properties
·
Klik kanan,
view kode lalu masukkan rumus
Public Class Latihan_23B_46110002
Dim koneksi As New OleDb.OleDbConnection("provider=microsoft.ACE.oledb.12.0;data source=" & Application.StartupPath & "\datatransaksijualbeli.accdb")
Dim tabel As New DataTable
Public Sub ILDA(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)
DGV_46110002.DataSource = tabel
End Sub
End Class
Dim koneksi As New OleDb.OleDbConnection("provider=microsoft.ACE.oledb.12.0;data source=" & Application.StartupPath & "\datatransaksijualbeli.accdb")
Dim tabel As New DataTable
Public Sub ILDA(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)
DGV_46110002.DataSource = tabel
End Sub
End Class
Langkah-Langkah Menjalankan
Form Latihan 23B
·
Klik star
debugging, trus klik latihan 23A
·
Maka
akan muncul hasil seperti ini
·
Lalu click “klik”
maka hasil dari latihan 23B akan muncul







0 komentar:
Posting Komentar