====== berikut adalah source code untuk memanggil data yang ada dalam tabel====
Sub
TAMPILDATA()
Call
Konek()
Dim
sql3 As String
sql3 = "select
* from qbarang"
dtadapter = New
OleDbDataAdapter(sql3, Conn)
DataGridView1.Refresh()
Dim ASD
As New
DataTable
ASD.Clear()
dtadapter.Fill(ASD)
DataGridView1.DataSource = ASD
Conn.Close()
End Sub
===== panggil sub "TAMPILDATA" diatas di form load seperti berikut====
Private Sub SIMPAN_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Call
TAMPILDATA()
End Sub
Ketika di running data tabel akan muncul di DataGridView
::Selamat mencoba, silahkan tinggalkan komentar jika ada yang mau ditanyakan ::
0 komentar:
Posting Komentar