×
INTELLIGENT WORK FORUMS
FOR ENGINEERING PROFESSIONALS

Log In

Come Join Us!

Are you an
Engineering professional?
Join Eng-Tips Forums!
  • Talk With Other Members
  • Be Notified Of Responses
    To Your Posts
  • Keyword Search
  • One-Click Access To Your
    Favorite Forums
  • Automated Signatures
    On Your Posts
  • Best Of All, It's Free!
  • Students Click Here

*Eng-Tips's functionality depends on members receiving e-mail. By joining you are opting in to receive e-mail.

Posting Guidelines

Promoting, selling, recruiting, coursework and thesis posting is forbidden.

Students Click Here

Jobs

problem getting data

problem getting data

problem getting data

(OP)
I am trying to get the values from a table in my access database
and store it in a variant for processing
But I am not able to get the rows returned
I have a table which just has one field but has 6 records.
I am trying to get these 6 values. but when I do the foll only the first
record is returned and the recordcount =1 !! instead of 6

Here is the code I am using to do this
Let me know where I am wrong
**********************************
dim querystr as String
dim db..
dim qd..
dim rs ..
dim vari as Variant

Set db = OpenDatabase("VLGSCHEDULE.mdb")
Set qd = db.CreateQueryDef("h", querystr)
Set rs = db.OpenRecordset("h")
With rs
vari= .getrows(.RecordCount)
end with

For i = 0 To (UBound(vari, 1))
debug.print vari(0,i)
Next i

*******************************************

Red Flag This Post

Please let us know here why this post is inappropriate. Reasons such as off-topic, duplicates, flames, illegal, vulgar, or students posting their homework.

Red Flag Submitted

Thank you for helping keep Eng-Tips Forums free from inappropriate posts.
The Eng-Tips staff will check this out and take appropriate action.

Reply To This Thread

Posting in the Eng-Tips forums is a member-only feature.

Click Here to join Eng-Tips and talk with other members!


Resources