Does anyone have any ADO examples

[mikej28621]

I was wondering if anyone had any basic ado examples of progammically opening a local Access table in the current database and moving thru it.

Thanks in advance.

MJ

 

[CajunCenturion]

Here is a quick example that you may find helpful:

Dim lRst_RecSet As ADODB.Recordset
Dim lStr_SQLStmt As String

Set lRst_RecSet = New ADODB.Recordset
lRst_RecSet.ActiveConnection = CurrentProject.Connection
lStr_SQLStmt = &quot;SELECT   <Field List> &quot; & _
               &quot;FROM     <Table Name> &quot; & _
               &quot;WHERE    <Field Name> = '&quot; & <String Value> & &quot;' &quot; & _
               &quot;ORDER BY <Field List>&quot;
lRst_RecSet.Open lStr_SQLStmt, , adOpenForwardOnly, adLockReadOnly
If (lRst_RecSet.State = adStateOpen) Then
   If ((lRst_RecSet.BOF = False) And (lRst_RecSet.EOF = False)) Then
      lRst_RecSet.MoveFirst
      Do While (lRst_RecSet.EOF = False)
         <Process The Record>
         lRst_RecSet.MoveNext
      Loop
   End If
   lRst_RecSet.Close
End If
Set lRst_RecSet = Nothing

Good Luck
--------------
As a circle of light increases so does the circumference of darkness around it. - Albert Einstein

 

[mikej28621]

Thanks Cajun thats just what I needed.

MJ