001.
Imports
System.Data
002.
Imports
System.Data.OleDb
003.
004.
Partial
Class
_Default
005.
Inherits
System.Web.UI.Page
006.
007.
Dim
objConn
As
OleDbConnection
008.
Dim
objCmd
As
OleDbCommand
009.
010.
Protected
Sub
Page_Load(
ByVal
sender
As
Object
,
ByVal
e
As
System.EventArgs)
Handles
Me
.Load
011.
Dim
strConnString
As
String
012.
strConnString =
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
& _
013.
Server.MapPath(
"~/App_Data/mydatabase.mdb"
) &
";"
014.
objConn =
New
OleDbConnection(strConnString)
015.
objConn.Open()
016.
017.
If
Not
Page.IsPostBack()
Then
018.
BindData()
019.
End
If
020.
End
Sub
021.
022.
Protected
Sub
BindData()
023.
Dim
strSQL
As
String
024.
strSQL =
"SELECT * FROM customer"
025.
026.
Dim
dtReader
As
OleDbDataReader
027.
objCmd =
New
OleDbCommand(strSQL, objConn)
028.
dtReader = objCmd.ExecuteReader()
029.
030.
031.
myGridView.DataSource = dtReader
032.
myGridView.DataBind()
033.
034.
dtReader.Close()
035.
dtReader =
Nothing
036.
037.
End
Sub
038.
039.
Protected
Sub
myGridView_RowDataBound(
ByVal
sender
As
Object
,
ByVal
e
As
System.Web.UI.WebControls.GridViewRowEventArgs)
Handles
myGridView.RowDataBound
040.
If
e.Row.RowType = DataControlRowType.DataRow
Then
041.
042.
043.
Dim
lblCustomerID
As
Label =
CType
(e.Row.FindControl(
"lblCustomerID"
), Label)
044.
If
Not
IsNothing(lblCustomerID)
Then
045.
lblCustomerID.Text = e.Row.DataItem(
"CustomerID"
)
046.
End
If
047.
048.
049.
Dim
lblName
As
Label =
CType
(e.Row.FindControl(
"lblName"
), Label)
050.
If
Not
IsNothing(lblName)
Then
051.
lblName.Text = e.Row.DataItem(
"Name"
)
052.
End
If
053.
054.
055.
Dim
lblEmail
As
Label =
CType
(e.Row.FindControl(
"lblEmail"
), Label)
056.
If
Not
IsNothing(lblEmail)
Then
057.
lblEmail.Text = e.Row.DataItem(
"Email"
)
058.
End
If
059.
060.
061.
Dim
lblCountryCode
As
Label =
CType
(e.Row.FindControl(
"lblCountryCode"
), Label)
062.
If
Not
IsNothing(lblCountryCode)
Then
063.
lblCountryCode.Text = e.Row.DataItem(
"CountryCode"
)
064.
End
If
065.
066.
067.
Dim
lblBudget
As
Label =
CType
(e.Row.FindControl(
"lblBudget"
), Label)
068.
If
Not
IsNothing(lblBudget)
Then
069.
lblBudget.Text = FormatNumber(e.Row.DataItem(
"Budget"
), 2)
070.
End
If
071.
072.
073.
Dim
lblUsed
As
Label =
CType
(e.Row.FindControl(
"lblUsed"
), Label)
074.
If
Not
IsNothing(lblUsed)
Then
075.
lblUsed.Text = FormatNumber(e.Row.DataItem(
"Used"
), 2)
076.
End
If
077.
End
If
078.
End
Sub
079.
080.
Protected
Sub
Page_Unload(
ByVal
sender
As
Object
,
ByVal
e
As
System.EventArgs)
Handles
Me
.Unload
081.
objConn.Close()
082.
objConn =
Nothing
083.
End
Sub
084.
085.
Protected
Sub
Button1_Click(
ByVal
sender
As
Object
,
ByVal
e
As
System.EventArgs)
Handles
Button1.Click
086.
Dim
CheckID
As
CheckBox
087.
Dim
lblCustomerID
As
Label
088.
Dim
i
As
Integer
089.
Label1.Text =
""
090.
For
i = 0
To
myGridView.Rows.Count - 1
091.
CheckID = myGridView.Rows(i).FindControl(
"CheckID"
)
092.
lblCustomerID = myGridView.Rows(i).FindControl(
"lblCustomerID"
)
093.
If
CheckID.Checked =
True
Then
094.
095.
Me
.Label1.Text =
Me
.Label1.Text &
"<br>"
& lblCustomerID.Text
096.
End
If
097.
Next
098.
End
Sub
099.
End
Class