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 ***' Dim ds As DataSet ds = CreateDataSet() myRepeater.DataSource = ds.Tables(0).DefaultView myRepeater.DataBind() End Sub '*** DataSet ***' Function CreateDataSet() As DataSet 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 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) dtAdapter = Nothing objConn.Close() objConn = Nothing Return ds '*** Return DataSet ***' 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 ของทีมงานไทยครีเอท