A. Langkah-Langkah Penyelesaian Form Latihan_24B
· Buka project yang telah dibuat sebelumnya.
· Click project kemudian pilih add windows form, seperti pada gambar dibawah ini
· Ketik nama form "Latihan_24B_46110007"
pada name kemudian click add
· Buat form seperti berikut
· Setelah
itu beri teks pada label
· Kemudian
beri nama pada semua objek, kecuali label
· Setelah form selesai masukkan rumus seperti
dibawah ini
Public Class
Latihan_24B_46110007
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")
Dim tabel As New DataTable
Public Sub TIKA(ByVal A As String)
Dim adapter As New OleDb.OleDbDataAdapter
adapter = New
OleDb.OleDbDataAdapter("SELECT DETAILTRANSAKSI.ID,
DETAILTRANSAKSI.NoTrans, DETAILTRANSAKSI.Unit, DETAILTRANSAKSI.Harga FROM
DETAILTRANSAKSI where kodebarang='" & A & "'", koneksi)
tabel.Rows.Clear()
adapter.Fill(tabel)
adapter.Dispose()
ISI_46110007.DataSource = tabel
End Sub
Private Sub Latihan_24B_46110007_Load(ByVal
sender As Object, ByVal e As System.EventArgs) Handles Me.Load
End Sub
Private Sub ISI_46110007_CellContentClick(ByVal
sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs)
Handles ISI_46110007.CellContentClick
End Sub
End Class
· Untuk menjalankan form tekan F5
B. Deskripsi Form Latihan 24B
Pada form latihan 24B ada 3
object yang digunakan yaitu Label, Text Box dan Data
Grid View.
Object Label
Terdapat 4 label pada form
latihan 24B (Kode Barang, Harga Barang, Harga Jual dan Jumlah Barang).
Object TextBox
Terdapat 4 object textbox yang
nantinya akan menampilkan detail data yang telah dipilih pada Latihan_24A_46110007.
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)
ISI_46110007.DataSource =
tabel
Menghancurkan adapter yang sudah dipakai
adapter.Dispose()
Even
Load
CellContentClick
Posting Komentar