Deskripsi Latihan 18:
Form
Latihan 18 terdapat satu object yaitu Data Grid View
Object
Data Grid View
Terdapat satu object
DataGridView digunakan untuk menampilkan semua field atau kolom yang terdapat dalam data D:\Apkom 4\LATIHAN 15-26 MENGAKSES DATA\datatransaksijualbeli
Script Unique
Dapat dilihat pada langkah -langkah penyelesaian latihan 18
Even
FromLoad
Property
Default
Form Latihan 18
Dim ias As New DataTable
Dim jembatan As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= D:\Apkom 4\LATIHAN 15-26 MENGAKSES DATA\datatransaksijualbeli.accdb")
Private Sub Flatihan18_36110056_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim yos As New OleDb.OleDbDataAdapter
yos = New OleDb.OleDbDataAdapter("select * from query1", jembatan)
ias.Rows.Clear()
yos.Fill(ias)
yos.Dispose()
Dgv_36110056.DataSource = ias
End Sub
End Class
Form Latihan 18
Langkah-langkah
penyelesaian latihan 18:
- 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 :
Dim ias As New DataTable
Dim jembatan As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= D:\Apkom 4\LATIHAN 15-26 MENGAKSES DATA\datatransaksijualbeli.accdb")
Private Sub Flatihan18_36110056_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim yos As New OleDb.OleDbDataAdapter
yos = New OleDb.OleDbDataAdapter("select * from query1", jembatan)
ias.Rows.Clear()
yos.Fill(ias)
yos.Dispose()
Dgv_36110056.DataSource = ias
End Sub
End Class
- Selanjutnya jika ingin menjalankannya pilih Startde bungging

Tidak ada komentar:
Posting Komentar