I have the following code:
Sub Main()
Dim objConn As OleDbConnection
Dim objCommand As OleDbCommand
Dim objDataAdapter As OleDbDataAdapter
Dim objDataSet As DataSet
Dim objDataTable As DataTable
Try
objConn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;
Data Source=C:\Documents and Settings\akalsod.000\Desktop\New
Loop\EnhloopDat.mdb")
objConn.Open()
objCommand = New OleDbCommand("SELECT tblEnhancement.* FROM
tblEnhancement ORDER BY tblEnhancement.[Date/Time];", objConn)
objDataAdapter = New OleDbDataAdapter(objCommand)
objDataSet = New DataSet
objDataAdapter.Fill(objDataSet, "SalesRepList")
objDataTable = objDataSet.Tables("SalesRepList")
Dim header As DataColumn
For Each header In objDataTable.Columns
Console.Write("{0,-10}", header.ColumnName)
Next
Console.Write(vbNewLine)
Dim dr As DataRow
For Each dr In objDataTable.Rows
Dim dc As DataColumn
For Each dc In objDataTable.Columns
Console.Write("{0,-10}", dr(dc.ColumnName).ToString.Trim)
Next
Console.Write(vbNewLine)
Next
Catch ex As OleDbException 'Attempt to catech specific exception
Debug.WriteLine("OleDb Exception occurred")
Catch ex As Exception 'Attempt to catch the ANY Exception
Debug.WriteLine("General application Exception occurred")
Finally 'Finally logic is guaranteed to happen
Debug.WriteLine("This code is guaranteed to run, even if
exceptions.")
objConn.Close()
objConn = Nothing
objDataAdapter = Nothing
objCommand = Nothing
objDataSet = Nothing
End Try
Console.ReadLine()
End Sub
This will cycle though all of the records in the table. Is there a way I
can do a readnext, readprevious, and a readlast record in the datatable?
Thanks in advance!
Dale