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