Go Premium for a chance to win a PS4. Enter to Win

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 757
  • Last Modified:

DAO Recordset Select Statement

Hi,

Can anyone tell me or point me to the VBA which I can

a)Create a recordset (Dim ThisRecordset As DAO.Recordset)

b)Fill this record set using a specific Sql Statement ("SELECT * FROM MyTable WHERE FieldA = 1")

Thanks in advance

Andrew
0
REA_ANDREW
Asked:
REA_ANDREW
1 Solution
 
jkanisutCommented:
Dim db As DAO.Database
Set db = OpenDatabase(sDBPath, False, False, "ODBC;SERVER=Server;UID=user;PWD=password;DSN=ODBCentry)

Dim sSql as string
sSql = "SELECT * FROM MyTable WHERE FieldA = 1"

Dim rs As DAO.Recordset
Set rs = db.OpenRecordset(sSql, dbOpenSnapshot)

Do While rs.EOF
data = rsFields("fieldname")
rs.MoveNext
Loop

0

Featured Post

Technology Partners: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Tackle projects and never again get stuck behind a technical roadblock.
Join Now