Microsoft KB Archive/210323

= ACC2000: Sample Code for Running Temporary SQL Pass-Through Query =

Article ID: 210323

Article Last Modified on 6/28/2004

-

APPLIES TO


 * Microsoft Access 2000 Standard Edition

-



This article was previously published under Q210323



Advanced: Requires expert coding, interoperability, and multiuser skills.

This article applies only to a Microsoft Access database (.mdb).



SUMMARY
This article lists sample code that you can use to call and run a temporary SQL pass-through query.



MORE INFORMATION
You can use the following sample Visual Basic code to call and run a temporary SQL pass-through query:

NOTE: The sample code in this article uses Microsoft Data Access Objects. For this code to run properly, you must reference the Microsoft DAO 3.6 Object Library. To do so, click References on the Tools menu in the Visual Basic Editor, and make sure that the Microsoft DAO 3.6 Object Library check box is selected.

Function ExecuteSPT (sqltext As String, connectstring As String)

' Purpose: Run a temporary pass-through query. ' Accepts: sqltext: SQL string to run. '         connectstring: Connection string, which must be at least '         "ODBC;". ' Returns: nothing.

Dim mydb As DAO.Database, myq As DAO.QueryDef Set mydb = DBEngine.Workspaces(0).Databases(0)

' Create a temporary QueryDef object that is not saved. Set myq = mydb.CreateQueryDef("")

' Set the ReturnsRecords property to False in order to use the ' Execute method. myq.returnsrecords = False

myq.connect = connectstring myq.sql = sqltext

myq.Execute myq.Close

End Function To run a stored procedure called sp_example on your SQL Server, type the following line in the Immediate window:

?ExecuteSPT("sp_example","ODBC;")

Note that this code accepts SQL statements that are specific to the server that you are using. Please refer to your server's documentation to determine valid SQL statements for your server.

