01.<%@ Import Namespace="System.Data"%>
02.<%@ Import Namespace="System.Data.OleDb"%>
03.<%@ Page Language="VB" %>
04.<script runat="server">
05.
06. Dim objConn As OleDbConnection
07. Dim objCmd As OleDbCommand
08.
09. Sub Page_Load(sender As Object, e As EventArgs)
10. Dim strConnString As String
11. strConnString = "Provider=OraOLEDB.Oracle;Data Source=TCDB;User Id=myuser;Password=mypassword;OLEDB.NET=True;"
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 customer"
21.
22. Dim dtReader As OleDbDataReader
23. objCmd = New OleDbCommand(strSQL, objConn)
24. dtReader = objCmd.ExecuteReader()
25.
26.
27. myRepeater.DataSource = dtReader
28. myRepeater.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 - Microsoft Access</title>
44.</head>
45.<body>
46. <form id="form1" runat="server">
47. <asp:Repeater id="myRepeater" runat="server">
48. <HeaderTemplate>
49. <table border="1">
50. <tr>
51. <th>CustomerID</th>
52. <th>Name</th>
53. <th>Email</th>
54. <th>CountryCode</th>
55. <th>Budget</th>
56. <th>Used</th>
57. </tr>
58. </HeaderTemplate>
59. <ItemTemplate>
60. <tr>
61. <td align="center"><asp:Label id="lblCustomerID" runat="server" Text=
62. <td><asp:Label id="lblName" runat="server" Text=
63. <td><asp:Label id="lblEmail" runat="server" Text=
64. <td align="center"><asp:Label id="lblCountryCode" runat="server" Text=
65. <td align="right"><asp:Label id="lblBudget" runat="server" Text=
66. <td align="right"><asp:Label id="lblUsed" runat="server" Text=
67. </tr>
68. </ItemTemplate>
69. <AlternatingItemTemplate>
70. <tr bgcolor="#e8e8e8">
71. <td align="center"><asp:Label id="lblCustomerID" runat="server" Text=
72. <td><asp:Label id="lblName" runat="server" Text=
73. <td><asp:Label id="lblEmail" runat="server" Text=
74. <td align="center"><asp:Label id="lblCountryCode" runat="server" Text=
75. <td align="right"><asp:Label id="lblBudget" runat="server" Text=
76. <td align="right"><asp:Label id="lblUsed" runat="server" Text=
77. </tr>
78. </AlternatingItemTemplate>
79. </asp:Repeater>
80. </form>
81.</body>
82.</html>
VB.NET || 
ช่วยกันสนับสนุนรักษาเว็บไซต์ความรู้แห่งนี้ไว้ด้วยการสนับสนุน 
