Senin, 29 Oktober 2012
di
06.30
|
Form Latihan_15_36110037 terdapat sebuah object yaitu
Data Grid View.
Object Data Grid View
Terdapat sebuah object data
grid view yang bernama “kertas_36110037”.
Script Unique
Dim truk As New
OleDb.OleDbDataAdapter
truk = New
OleDb.OleDbDataAdapter("select * from
barang", hubung)
tbl.Rows.Clear()
truk.Fill(tbl)
kertas_36110037.DataSource = tbl
truk.Dispose()
Event
Form loadProperty
Default
Prosedur Penyelesaian
1. buka project yang telah dibuat.
2. buka Solution explorer.
3. setelah itu klik kanan nama project, pilih add dan klik new item.
4. setelah add new item terbuka, pilih windows form, windoes form, kemudian ketik nama form, dan add.
5. buat form dengan menggunakan toolbox.
6. setelah form selesai, ubah object yang ada dalam form latihan dengan menggunakan properties window
7. setelah itu, masuk ke lembar "vb" dengan cara mengklik 2x form dan kemudian ketikkan formula berikut.
Public Class Latihan_15_36110037
Dim hubung As New
OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data
source= '" & Application.StartupPath & "\datatransaksijualbeli.accdb'")
Dim tbl As New DataTable
Private Sub Latihan15_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Dim
truk As New
OleDb.OleDbDataAdapter
truk = New
OleDb.OleDbDataAdapter("select * from
barang", hubung)
tbl.Rows.Clear()
truk.Fill(tbl)
kertas_36110037.DataSource = tbl
truk.Dispose()
End Sub
End Class
8. Uji program dengan
mengklik "Start Debugging".
9. Save program dengan mengklik icon "save".
10. Selesai.
9. Save program dengan mengklik icon "save".
10. Selesai.
Diposting oleh
Unknown
0 komentar:
Posting Komentar