01.
Dim
objConn
As
New
OleDbConnection
02.
Dim
objCmd
As
New
OleDbCommand
03.
Dim
dtReader
As
OleDbDataReader
04.
Dim
strConnString,strSQL
As
String
05.
06.
Sub
Page_Load(sender
As
Object
, e
As
EventArgs)
07.
strConnString =
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
&Server.MapPath(
"database/mydatabase.mdb"
)&
";Jet OLEDB:Database Password=;"
08.
objConn.ConnectionString = strConnString
09.
objConn.Open()
10.
11.
12.
Dim
dtAdapter
As
OleDbDataAdapter
13.
Dim
dt
As
New
DataTable
14.
strSQL =
"SELECT * FROM customer WHERE CustomerID = '"
& Request.QueryString(
"CustomerID"
) &
"' "
15.
dtAdapter =
New
OleDbDataAdapter(strSQL, objConn)
16.
dtAdapter.Fill(dt)
17.
18.
If
dt.Rows.Count > 0
Then
19.
Me
.txtCustomerID.Text = dt.Rows(0)(
"CustomerID"
)
20.
Me
.txtName.Text = dt.Rows(0)(
"Name"
)
21.
Me
.txtEmail.Text = dt.Rows(0)(
"Email"
)
22.
Me
.txtCountryCode.Text = dt.Rows(0)(
"CountryCode"
)
23.
Me
.txtBudget.Text = dt.Rows(0)(
"Budget"
)
24.
Me
.txtUsed.Text = dt.Rows(0)(
"Used"
)
25.
End
IF
26.
End
Sub