FORM LATIHAN
Name : Latihan_383940_46110021
Text :
|
Object
|
Properti
|
|
2
button
|
Name:
- Pilih_46110021
-
Batal_46110021
Text : - Pilih
- Batal
|
|
1
Datagridview
|
Name:
view_46110021
|
CARA MEMBUAT FORM
A. Pertama buka project yang anda buat, lalu pada menu bar pili add windows form…
C. Buatlah desain form seperti dengan gambar dibawah ini. Sesuaikan object yang ada dalam form dengan deskripsinya agar tidak salah memilih object.
D. Ubah nama setiap object kecuali bject label. Dengan cara mengganti “Name” di Properti bar.
E. Lalu masukkan script dibawah ini dengan klik kanan dan pilih view code.
Public Class Latihan_383940_46110021
Dim Jalan As New
OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data
Source =" & Application.StartupPath & "\Datamajemuk.ACCDB")
Dim gitik As New DataTable
Public Sub bojel()
'mendeklarasikan
kendaraan
Dim
Mobil As New
OleDb.OleDbDataAdapter
'Mengatur
data yang akan di angkut
Mobil = New
OleDb.OleDbDataAdapter("SELECT* FROM
BARANG", Jalan)
gitik.Rows.Clear()
'untuk
memasukkan data yg telah di angkut ke dalam datatable
Mobil.Fill(gitik)
Mobil.Dispose()
End Sub
Private Sub Latihan383940_083_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
bojel()
view_46110021.DataSource = gitik
End Sub
End Class