DESKRIPSI
FORM LATIHAN 15
Form Latihan ini Terdapat satu object yaitu datagridview
Object Data
Gridview
Terdapat sebuah object datagridview. Datagridview digunakan untuk
menampilkan data yang ingin ditampilkan. Dalam latihan ini datanya diambil data
table barang dari file access
Script Unique
Untuk mendeklarasikan conection
Dim CONECT As New
OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data
source= " & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
Untuk mendeklarasikan adapter
Dim DEDE As New OleDb.OleDbDataAdapter
Memunculkan data tabel barang dari file access
DEDE = New OleDb.OleDbDataAdapter("select
* from BARANG", CONECT)
Untuk membersihkan data table
DS.Rows.Clear()
Mengisi database ke dalam data tabel
DEDE.Fill(DS)
Even
Load
Langkah-
Langkah Membuat Form Latihan 15
1 .Buka File Microsoft Visual Studio
Anda lalu pilih project --> Add
windows form
2. Ganti nama sesuai dengan nama
yang anda ingingkan
3. Lalu pilih object yang
ada di latihan 15
4. Buat form sampai
menghasilkan form seperti di bawah ini
5. Pilih menu view lalu klik code
6. Masukkan script sebagai berikut:
Public Class Latihan_15_46110024
Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
Dim DS As New DataTable
Private Sub Latihan_15_46110024_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim DEDE As New OleDb.OleDbDataAdapter
DEDE = New OleDb.OleDbDataAdapter("select * from BARANG", CONECT)
DS.Rows.Clear()
DEDE.Fill(DS)
dgv_46110024.DataSource = DS
DEDE.Dispose()
End Sub
End Class
Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
Dim DS As New DataTable
Private Sub Latihan_15_46110024_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim DEDE As New OleDb.OleDbDataAdapter
DEDE = New OleDb.OleDbDataAdapter("select * from BARANG", CONECT)
DS.Rows.Clear()
DEDE.Fill(DS)
dgv_46110024.DataSource = DS
DEDE.Dispose()
End Sub
End Class
Langkah-Langkah
Menjalankan Form Latihan 15
- Klick Star Debugging
- Data akan secara otomatis muncul pada object datagridview

0 komentar:
Posting Komentar