Need to Set a query's ODBC Timeout from VBA

[databaser]

I have a query I create from VBA on the fly. It is timing out when I try to export it. I need to set the ODBC timeout property from my VBA code. Can anyone help with this?

 

[SkipVought]

Hi,

Have you checked the available parameters in your connect string?

Skip,

_[red][/red]

 

[databaser]

Skip, Thanks for responding. Here is the code I create the query.
Public Sub GetCrosstab()
Dim db As Database, rs As Recordset
Dim SQLCross As String, SQLCross2 As String, qfd As QueryDef

Set db = CurrentDb

On Error Resume Next
db.QueryDefs.Delete ("VendorMonthYTD")

gblVendorGrouphold = Me.cmbSTVendors
GetXDate
'Stop
SQLCross = "SELECT [tblSalesTrace_Send-To].VendorGroup, dbo_SalesTransaction.SOCustomerCode, dbo_SalesTransaction.SOCustomerName, "
SQLCross = SQLCross & "DatePart(""" & "m""" & ",[InvoiceDate]) AS [Month], Sum(dbo_SalesTransaction.ExtendedPrice) AS [TotalSales] "
SQLCross = SQLCross & " FROM dbo_SalesTransaction INNER JOIN [tblSalesTrace_Send-To] ON "
SQLCross = SQLCross & "dbo_SalesTransaction.SOVendorCode = [tblSalesTrace_Send-To].VendorNumber "
SQLCross = SQLCross & "WHERE (((dbo_SalesTransaction.InvoiceDate) Between " & gblXStartDt & " And " & gblXEndDt
SQLCross = SQLCross & ") AND ((dbo_SalesTransaction.SOItemCode) Not Between """ & 900000 & """" & " And """ & 999999 & """" & ")"
SQLCross = SQLCross & " AND ((Left([SOCustomerName],1))<>Chr(42)))AND ((([tblSalesTrace_Send-To].VendorGroup)= """ & gblVendorGrouphold & """" & "))"
SQLCross = SQLCross & " GROUP BY [tblSalesTrace_Send-To].VendorGroup, dbo_SalesTransaction.SOCustomerCode, dbo_SalesTransaction.SOCustomerName, "
SQLCross = SQLCross & "DatePart(""" & "m""" & ",[InvoiceDate]), Left([SOCustomerCode],1) HAVING (((Left([SOCustomerCode],1))<> """ & "2" & """))"

Set qfd = db.CreateQueryDef("VendorMonthYTD", SQLCross)
RefreshDatabaseWindow

End Sub

 

[SkipVought]

Something like this???

Set db = CurrentDb
msgbox db.Connection

Skip,

_[red][/red]

 

[PHV]

What about this ?
Set qfd = db.CreateQueryDef("VendorMonthYTD", SQLCross)
qfd.ODBCTimeout = 0
RefreshDatabaseWindow

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[databaser]

That did it.

Thank you!

 

[SkipVought]

databases,

Don't forget to
[blue]
Thank PHV
for this valuable post!
[/blue]

Skip,

_[red][/red]