Set rs = db.OpenRecordse t(strSQL, dbOpenSnapshot) - Equivalent in ADO???

[Lauren Quantrell]

In my Access2000 .MDB database I use this sort of structure all over
the place (How do I replace it in my Access2000 .ADP database?):

Dim db as Database
Dim rs as DAO.Recordset
Dim strSQL as String
Dim myUniqueID as Long
Dim myExtract as Long

strSQL = "Select myTableName.myI DField, myTableName.myT extField " & _
"From myTableName " & _
"WHERE (((myTableName. MyIDField) = " & myUniqueID & ")))"

Set db = CurrentDB()
Set rs = db.OpenRecordse t(strSQL, dbOpenSnapshot)

If Not rs.BOF and Not rs.EOF Then ' it has records
myExtract = rs.("myTextFiel d")
' run some code here using myExtract
End if

I can't move foward with a major project until I can at least
understand this!
Any help is GREATLY appreciated.
lq

[SA]

Lauren:

With an ADP, you use ADO as your data access technology. Here's some sample
code. If this is your first ADO/ADP project then run out and get the Access
Developer's Handbook volume 2 (which covers ADO, C/S and ADPs) is could be
invaluable.

Dim Conn As adodb.Connectio n
Dim rs As New adodb.Recordset
Dim strSQL As String

Set Conn = CurrentProject. Connection
Set rs = New adodb.Recordset

strSQL = "Select * from tblOrganization s"

rs.Open strSQL, Conn, adOpenKeyset, adLockOptimisti c
If rs.EOF = False Then
With rs
.MoveLast
Debug.Print .RecordCount
End With
End If
rs.Close

--
Steve Arbaugh
ACG Soft
http://ourworld.compuserve.com/homepages/attac-cg
"Lauren Quantrell" <la************ *@hotmail.com> wrote in message
news:47******** *************** **@posting.goog le.com...

In my Access2000 .MDB database I use this sort of structure all over
the place (How do I replace it in my Access2000 .ADP database?):

Dim db as Database
Dim rs as DAO.Recordset
Dim strSQL as String
Dim myUniqueID as Long
Dim myExtract as Long

strSQL = "Select myTableName.myI DField, myTableName.myT extField " & _
"From myTableName " & _
"WHERE (((myTableName. MyIDField) = " & myUniqueID & ")))"

Set db = CurrentDB()
Set rs = db.OpenRecordse t(strSQL, dbOpenSnapshot)

If Not rs.BOF and Not rs.EOF Then ' it has records
myExtract = rs.("myTextFiel d")
' run some code here using myExtract
End if

I can't move foward with a major project until I can at least
understand this!
Any help is GREATLY appreciated.
lq

[Lauren Quantrell]

Steve,
Thanks for the code and the advice!
lq

"SA" <~f***********@ nspm.com> wrote in message news:<bn******* ***@ngspool-d02.news.aol.co m>...

Lauren:

With an ADP, you use ADO as your data access technology. Here's some sample
code. If this is your first ADO/ADP project then run out and get the Access
Developer's Handbook volume 2 (which covers ADO, C/S and ADPs) is could be
invaluable.

Dim Conn As adodb.Connectio n
Dim rs As New adodb.Recordset
Dim strSQL As String

Set Conn = CurrentProject. Connection
Set rs = New adodb.Recordset

strSQL = "Select * from tblOrganization s"

rs.Open strSQL, Conn, adOpenKeyset, adLockOptimisti c
If rs.EOF = False Then
With rs
.MoveLast
Debug.Print .RecordCount
End With
End If
rs.Close

--
Steve Arbaugh
ACG Soft
http://ourworld.compuserve.com/homepages/attac-cg
"Lauren Quantrell" <la************ *@hotmail.com> wrote in message
news:47******** *************** **@posting.goog le.com...

In my Access2000 .MDB database I use this sort of structure all over
the place (How do I replace it in my Access2000 .ADP database?):

Dim db as Database
Dim rs as DAO.Recordset
Dim strSQL as String
Dim myUniqueID as Long
Dim myExtract as Long

strSQL = "Select myTableName.myI DField, myTableName.myT extField " & _
"From myTableName " & _
"WHERE (((myTableName. MyIDField) = " & myUniqueID & ")))"

Set db = CurrentDB()
Set rs = db.OpenRecordse t(strSQL, dbOpenSnapshot)

If Not rs.BOF and Not rs.EOF Then ' it has records
myExtract = rs.("myTextFiel d")
' run some code here using myExtract
End if

I can't move foward with a major project until I can at least
understand this!
Any help is GREATLY appreciated.
lq