Re: Open Exclusive

Tech Tip: Click here to run a free scan for Windows Errors and optimize PC performance

here you go. That was the 1st thing I checked was if I typed the path
correctly for both the wgf & mdw, but maybe you can find something I'm doing
wrong. Because I'm not using a password for now (not until I'm ready to
copy secured files to their server), I tried entering a space between the
quotes & that didn't work either.

Thanks for your time.


this is the 1st one:

dim o, db
set o = createobject("dao.dbengine.35")
o.systemdb="d:\data\client\security\developer.mdw"
o.defaultuser="developer"
o.defaultpassword=""
on error resume next
set db=o.opendatabase("d:\data\client\May10Secured\RCVobj.mdb")
if err.number = 0 then
msgbox "db is not locked exclusive"
elseif err.number = 3045 then
msgbox "db is locked exclusive"
else
msgbox "unexpected error " & err.number & ": " & err.description
end if
set db=nothing
set o=nothing

this is the revised one for just the error:
dim o, db
set o = createobject("dao.dbengine.35")
o.systemdb="d:\data\client\security\developer.mdw"
o.defaultuser="developer"
o.defaultpassword=""
on error resume next
set db=o.opendatabase("d:\data\client\May10Secured\RCVobj.mdb")

msgbox err.number & " " & err.description

set db=nothing
set o=nothing


"TC" <aatcbbtccctc@xxxxxxxxx> wrote in message
news:1116049472.265424.84050@xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
> Hi Connie
>
> That should not occur, if you are supplying the database path/file name
> correctly. Can you post the exact code you are using, ie. copy & paste
> from the vbs file?
>
> Cheers,
> TC
>


.

Relevant Pages