Iterating through Records in an Access Table
<%@ Page Language=VB Debug=true %> <%@ Import Namespace="System.Data" %> <%@ Import Namespace="System.Data.OLEDB" %> <script runat=server> Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs) Dim DBConn as OleDbConnection Dim DBCommand As OleDbDataAdapter Dim DSPageData as New DataSet Dim I as Long DBConn = New OleDbConnection( _ "PROVIDER=Microsoft.Jet.OLEDB.4.0;" _ & "DATA SOURCE=" _ & Server.MapPath("EmployeeDatabase.mdb;")) DBCommand = New OleDbDataAdapter _ ("Select * from Employee", DBConn) DBCommand.Fill(DSPageData, _ "Employee") For I = 0 To _ DSPageData.Tables("Employee").Rows.Count - 1 'Code to process record lblMessage.Text = lblMessage.Text _ & "<BR>Processed Record: " _ & DSPageData.Tables("Employee"). _ Rows(I).Item("ID") Next End Sub </SCRIPT> <HTML> <HEAD> <TITLE>Iterating through Records in an Access Table</TITLE> </HEAD> <Body LEFTMARGIN="40"> <form runat="server"> <BR><BR> <asp:label id="lblMessage" runat="Server" /> </form> </BODY> </HTML>