Latihan_17_36110052
A. Object-object dalam
Latihan_17_36110052
Hanya ada satu object dalam Latihan_17_36110052, yaitu
object DataGridView sebanyak satu.
B. Script Unique
Untuk script, dapat diliat secara lebih lengkap pada
langkah-langkah kerja Latihan_17_36110052.
C. Even
Latihan_17_36110052_Load
Langkah-langkah
kerja latihan_17_36110052
1. Buat
new windows form dengan cara ketik project àadd windows
form pada project yang telah dibuat dan
berikan nama form yang diinginkan
Contoh: latihan_17_36110052
3. Setiap
tools yang diambil pada textbox dapat diubah propertiesnya seperti nama dan
teksnya dengan cara klik kanan-properties.
4. Buat
form dengan bentuk seperti ini:
5. Setelah
selesai form, masuk ke lembar Vb dan masukkan script
Public NotInheritable Class
latihan_17_36110052
Dim via As New DataTable
Dim vee As New
OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data
Source='" & Application.StartupPath & "\DataTransaksiJualBeli.accdb'")
Private Sub latihan_17_36110052_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Dim soe
As New
OleDb.OleDbDataAdapter
soe = New
OleDb.OleDbDataAdapter("select * from
DETAILTRANSAKSI", vee)
soe.Fill(via)
soe.Dispose()
DataGridView1.DataSource = via
End Sub
End Class
6.
Uji program dengan mengklik “Start Debbuging” dan save program dengan mengklik
“Save”.
7.
SELESAI
Tidak ada komentar:
Posting Komentar