I'm trying to use VB6 to access an Access 2000 query? 1

[adamtate]

OK i think i'm nearly there...

this is my code:

Private Sub Command1_Click()

Dim db As Database
Dim rs As Recordset
Dim fld As Field

Set db = DBEngine.OpenDatabase("h:\cruisetools.mdb&quot
Set rs = db.OpenRecordset("Product List Search by Product Code&quot

End Sub

I'm getting a runtime error. Too few parameters. Expected 1.

Can anyone tell me why this is happening? Apparently it's something to do with the SET RS=..... line of code.

PLEASE HELP... IT'S HURTING MY HEAD!

 

[matzos]

You can't open a query as a recordset if the query has criteria that the code isn't aware of. It sounds like that is what you have. You can do one of two things that I know of.

1. Instead of calling the Access query in the OPENRECORDSET method, use an SQL string to do the same thing. You can see the SQL version of the Access query in VIEW -> SQL View. That could be cut and pasted into the OPENRECORDSET method, with a few character modifications (' instead of ", for instance)

2. Identify the criteria using a QueryDef variable type. Something like this:
..........................................................
Private Sub Command1_Click()

Dim db As Database
Dim rs As Recordset
Dim fld As Field
DIM qdefSOLUTION as QUERYDEF

Set db = DBEngine.OpenDatabase("h:\cruisetools.mdb&quot
Set qdfSOLUTION = db.QueryDefs("Product List Search by Product Code&quot
qdfSOLUTION![CRITERIA YOU ARE USING] = [CRITERIA YOU ARE USING]
Set rs = qdfSOLUTION.OPENRECORDSET()
..........................................................


Good luck
End Sub

 

[luisfelipe007x]

Wich reference to use for QUERYDEF ?