A. Langkah-Langkah Penyelesaian Form Latihan_15
· Buka project yang telah dibuat sebelumnya.
· Click project kemudian pilih add windows
form, seperti pada gambar dibawah ini
· Ketik nama form "Latihan_15_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_15_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 Latihan15_Load(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim FANTY As New OleDb.OleDbDataAdapter
FANTY = New
OleDb.OleDbDataAdapter("select * from barang", 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 15
Pada form latihan 15 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