A. Langkah-Langkah Penyelesaian Form Latihan_16
· Buka project yang telah dibuat sebelumnya.
· Click project kemudian pilih add windows
form, seperti pada gambar dibawah ini
· Ketik nama form
"Latihan_16_46110007" pada name kemudian click add
· Buat form seperti berikut
·
Kemudian
beri nama pada objek “TK_46110007”
· Setelah form selesai masukkan rumus seperti
dibawah ini
Public Class
Latihan_16_46110007
Dim CONECT As New
OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=
E:\SEMESTER 5\VB\LATIHAN 15-26 MENGAKSES
DATA\datatransaksijualbeli.accdb")
Dim DS As New DataTable
Private Sub Latihan_16_46110007_Load(ByVal
sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim FANTY As New OleDb.OleDbDataAdapter
FANTY = New
OleDb.OleDbDataAdapter("select * from detailtransaksi", CONECT)
DS.Rows.Clear()
FANTY.Fill(DS)
TK_46110007.DataSource = DS
FANTY.Dispose()
End Sub
End Class
· Untuk menjalankan form tekan F5
B. Deskripsi Form Latihan 16
Pada form latihan 16 hanya ada 1 object
yang digunakan yaitu Data Grid View.
Object DataGridView
Terdapat 1 object datagridview yang berfungsi
untuk menampilkan data tabel.
Script Unique
Membuat koneksi
Dim CONECT 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 DS As New DataTable
Membuat adapter
Dim FANTY As New
OleDb.OleDbDataAdapter
Membersihkan data tabel
DS.Rows.Clear()
Mengisi data base kedalam data tabel
FANTY.Fill(DS)
TK_46110007.DataSource = DS
Menghancurkan adapter yang sudah dipakai
FANTY.Dispose()
Even
Load
Posting Komentar