Deskripsi Latihan 17
Pada form latihan 17 ini, hanya terdapat satu object, yaitu object DataGridView .
Script Unique
Membuat koneksi:
Dim connect As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")
Membuat Adapter:
Dim feby As New OleDb.OleDbDataAdapter
feby = New OleDb.OleDbDataAdapter("select * from mastertransaksi", connect)
Mengisi datatable ke database:
feby.Fill(fb)
dgv46110055.DataSource = fb
Menghancurkan adapter yg telah dipakai:
feby.Dispose()
Even
Load
Cara membuat Latihan 17:
1. Buka Microsoft Visual Studio 2008
2. Setelah itu pilih “kumpulan_Latihan_46110055” (sesuai dengan nama file anda)
4. Ketik nama latihan yang akan dibuat pada kotak “NAME” (namun jangan menghapus nama .vb) setelah itu pilih “add”.
5. Buatlah desain sesuai dengan yang diperintahkan soal “Latihan 17”
6. Setelah itu ganti nama design yang diakhiri nim anda pada object DataGriedView.
7. Pilih menu “view” klik “code”.
8. Masukkan rumus berikut :
Public Class Latihan_17_46110055
Dim connect As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")
Dim fb As New DataTable
Private Sub Latihan_17_46110055_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim feby As New OleDb.OleDbDataAdapter
feby = New OleDb.OleDbDataAdapter("select * from mastertransaksi", connect)
fb.Rows.Clear()
feby.Fill(fb)
dgv46110055.DataSource = fb
feby.Dispose()
End Sub
End Class
9. Klik start debugging.
10.Maka akan muncul hasil seperti dibawah ini :
Tidak ada komentar:
Posting Komentar