I have the following code in an Excel 2003 module that creates a query
in MS Access 2003. The created query can then be opened from Access.
In Access, right-mouse clicking in design mode, in properties, the
ODBC timeout setting is blank.
How can I set this from Excel's VBA code when "MainProgram" is
executed? (Commandtimeout does not set this property)
'================================================= ============================
Const strProvider As String = "Provider=Microsoft.Jet.OLEDB.4.0;"
Const strDBSource As String = "ServerLocation\AS400 Fields.mdb"
Public Sub MainProgram()
Build_Qry_String
ConnectionStr = strProvider & " Data Source= " & strDBSource
CreateQuery strDBSource, QryStr, "qryTemp"
End Sub
'================================================= ============================
Private Sub CreateQuery(strDBPath As String, _
strSQL As String, _
strQryName As String)
Dim catDB As ADOX.Catalog
Dim cmd As ADODB.Command
Set catDB = New ADOX.Catalog
catDB.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & strDBPath
Set cmd = New ADODB.Command
cmd.CommandText = strSQL
catDB.Views.Append strQryName, cmd
Set catDB = Nothing
End Sub