Deskripsi Latihan 16:
Form
Latihan 16 terdapat satu object yaitu Data Grid View
Object
Data Grid View
Terdapat satu object
DataGridView digunakan untuk menampilkan semua field atau kolom pada table MASTERTRANSAKSI yang terdapat data D:\Apkom 4\LATIHAN 15-26 MENGAKSES DATA\datatransaksijualbeli
Script Unique
Dapat dilihat pada langkah -langkah penyelesaian latihan 16
Even
FromLoad
Property
Default
Form Latihan 16
Langkah-langkah
penyelesaian latihan 16:
- Buka project yang dibuat sebelumnya
- Pilih Add new item
- Setelah terbuka jendela Add new item, pilih windows form serta anda dapat mengganti nama form, dan setelah itu pilih add
- Buat form sesuai soal di atas dengan menggunakan Data Grid View
- Setelah form selesai, ubah nama DataGridView yang terdapat dalam properties window
- Selanjutnya masukkan formula atau rumus untuk menjalan form :
Public Class latihan16_36110056
Dim jalan As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= D:\Apkom 4\LATIHAN 15-26 MENGAKSES DATA\datatransaksijualbeli.accdb")
Dim ias As New DataTable
Private Sub latihan16_36110056_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim nos As New OleDb.OleDbDataAdapter
nos = New OleDb.OleDbDataAdapter("select * from MASTERTRANSAKSI", jalan)
ias.Rows.Clear()
nos.Fill(ias)
nos.Dispose()
Dgv_36110056.DataSource = ias
End Sub
End Class
Dim jalan As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= D:\Apkom 4\LATIHAN 15-26 MENGAKSES DATA\datatransaksijualbeli.accdb")
Dim ias As New DataTable
Private Sub latihan16_36110056_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim nos As New OleDb.OleDbDataAdapter
nos = New OleDb.OleDbDataAdapter("select * from MASTERTRANSAKSI", jalan)
ias.Rows.Clear()
nos.Fill(ias)
nos.Dispose()
Dgv_36110056.DataSource = ias
End Sub
End Class


Tidak ada komentar:
Posting Komentar