Imports System.Data Imports System.Data.Odbc
<%@ Import Namespace="System.Data"%> <%@ Import Namespace="System.Data.Odbc"%> <%@ 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 System.Data.Odbc.OdbcConnection Dim objCmd As New System.Data.Odbc.OdbcCommand Dim dtAdapter As New System.Data.Odbc.OdbcDataAdapter Dim ds As New DataSet Dim dt As DataTable Dim strConnString,strSQL As String strConnString = "DSN=mydatabase;UID=;PWD=;" 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 System.Data.Odbc.OdbcConnection Dim dtAdapter As System.Data.Odbc.OdbcDataAdapter Dim dt As New DataTable Dim strConnString As String strConnString = "DSN=mydatabase;UID=;PWD=;" objConn = New System.Data.Odbc.OdbcConnection(strConnString) objConn.Open() Dim strSQL As String strSQL = "SELECT * FROM customer" dtAdapter = New System.Data.Odbc.OdbcDataAdapter(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 - System.Data.Odbc</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 00
