Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations SkipVought on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Saving a query (querydef)
- Thread starter rickpill
- Start date
- Thread starter
- #3
I should read "creating" a query - Here's what I'm working with - the error I get is Object required db.
Sub SaveQuery(strQuery)
dim db
'Set up Connection
set con=Server.CreateObject("ADODB.Connection"
'Set up Provider
db="Provider=Microsoft.Jet.OLEDB.4.0;" & _
"data source=.............. etc.
' Open the database
con.open db
dq = Querydef
qd = db.CreateQueryDef("qryCampaign", strQuery)
If FailOnError Then
qd.Execute (DB_FAILONERROR)
Else
qd.Execute
End If
qd.Close
Set qd = Nothing
End Sub
Sub SaveQuery(strQuery)
dim db
'Set up Connection
set con=Server.CreateObject("ADODB.Connection"
'Set up Provider
db="Provider=Microsoft.Jet.OLEDB.4.0;" & _
"data source=.............. etc.
' Open the database
con.open db
dq = Querydef
qd = db.CreateQueryDef("qryCampaign", strQuery)
If FailOnError Then
qd.Execute (DB_FAILONERROR)
Else
qd.Execute
End If
qd.Close
Set qd = Nothing
End Sub
- Status
Similar threads
- Locked
- Question
- Locked
- Question