Run access 2000 query with activex in DTS?

[balistikb]

Is it possible to run a access 2000 query from a DTS? IF so how can this be done?

 

[balistikb]

I am using this code and it now opens but the database has a password to enter. Where can I place the password in the code?

 

[balistikb]

Sorry here it is...
Function main()
Dim objDB
Set objDB = CreateObject("Access.Application&quot
objDB.OpenCurrentDatabase("C:\Documents and Settings\wmanzie\Desktop\skillsassesment.mdb&quot
objDB.DoCmd.Openquery "qryUpdateUnmatched"
objDB.CloseCurrentDatabase
objDB.Quit
main = DTSTaskExecResult_Success
End Function

 

[nigelrivett]

Have a look at

http://support.microsoft.com/?kbid=235422

======================================
Cursors are useful if you don't know sql.
DTS can be used in a similar way.
Beer is not cold and it isn't fizzy.

 

[nigelrivett]

In fact I think
expression.OpenCurrentDatabase(filepath, Exclusive, bstrPassword)

So you can just put the password in the OpenCurrentDatabase.

======================================
Cursors are useful if you don't know sql.
DTS can be used in a similar way.
Beer is not cold and it isn't fizzy.

 

[balistikb]

Can I incorporate your last suggestion in my code somewhere instead of changing the whole thing? If so how?
Thanks

 

[balistikb]

None of these suggestions seen to be working for me. Can someone please help me trouble shoot this?