Deskripsi Form Latihan 383940
Pada form latihan 383940 hanya
ada satu object yaitu Data Grid View.
Object DataGridView
Terdapat 1 object datagridview yang berfungsi
untuk menampilkan data tabel “Data Majemuk”.
Even
Load
Script Unique
Lebih lengkap dan jelasnya silahkan dilihat pada script di bawah.
· Buka project yang telah dibuat sebelumnya.
· Click project kemudian pilih add windows form, seperti pada gambar dibawah ini
· Ketik nama form
"Latihan_383940_46110007" pada name kemudian click add
· Buat form seperti berikut
·
Kemudian
beri nama pada datagridview.
·
Setelah
itu beri teks pada button.
Setelah form selesai masukkan rumus seperti
dibawah ini
Public Class Latihan_383940_46110002
Dim ILDA As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\Datamajemuk.ACCDB")
Dim YANI As New DataTable
Public Sub BATU()
'mendeklarasikan kendaraan
Dim YUYU As New OleDb.OleDbDataAdapter
'Mengatur data yang akan di angkut
YUYU = New OleDb.OleDbDataAdapter("SELECT* FROM BARANG", ILDA)
YANI.Rows.Clear()
'untuk memasukkan data yg telah di angkut ke dalam datatable
YUYU.Fill(YANI)
YUYU.Dispose()
End Sub
Private Sub Latihan_383940_46110002_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
BATU()
DGV_46110002.DataSource = YANI
End Sub
End Class
Dim ILDA As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\Datamajemuk.ACCDB")
Dim YANI As New DataTable
Public Sub BATU()
'mendeklarasikan kendaraan
Dim YUYU As New OleDb.OleDbDataAdapter
'Mengatur data yang akan di angkut
YUYU = New OleDb.OleDbDataAdapter("SELECT* FROM BARANG", ILDA)
YANI.Rows.Clear()
'untuk memasukkan data yg telah di angkut ke dalam datatable
YUYU.Fill(YANI)
YUYU.Dispose()
End Sub
Private Sub Latihan_383940_46110002_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
BATU()
DGV_46110002.DataSource = YANI
End Sub
End Class






0 komentar:
Posting Komentar