ACC2: ODBCTimeout Set to Zero for New Pass-Through Queries (117537)

MORE INFORMATION

The ODBCTimeout property setting specifies the number of seconds Microsoft Access waits before a timeout error occurs on a query involving an ODBC database. When this property is set to zero, no timeout occurs.

Steps to Reproduce Problem

NOTE: This example assumes that you have an ODBC data source (such as Microsoft SQL Server) available.

1. Open the sample database NWIND.MDB.
2. Create a new module and enter the following sample procedure:
   

         Sub CreateSPTQuery()
            Dim db As Database, q As QueryDef
            Set db = dbengine(0)(0)
            'Create a new QueryDef.
            Set q = db.CreateQueryDef()
            q.Name = "MySPTQuery"
            'Modify the line below to select from an existing ODBC table.
            q.SQL = "Select * From authors;"
            q.ODBCTimeout = 60
            q.Connect = "ODBC;"
            q.ReturnsRecords = True
            'Add the QueryDef to the QueryDefs collection.
            db.QueryDefs.Append q
            db.QueryDefs.Refresh
            'Print the ODBCTimeout setting to the Immediate window.
            Debug.Print db.QueryDefs("MySPTQuery").ODBCTimeout
         End Sub
   						

3. In the Immediate window, test this procedure by typing:
   
   CreateSPTQuery

Microsoft Access will print a zero (0) to indicate the ODBCTimeout setting for the query.