001.<%@ Import Namespace="System.Data"%>
002.<%@ Import Namespace="MySql.Data.MySqlClient"%>
003.<%@ Page Language="VB" %>
004.<script runat="server">
005. Dim objConn As MySql.Data.MySqlClient.MySqlConnection
006. Dim objCmd As MySql.Data.MySqlClient.MySqlCommand
007.
008. Sub Page_Load(sender As Object, e As EventArgs)
009. Dim strConnString As String
010. strConnString = "Server=localhost;User Id=root; Password=root; Database=mydatabase; Pooling=false"
011. objConn = New MySql.Data.MySqlClient.MySqlConnection(strConnString)
012. objConn.Open()
013.
014. BindData()
015. End Sub
016.
017. Sub BindData()
018.
019.
020.
021.
022.
023. myRepeater.DataSource = CreateDataSet.Tables(0).DefaultView
024. myRepeater.DataBind()
025.
026. End Sub
027.
028.
029. Function CreateDataTable() As DataTable
030. Dim objConn As New MySql.Data.MySqlClient.MySqlConnection
031. Dim dtAdapter As MySql.Data.MySqlClient.MySqlDataAdapter
032. Dim dt As New DataTable
033.
034.
035. Dim strConnString As String
036. strConnString = "Server=localhost;User Id=root; Password=root; Database=mydatabase; Pooling=false"
037. objConn = New MySql.Data.MySqlClient.MySqlConnection(strConnString)
038. objConn.Open()
039.
040. Dim strSQL As String
041. strSQL = "SELECT * FROM customer"
042.
043. dtAdapter = New MySql.Data.MySqlClient.MySqlDataAdapter(strSQL, objConn)
044. dtAdapter.Fill(dt)
045.
046. dtAdapter = Nothing
047.
048. Return dt
049.
050. End Function
051.
052.
053. Function CreateDataSet() As DataSet
054. Dim objConn As New MySql.Data.MySqlClient.MySqlConnection
055. Dim objCmd As New MySql.Data.MySqlClient.MySqlCommand
056. Dim dtAdapter As New MySql.Data.MySqlClient.MySqlDataAdapter
057.
058. Dim ds As New DataSet
059. Dim strConnString,strSQL As String
060.
061. strConnString = "Server=localhost;User Id=root; Password=root; Database=mydatabase; Pooling=false"
062. strSQL = "SELECT * FROM customer"
063.
064. objConn.ConnectionString = strConnString
065. With objCmd
066. .Connection = objConn
067. .CommandText = strSQL
068. .CommandType = CommandType.Text
069. End With
070. dtAdapter.SelectCommand = objCmd
071.
072. dtAdapter.Fill(ds)
073.
074. dtAdapter = Nothing
075.
076. Return ds
077.
078. End Function
079.
080. Sub Page_UnLoad()
081. objConn.Close()
082. objConn = Nothing
083. End Sub
084.
085.</script>
086.<html>
087.<head>
088.<title>ThaiCreate.Com ASP.NET - MySql.Data.MySqlClient</title>
089.</head>
090.<body>
091. <form id="form1" runat="server">
092. <asp:Repeater id="myRepeater" runat="server">
093. <HeaderTemplate>
094. <table border="1">
095. <tr>
096. <th>CustomerID</th>
097. <th>Name</th>
098. <th>Email</th>
099. <th>CountryCode</th>
100. <th>Budget</th>
101. <th>Used</th>
102. </tr>
103. </HeaderTemplate>
104. <ItemTemplate>
105. <tr>
106. <td align="center"><%#Container.DataItem("CustomerID") %></td>
107. <td><%#Container.DataItem("Name") %></td>
108. <td><%#Container.DataItem("Email") %></td>
109. <td align="center"><%#Container.DataItem("CountryCode") %></td>
110. <td align="right"><%#Container.DataItem("Budget") %></td>
111. <td align="right"><%#Container.DataItem("Used") %></td>
112. </tr>
113. </ItemTemplate>
114. </asp:Repeater>
115. </form>
116.</body>
117.</html>
VB.NET || 
ช่วยกันสนับสนุนรักษาเว็บไซต์ความรู้แห่งนี้ไว้ด้วยการสนับสนุน 
