Minggu, 28 Oktober 2012
di
06.09
|
Form Latihan_38_39_40_36110037 terdapat Dua object
yaitu Button, dan Data Grid View.
Object Button
Terdapat Dua object button yaitu Button pilih yang digunakan untuk memilih data kode barang yang terdapat dalam
tabel yang ada pada data grid view. Sedangkan button batal digunakan untuk
keluar.
Object Data Grid View
Terdapat sebuah object data
grid view yang bernama “kertas_36110037”.
Script Unique
Dim rpt As New
OleDb.OleDbDataAdapter
rpt = New
OleDb.OleDbDataAdapter("SELECT * FROM
BARANG", hubung)
table.Rows.Clear()
rpt.Fill(table)
rpt.Dispose()
kertas_36110037.DataSource = table
Event
ButtonclickProperty
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 nama textbox dan button menggunakan properties window
7. setelah itu, masuk ke lembar "vb" dengan cara mengklik 2x form dan kemudian ketikkan formula berikut.
Public Class Latihan_38_39_40_36110037
Dim table As New DataTable
Dim hubung As New
OleDb.OleDbConnection("PROVIDER =
MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" &
Application.StartupPath & "/Datamajemuk.ACCDB")
Private Sub Latihan_38_39_40_36110037_Load(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Dim rpt As New OleDb.OleDbDataAdapter
rpt = New
OleDb.OleDbDataAdapter("SELECT * FROM
BARANG", hubung)
table.Rows.Clear()
rpt.Fill(table)
rpt.Dispose()
kertas_36110037.DataSource = table
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