A. Langkah-Langkah Penyelesaian Form Latihan_19
· Buka project yang telah dibuat sebelumnya.
·  Click project kemudian pilih add windows
form, seperti pada gambar dibawah ini 
·  Ketik nama form
"Latihan_19_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_19_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_19_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 mastertransaksi.notrans,
mastertransaksi.tanggaltransaksi, mastertransaksi.jenistransaksi,
detailtransaksi.kodebarang, detailtransaksi.unit, detailtransaksi.harga from
mastertransaksi inner join detailtransaksi on
mastertransaksi.notrans=detailtransaksi.notrans", CONECT)
        DS.Rows.Clear()
        FANTY.Fill(DS)
        TK_46110007.DataSource = DS
        FANTY.Dispose()
    End Sub
    Private Sub
TK_46110007_CellContentClick(ByVal sender As Object, ByVal e As
System.Windows.Forms.DataGridViewCellEventArgs) Handles
TK_46110007.CellContentClick
    End Sub
End Class
·  Untuk menjalankan form tekan F5  
B. Deskripsi Form Latihan 19
Pada form latihan 19 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