Imports System.Data Imports MySql.Data.MySqlClient
<%@ Import Namespace="System.Data"%> <%@ Import Namespace="MySql.Data.MySqlClient"%> <%@ Page Language="VB" %> <script runat="server"> Sub Page_Load(sender As Object, e As EventArgs) BindData() End Sub Sub BindData() '*** DataSet to DataTable ***' myRepeater.DataSource = CreateDsToDt() myRepeater.DataBind() '*** DataTable ***' 'myRepeater.DataSource = CreateDataTable() 'myRepeater.DataBind() '*** DataTable (DataTableRows) ***' 'myRepeater.DataSource = DataTableRows() 'myRepeater.DataBind() End Sub '*** DataSet to DataTable ***' Function CreateDsToDt() As DataTable Dim objConn As New MySql.Data.MySqlClient.MySqlConnection Dim objCmd As New MySql.Data.MySqlClient.MySqlCommand Dim dtAdapter As New MySql.Data.MySqlClient.MySqlDataAdapter Dim ds As New DataSet Dim dt As DataTable Dim strConnString,strSQL As String strConnString = "Server=localhost;User Id=root; Password=root; Database=mydatabase; Pooling=false" strSQL = "SELECT * FROM customer" objConn.ConnectionString = strConnString With objCmd .Connection = objConn .CommandText = strSQL .CommandType = CommandType.Text End With dtAdapter.SelectCommand = objCmd dtAdapter.Fill(ds) dt = ds.Tables(0) dtAdapter = Nothing objConn.Close() objConn = Nothing Return dt '*** Return DataTable ***' End Function '*** DataTable ***' Function CreateDataTable() As DataTable Dim objConn As New MySql.Data.MySqlClient.MySqlConnection Dim dtAdapter As MySql.Data.MySqlClient.MySqlDataAdapter Dim dt As New DataTable Dim strConnString As String strConnString = "Server=localhost;User Id=root; Password=root; Database=mydatabase; Pooling=false" objConn = New MySql.Data.MySqlClient.MySqlConnection(strConnString) objConn.Open() Dim strSQL As String strSQL = "SELECT * FROM customer" dtAdapter = New MySql.Data.MySqlClient.MySqlDataAdapter(strSQL, objConn) dtAdapter.Fill(dt) dtAdapter = Nothing objConn.Close() objConn = Nothing Return dt '*** Return DataTable ***' End Function '*** TableRows (DataTable) ***' Function DataTableRows() As DataTable Dim dt As New DataTable Dim dr As DataRow '*** Column ***' dt.Columns.Add("CustomerID") dt.Columns.Add("Name") dt.Columns.Add("Email") dt.Columns.Add("CountryCode") dt.Columns.Add("Budget") dt.Columns.Add("Used") '*** Rows ***' dr = dt.NewRow dr("CustomerID") = "C001" dr("Name") = "Win Weerachai" dr("Email") = "[email protected]" dr("CountryCode") = "TH" dr("Budget") = "1000000" dr("Used") = "600000" dt.Rows.Add(dr) '*** Rows ***' dr = dt.NewRow dr("CustomerID") = "C002" dr("Name") = "John Smith" dr("Email") = "[email protected]" dr("CountryCode") = "EN" dr("Budget") = "2000000" dr("Used") = "800000" dt.Rows.Add(dr) '*** Rows ***' dr = dt.NewRow dr("CustomerID") = "C003" dr("Name") = "Jame Born" dr("Email") = "[email protected]" dr("CountryCode") = "US" dr("Budget") = "3000000" dr("Used") = "600000" dt.Rows.Add(dr) '*** Rows ***' dr = dt.NewRow dr("CustomerID") = "C004" dr("Name") = "Chalee Angel" dr("Email") = "[email protected]" dr("CountryCode") = "US" dr("Budget") = "4000000" dr("Used") = "100000" dt.Rows.Add(dr) Return dt '*** Return DataTable ***' End Function </script> <html> <head> <title>ThaiCreate.Com ASP.NET - MySql.Data.MySqlClient</title> </head> <body> <form id="form1" runat="server"> <asp:Repeater id="myRepeater" runat="server"> <HeaderTemplate> <table border="1"> <tr> <th>CustomerID</th> <th>Name</th> <th>Email</th> <th>CountryCode</th> <th>Budget</th> <th>Used</th> </tr> </HeaderTemplate> <ItemTemplate> <tr> <td align="center"><%#Container.DataItem("CustomerID") %></td> <td><%#Container.DataItem("Name") %></td> <td><%#Container.DataItem("Email") %></td> <td align="center"><%#Container.DataItem("CountryCode") %></td> <td align="right"><%#Container.DataItem("Budget") %></td> <td align="right"><%#Container.DataItem("Used") %></td> </tr> </ItemTemplate> </asp:Repeater> </form> </body> </html>
ช่วยกันสนับสนุนรักษาเว็บไซต์ความรู้แห่งนี้ไว้ด้วยการสนับสนุน Source Code 2.0 ของทีมงานไทยครีเอท
VB.NET || 
ช่วยกันสนับสนุนรักษาเว็บไซต์ความรู้แห่งนี้ไว้ด้วยการสนับสนุน 
Load balance : Server 04
