001.
<%@ Import
Namespace
=
"System.Data"
%>
002.
<%@ Import
Namespace
=
"System.Data.OleDb"
%>
003.
<%@ Page Language=
"VB"
%>
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="
&Server.MapPath(
"database/mydatabase.mdb"
)&
";"
012.
objConn =
New
OleDbConnection(strConnString)
013.
objConn.Open()
014.
015.
BindData()
016.
End
Sub
017.
018.
Sub
BindData()
019.
Dim
strSQL
As
String
020.
strSQL =
"SELECT * FROM customer"
021.
022.
Dim
dtReader
As
OleDbDataReader
023.
objCmd =
New
OleDbCommand(strSQL, objConn)
024.
dtReader = objCmd.ExecuteReader()
025.
026.
027.
myListView.DataSource = dtReader
028.
myListView.DataBind()
029.
030.
dtReader.Close()
031.
dtReader =
Nothing
032.
033.
End
Sub
034.
035.
Sub
Page_UnLoad()
036.
objConn.Close()
037.
objConn =
Nothing
038.
End
Sub
039.
040.
</script>
041.
<html>
042.
<head>
043.
<title>ThaiCreate.Com ASP.NET - ListView</title>
044.
</head>
045.
<body>
046.
<form id=
"form1"
runat=
"server"
>
047.
<asp:ListView ID=
"myListView"
runat=
"server"
DataKeyNames=
"CustomerID"
>
048.
049.
<LayoutTemplate>
050.
<table>
051.
<tr>
052.
<td>
053.
<table runat=
"server"
border=
"1"
>
054.
<tr>
055.
<th runat=
"server"
>
056.
CustomerID</th>
057.
<th runat=
"server"
>
058.
Name</th>
059.
<th runat=
"server"
>
060.
Email</th>
061.
<th runat=
"server"
>
062.
CountryCode</th>
063.
<th runat=
"server"
>
064.
Budget</th>
065.
<th runat=
"server"
>
066.
Used</th>
067.
</tr>
068.
<tr ID=
"itemPlaceholder"
runat=
"server"
>
069.
</tr>
070.
</table>
071.
</td>
072.
</tr>
073.
</table>
074.
</LayoutTemplate>
075.
076.
<ItemTemplate>
077.
<tr>
078.
<td>
079.
<asp:Label ID=
"lblCustomerID"
runat=
"server"
Text=
080.
</td>
081.
<td>
082.
<asp:Label ID=
"lblName"
runat=
"server"
Text=
083.
</td>
084.
<td>
085.
<asp:Label ID=
"lblEmail"
runat=
"server"
Text=
086.
</td>
087.
<td>
088.
<asp:Label ID=
"lblCountryCode"
runat=
"server"
Text=
089.
</td>
090.
<td>
091.
<asp:Label ID=
"lblBudget"
runat=
"server"
Text=
092.
</td>
093.
<td>
094.
<asp:Label ID=
"lblUsed"
runat=
"server"
Text=
095.
</td>
096.
</tr>
097.
</ItemTemplate>
098.
099.
100.
<AlternatingItemTemplate>
101.
<tr style=
"background-color: #FAFAD2;color: #284775;"
>
102.
<td>
103.
<asp:Label ID=
"lblCustomerID"
runat=
"server"
Text=
104.
</td>
105.
<td>
106.
<asp:Label ID=
"lblName"
runat=
"server"
Text=
107.
</td>
108.
<td>
109.
<asp:Label ID=
"lblEmail"
runat=
"server"
Text=
110.
</td>
111.
<td>
112.
<asp:Label ID=
"lblCountryCode"
runat=
"server"
Text=
113.
</td>
114.
<td>
115.
<asp:Label ID=
"lblBudget"
runat=
"server"
Text=
116.
</td>
117.
<td>
118.
<asp:Label ID=
"lblUsed"
runat=
"server"
Text=
119.
</td>
120.
</tr>
121.
</AlternatingItemTemplate>
122.
123.
</asp:ListView>
124.
</form>
125.
</body>
126.
</html>