Opening Access in Exclusive mode

[tibois]

Is it possible to access Access in exclusive mode on the same machine VB is running on or the code below is for server use only? I tried to open it on a connection string submitting the right password but I keep getting an error message stating that the password submitted is wrong.

Here is the code used:

strConn = "User ID=Admin;Password=Pword;Data Source=" & App.Path & _
"\Access.mdb;Provider=Microsoft.Jet.OLEDB.4.o"

Thanks,

tibois

[Hack]

I have never seen a connection string where the uid and password were the first two elements. They are always the last two.

Move them to the end of your connection string and try again.

[Phil Weber]

The last character of the Provider should be a zero, not the letter 'o'. That is, change this:

Provider=Microsoft.Jet.OLEDB.4.o

to this:

Provider=Microsoft.Jet.OLEDB.4.0

[gibra]

Originally Posted by tibois

Is it possible to access Access in exclusive mode on the same machine VB is running on or the code below is for server use only? I tried to open it on a connection string submitting the right password but I keep getting an error message stating that the password submitted is wrong.

Here is the code used:

strConn = "User ID=Admin;Password=Pword;Data Source=" & App.Path & _
"\Access.mdb;Provider=Microsoft.Jet.OLEDB.4.o"

"User ID" and "Password" are only related to Microsoft Access environment, NOT tu database.
In VB 6.0, you can open a database password protected by set then

Jet OLEDB:Database Password

property, while "User ID" is not matter.

Example:

Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
App.Path & "\Access.mdb;Persist Security Info=False;Jet OLEDB:Database Password=Pword

To open in exclusive mode, simply set the connection Mode property:

CN.Mode =adModeShareExclusive

[tibois]

Thanks gibra! I just stopped by to do additional research and saw your post; the code works.

tibois

[RobDog888]

There is a connectionstring syntax for specifying Exclusive mode upon connecting in case you wanted to specify it in one line of code.

Use the ODBC Driver format/syntax.

oCnn.Connectionstring = "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & App.Path & "\Access.mdb;Exclusive=1;Uid=Admin;Pwd=Pword;"