001.
<%@ Page Language=
"VB"
%>
002.
<%@ import
Namespace
=
"System.Data"
%>
003.
<%@ import
Namespace
=
"System.Data.OleDb"
%>
004.
<script runat=
"server"
>
005.
006.
Dim
objConn
As
OleDbConnection
007.
Dim
objCmd
As
OleDbCommand
008.
009.
Sub
Page_Load(sender
As
Object
, e
As
EventArgs)
010.
Dim
strConnString
As
String
011.
strConnString =
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
& _
012.
Server.MapPath(
"database/mydatabase.mdb"
)&
";"
013.
objConn =
New
OleDbConnection(strConnString)
014.
objConn.Open()
015.
016.
IF
Not
Page.IsPostBack()
Then
017.
BindData()
018.
End
IF
019.
End
Sub
020.
021.
Sub
BindData()
022.
Dim
strSQL
As
String
023.
strSQL =
"SELECT * FROM customer"
024.
025.
Dim
dtReader
As
OleDbDataReader
026.
objCmd =
New
OleDbCommand(strSQL, objConn)
027.
dtReader = objCmd.ExecuteReader()
028.
029.
030.
myGridView.DataSource = dtReader
031.
myGridView.DataBind()
032.
033.
dtReader.Close()
034.
dtReader =
Nothing
035.
036.
End
Sub
037.
038.
Sub
Page_UnLoad()
039.
objConn.Close()
040.
objConn =
Nothing
041.
End
Sub
042.
043.
Private
Sub
myGridView_RowDataBound(sender
As
Object
, e
As
GridViewRowEventArgs)
044.
045.
Dim
hplCustomerID
As
Hyperlink =
CType
(e.Row.FindControl(
"hplCustomerID"
),Hyperlink)
046.
IF
Not
IsNothing(hplCustomerID)
Then
047.
hplCustomerID.Text = e.Row.DataItem(
"CustomerID"
)
048.
hplCustomerID.NavigateUrl =
"Page.aspx?CustomerID="
& e.Row.DataItem(
"CustomerID"
)
049.
End
IF
050.
051.
052.
Dim
lblName
As
Label =
CType
(e.Row.FindControl(
"lblName"
),Label)
053.
IF
Not
IsNothing(lblName)
Then
054.
lblName.Text = e.Row.DataItem(
"Name"
)
055.
End
IF
056.
057.
058.
Dim
lblEmail
As
Label =
CType
(e.Row.FindControl(
"lblEmail"
),Label)
059.
IF
Not
IsNothing(lblEmail)
Then
060.
lblEmail.Text = e.Row.DataItem(
"Email"
)
061.
End
IF
062.
063.
064.
Dim
lblCountryCode
As
Label =
CType
(e.Row.FindControl(
"lblCountryCode"
),Label)
065.
IF
Not
IsNothing(lblCountryCode)
Then
066.
lblCountryCode.Text = e.Row.DataItem(
"CountryCode"
)
067.
End
IF
068.
069.
070.
Dim
lblBudget
As
Label =
CType
(e.Row.FindControl(
"lblBudget"
),Label)
071.
IF
Not
IsNothing(lblBudget)
Then
072.
lblBudget.Text = FormatNumber(e.Row.DataItem(
"Budget"
),2)
073.
End
IF
074.
075.
076.
Dim
lblUsed
As
Label =
CType
(e.Row.FindControl(
"lblUsed"
),Label)
077.
IF
Not
IsNothing(lblUsed)
Then
078.
lblUsed.Text = FormatNumber(e.Row.DataItem(
"Used"
),2)
079.
End
IF
080.
End
Sub
081.
082.
</script>
083.
<html>
084.
<head>
085.
<title>ThaiCreate.Com ASP.NET - GridView</title>
086.
</head>
087.
<body>
088.
<form id=
"form1"
runat=
"server"
>
089.
<asp:GridView id=
"myGridView"
runat=
"server"
AutoGenerateColumns=
"False"
onRowDataBound=
"myGridView_RowDataBound"
>
090.
091.
<Columns>
092.
093.
<asp:TemplateField HeaderText=
"Select"
>
094.
<ItemTemplate>
095.
<asp:HyperLink id=
"hplCustomerID"
runat=
"server"
></asp:HyperLink>
096.
</ItemTemplate>
097.
</asp:TemplateField>
098.
099.
<asp:TemplateField HeaderText=
"CustomerID"
>
100.
<ItemTemplate>
101.
<asp:Label id=
"lblCustomerID"
runat=
"server"
></asp:Label>
102.
</ItemTemplate>
103.
</asp:TemplateField>
104.
105.
<asp:TemplateField HeaderText=
"Name"
>
106.
<ItemTemplate>
107.
<asp:Label id=
"lblName"
runat=
"server"
></asp:Label>
108.
</ItemTemplate>
109.
</asp:TemplateField>
110.
111.
<asp:TemplateField HeaderText=
"Email"
>
112.
<ItemTemplate>
113.
<asp:Label id=
"lblEmail"
runat=
"server"
></asp:Label>
114.
</ItemTemplate>
115.
</asp:TemplateField>
116.
117.
<asp:TemplateField HeaderText=
"CountryCode"
>
118.
<ItemTemplate>
119.
<asp:Label id=
"lblCountryCode"
runat=
"server"
></asp:Label>
120.
</ItemTemplate>
121.
</asp:TemplateField>
122.
123.
<asp:TemplateField HeaderText=
"Budget"
>
124.
<ItemTemplate>
125.
<asp:Label id=
"lblBudget"
runat=
"server"
></asp:Label>
126.
</ItemTemplate>
127.
</asp:TemplateField>
128.
129.
<asp:TemplateField HeaderText=
"Used"
>
130.
<ItemTemplate>
131.
<asp:Label id=
"lblUsed"
runat=
"server"
></asp:Label>
132.
</ItemTemplate>
133.
</asp:TemplateField>
134.
135.
</Columns>
136.
137.
</asp:GridView>
138.
</form>
139.
</body>
140.
</html>