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
Label: edit post
0 Responses

Posting Komentar