01.<%@ Import Namespace="System.Data"%>
02.<%@ Import Namespace="System.Data.OleDb"%>
03.<%@ Page Language="VB" %>
04.<script runat="server">
05. Dim objConn As OleDbConnection
06. Dim objCmd As OleDbCommand
07.
08. Sub Page_Load(sender As Object, e As EventArgs)
09. Dim strConnString As String
10. strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& _
11. Server.MapPath("database/mydatabase.mdb")&";"
12. objConn = New OleDbConnection(strConnString)
13. objConn.Open()
14.
15. BindData()
16. End Sub
17.
18. Sub BindData()
19. Dim strSQL As String
20. strSQL = "SELECT * FROM category"
21.
22. Dim dtReader As OleDbDataReader
23. objCmd = New OleDbCommand(strSQL, objConn)
24. dtReader = objCmd.ExecuteReader()
25.
26.
27. myDataList.DataSource = dtReader
28. myDataList.DataBind()
29.
30. dtReader.Close()
31. dtReader = Nothing
32.
33. End Sub
34.
35. Sub Page_UnLoad()
36. objConn.Close()
37. objConn = Nothing
38. End Sub
39.
40.</script>
41.<html>
42.<head>
43.<title>ThaiCreate.Com ASP.NET - DataList</title>
44.</head>
45.<body>
46. <form id="form1" runat="server">
47. <asp:DataList id="myDataList" RepeatColumns="2" runat="server">
48. <HeaderTemplate>
49. <b>My Category</b>
50. </HeaderTemplate>
51. <ItemTemplate>
52. <div style="width:100px" align="center">
53. <img src="<%#Container.DataItem("Picture")%>">
54. <br />
55. <%#Container.DataItem("CategoryName")%>
56. </div>
57. </ItemTemplate>
58. <SeparatorTemplate>
59. <hr />
60. </SeparatorTemplate>
61. </asp:DataList>
62. </form>
63.</body>
64.</html>
