01.<%@ Import Namespace="System.Data"%>
02.<%@ Import Namespace="MySql.Data.MySqlClient"%>
03.<%@ Page Language="VB" %>
04.<script runat="server">
05. Dim objConn As MySql.Data.MySqlClient.MySqlConnection
06. Dim objCmd As MySql.Data.MySqlClient.MySqlCommand
07.
08. Sub Page_Load(sender As Object, e As EventArgs)
09. Dim strConnString As String
10. strConnString = "Server=localhost;User Id=root; Password=root; Database=mydatabase; Pooling=false"
11. objConn = New MySql.Data.MySqlClient.MySqlConnection(strConnString)
12. objConn.Open()
13.
14. BindData()
15. End Sub
16.
17. Sub BindData()
18. Dim strSQL As String
19. strSQL = "SELECT * FROM customer"
20.
21. Dim dtReader As MySql.Data.MySqlClient.MySqlDataReader
22. objCmd = New MySql.Data.MySqlClient.MySqlCommand(strSQL, objConn)
23. dtReader = objCmd.ExecuteReader()
24.
25.
26. myRepeater.DataSource = dtReader
27. myRepeater.DataBind()
28.
29. dtReader.Close()
30. dtReader = Nothing
31.
32. End Sub
33.
34. Sub Page_UnLoad()
35. objConn.Close()
36. objConn = Nothing
37. End Sub
38.
39.</script>
40.<html>
41.<head>
42.<title>ThaiCreate.Com ASP.NET - MySql.Data.MySqlClient</title>
43.</head>
44.<body>
45. <form id="form1" runat="server">
46. <asp:Repeater id="myRepeater" runat="server">
47. <HeaderTemplate>
48. <table border="1">
49. <tr>
50. <th>CustomerID</th>
51. <th>Name</th>
52. <th>Email</th>
53. <th>CountryCode</th>
54. <th>Budget</th>
55. <th>Used</th>
56. </tr>
57. </HeaderTemplate>
58. <ItemTemplate>
59. <tr>
60. <td align="center"><%#Container.DataItem("CustomerID") %></td>
61. <td><%#Container.DataItem("Name") %></td>
62. <td><%#Container.DataItem("Email") %></td>
63. <td align="center"><%#Container.DataItem("CountryCode") %></td>
64. <td align="right"><%#Container.DataItem("Budget") %></td>
65. <td align="right"><%#Container.DataItem("Used") %></td>
66. </tr>
67. </ItemTemplate>
68. </asp:Repeater>
69. </form>
70.</body>
71.</html>
VB.NET || 
ช่วยกันสนับสนุนรักษาเว็บไซต์ความรู้แห่งนี้ไว้ด้วยการสนับสนุน 
