Page 114 - Programming VB.NET

108 Chapter 10: Database

Private Sub Form1_Load(ByVal sender As
System.Object, ByVal e As System.EventArgs)
Handles MyBase.Load

dbProvider =
"PROVIDER=Microsoft.Ace.OLEDB.12.0;"

dbSource = "Data Source = J:\VISUAL
BASIC.NET\MY

CODES\DbaseRegistration_ACCDB
_USE\Daftar.accdb"

con.ConnectionString = dbProvider &
dbSource

con.Open()

sql = "SELECT * FROM Pelajar"
da = New OleDb.OleDbDataAdapter(sql,
con)

da.Fill(ds, "Daftar")

con.Close()
MaxRows = ds.Tables("Daftar").Rows.Count

inc = -1

End Sub