Deskripsi Form Latihan 25B
Pada form latihan 25B ada 3 object
yang digunakan yaitu Label, Text Box dan Data Grid View.
Object Label
Terdapat 4 label (Kode Barang, Harga
Barang, Harga Jual dan Jumlah Barang).
Object
TextBox
Terdapat 4 object textbox, yang akan
menampilkan detail data yang telah dipilih pada Latihan_25A_46110002.
Object
DataGridView
Terdapat 1
object datagridview 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
Mengisi data
base kedalam data tabel
adapter.Fill(tabel)
DGV_46110002.DataSource
= tabel
Even
Load
Langkah-Langkah
Penyelesaian Form Latihan_25B_46110002
·
Buka folder
project yang telah dibuat.
·
Click
project kemudian pilih add windows form
·
Buat form
"Latihan_25B_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_25B_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 kodebarang='" & A & "'", koneksi)
tabel.Rows.Clear()
adapter.Fill(tabel)
DGV_46110002.DataSource = tabel
End Sub
Private Sub Latihan_25B_46110002_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
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 kodebarang='" & A & "'", koneksi)
tabel.Rows.Clear()
adapter.Fill(tabel)
DGV_46110002.DataSource = tabel
End Sub
Private Sub Latihan_25B_46110002_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
End Class
Langkah-Langkah Menjalankan
Form Latihan 25B
·
Klik star
debugging, trus klik latihan 25A
·
Maka
akan muncul hasil seperti ini
·
Lalu click
“detail transaksi” maka hasil dari latihan 25B akan muncul







0 komentar:
Posting Komentar