Imports System.Data Imports System.Data.OleDb
<%@ Import Namespace="System.Data"%> <%@ Import Namespace="System.Data.OleDb"%> <%@ 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.OleDb.OleDbConnection Dim objCmd As New System.Data.OleDb.OleDbCommand Dim dtAdapter As New System.Data.OleDb.OleDbDataAdapter Dim ds As New DataSet Dim dt As DataTable Dim strConnString,strSQL As String strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& _ Server.MapPath("database/mydatabase.mdb")&";Jet OLEDB:Database Password=;" 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.OleDb.OleDbConnection Dim dtAdapter As System.Data.OleDb.OleDbDataAdapter Dim dt As New DataTable Dim strConnString As String strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& _ Server.MapPath("database/mydatabase.mdb")&";Jet OLEDB:Database Password=;" objConn = New System.Data.OleDb.OleDbConnection(strConnString) objConn.Open() Dim strSQL As String strSQL = "SELECT * FROM customer" dtAdapter = New System.Data.OleDb.OleDbDataAdapter(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.OleDb</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 02
