01.<%@ Import Namespace="System.Data"%>
02.<%@ Import Namespace="System.Data.OleDb"%>
03.<%@ Page Language="VB" %>
04.<script runat="server">
05.
06. Sub Page_Load(sender As Object, e As EventArgs)
07. BindData()
08. End Sub
09.
10. Sub BindData()
11.
12.
13. Dim ds As DataSet
14. ds = CreateDataSet()
15. myRepeater.DataSource = ds.Tables(0).DefaultView
16. myRepeater.DataBind()
17.
18. End Sub
19.
20.
21. Function CreateDataSet() As DataSet
22. Dim objConn As New System.Data.OleDb.OleDbConnection
23. Dim objCmd As New System.Data.OleDb.OleDbCommand
24. Dim dtAdapter As New System.Data.OleDb.OleDbDataAdapter
25.
26. Dim ds As New DataSet
27. Dim strConnString,strSQL As String
28.
29. strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& _
30. Server.MapPath("database/mydatabase.mdb")&";Jet OLEDB:Database Password=;"
31. strSQL = "SELECT * FROM customer"
32.
33. objConn.ConnectionString = strConnString
34. With objCmd
35. .Connection = objConn
36. .CommandText = strSQL
37. .CommandType = CommandType.Text
38. End With
39. dtAdapter.SelectCommand = objCmd
40.
41. dtAdapter.Fill(ds)
42.
43. dtAdapter = Nothing
44. objConn.Close()
45. objConn = Nothing
46.
47. Return ds
48.
49. End Function
50.
51.</script>
52.<html>
53.<head>
54.<title>ThaiCreate.Com ASP.NET - System.Data.OleDb</title>
55.</head>
56.<body>
57. <form id="form1" runat="server">
58. <asp:Repeater id="myRepeater" runat="server">
59. <HeaderTemplate>
60. <table border="1">
61. <tr>
62. <th>CustomerID</th>
63. <th>Name</th>
64. <th>Email</th>
65. <th>CountryCode</th>
66. <th>Budget</th>
67. <th>Used</th>
68. </tr>
69. </HeaderTemplate>
70. <ItemTemplate>
71. <tr>
72. <td align="center"><%#Container.DataItem("CustomerID") %></td>
73. <td><%#Container.DataItem("Name") %></td>
74. <td><%#Container.DataItem("Email") %></td>
75. <td align="center"><%#Container.DataItem("CountryCode") %></td>
76. <td align="right"><%#Container.DataItem("Budget") %></td>
77. <td align="right"><%#Container.DataItem("Used") %></td>
78. </tr>
79. </ItemTemplate>
80. </asp:Repeater>
81.
82. </form>
83.</body>
84.</html>
VB.NET || 
ช่วยกันสนับสนุนรักษาเว็บไซต์ความรู้แห่งนี้ไว้ด้วยการสนับสนุน 
