Programmatically creating a pass-through query

  • Thread starter Thread starter Ben
  • Start date Start date
B

Ben

Hi,

Is there a way to programmatically create pass-through query in Access 2003?

Sub test ()

Dim db As Database
Dim strSQL As String
Dim qdfs As QueryDefs
Dim qdf As QueryDef

strSQL ="Some pass-through SQL statement here"

Set db = CurrentDb
Set qdfs = db.QueryDefs
Set qdf = db.CreateQueryDef("qry_PassThru", strSQL)
qdf.SQL = strSQL

End Sub

But the code about will not create a pass-through query, Access thinks
it is a regular Access query. Is there a way to specify in code the
type of query it is? Thanks for sharing your thoughts.


Ben
 
Am 17.05.2010 22:18, schrieb Ben:
Hi,

Is there a way to programmatically create pass-through query in Access 2003?

Sub test ()

Dim db As Database
Dim strSQL As String
Dim qdfs As QueryDefs
Dim qdf As QueryDef

strSQL ="Some pass-through SQL statement here"

Set db = CurrentDb
Set qdfs = db.QueryDefs
Set qdf = db.CreateQueryDef("qry_PassThru", strSQL)
qdf.SQL = strSQL

End Sub

But the code about will not create a pass-through query, Access thinks
it is a regular Access query. Is there a way to specify in code the
type of query it is? Thanks for sharing your thoughts.
Click to expand...


Even though this is a VB.Net group (which will be dead soon),
the "dbQSQLPassThrough" value should make it:

http://msdn.microsoft.com/en-us/library/bb257317(office.12).aspx
 
Back
Top