access 2000 OpenQueryDef

[matrixknow]

Hola,

It seems that you can't use OpenQueryDef in Access2000.
I need a query to feed my recordset and I can not hardcode this as an SQL statement in my sub. How to feed my recordset with a query as datasource ?

Set qry = dbs.OpenQueryDef(strQueryName)
  Set rst = qry.OpenRecordset()

 

[PHV]

Which object should expose an OpenQueryDef method ?

 

[PHV]

You wanted this ?
Dim dbs As Database, qry As QueryDef, rst As DAO.Recordset
Set dbs = CurrentDb
Set qry = dbs.QueryDefs(strQueryName)
Set rst = qry.OpenRecordset

 

[matrixknow]

a query, but he is refusing OpenQueryDef. He said that this method is not supported in VB. Perhaps this version

 

[GhostWolf]

How about:

Dim db as Database, rs as Recordset
Set db = Currentdb()
Set rs = db.OpenRecordset(YourQueryName)

... where [YourQueryName] is the querydef/stored procedure name.