[AccessD] Change ODBC timeout default query property

Thanks will try this out.

I usually use DAO only because I did not learn ado much yet. Started
using 2k about 2 1/2 years ago and 2k3 in last few weeks.

Would it be much different between DAO and ADO 

Thanks
**************************************************
* Patricia O'Connor
* Associate Computer Programmer Analyst
* OTDA - BDMA
* (W) mailto:Patricia.O'Connor at otda.state.ny.us
* (w) mailto:aa1160 at nysemail.state.ny.us
**************************************************
 

> 
--------------------------------------------------------
This e-mail, including any attachments, may be confidential, privileged or otherwise legally protected. It is intended only for the addressee. If you received this e-mail in error or from someone who was not authorized to send it to you, do not disseminate, copy or otherwise use this e-mail or its attachments.  Please notify the sender immediately by reply e-mail and delete the e-mail from your system. 


-----Original Message-----

> From: accessd-bounces at databaseadvisors.com 
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of 
> MartyConnelly
> Sent: Tuesday, August 22, 2006 04:21 PM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] Change ODBC timeout default query property
> 
> Here are some other set able timeouts, whether they override 
> the registry settings I don't know. Depends if you are using 
> DAO or ADO.
> You might want to check the Oracle Client .ora file too.
> 
> Sub querytest()
> Dim dbs As Database
> 
> Set dbs = CurrentDb
> Debug.Print dbs.QueryTimeout 'default 60 secs
>    dbs.QueryTimeout = 600
> Debug.Print dbs.QueryTimeout 'default now 600 secs
> 
> Debug.Print CurrentProject.Connection.CommandTimeout '30 
> seconds ' commandtimeout similar to querytimeout 'this is 
> ADODB.Command.CommandTimeout for entire project Debug.Print 
> CurrentProject.Connection.ConnectionTimeout '15 seconds
> 
> Dim LoggedOnQry As QueryDef
>   Set LoggedOnQry = dbs.QueryDefs("query1") 
> Debug.Print  LoggedOnQry.ODBCTimeout 'default 60 idle timeout?
> 
> Dim conn As New ADODB.Connection
>    conn.Open "Driver={SQL
> Server};Server=MARTIN;Database=pubs;Trusted_Connection=yes"
> Debug.Print conn.CommandTimeout
> Debug.Print conn.ConnectionTimeout
>   conn.Close
> Debug.Print "close"
> 
> End Sub
> 
>