[mark25]

Hi All,

i have now a working database program in vb and a database using microsoft access. I want to set a password in Microsoft Access so that all users cannot view the database except thru the vb program as their medium.

Before placing a password in Microsoft acess:
When there is no password on my access database it is working 100% successfully.

After placing a password in Microsoft acess:
But when i placed a password on my db, and when i am running the program and click the button that will open the database it says Not a valid password making the program crash(You can see on the attached).


My security access on database access is let say for example: "mark25"
All i want is for the VB program to pass "mark25" automatically so that it can get in.

Here is my code on my module.

Public Sub open_conn()
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & (App.Path & "\mdbInventory.mdb") & ";Persist Security Info=True"
cn.Open
End Sub

i just want the database access to block the user when the user opens it without using the program.
But when the user uses the program it's ok so that the records are safe for deletion.
this is like access rights thing.

Please help to hardcode "mark25" in my vb prog!


thanks and regards!

Attached image(s)

• 

This post has been edited by mark25: 28 April 2008 - 11:13 AM

[born2c0de]

Add "Password=mark25;" in the ConnectionString like this:

cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & (App.Path & "\mdbInventory.mdb") & ";Password=mark25;Persist Security Info=True"

[mark25]

born2c0de, on 28 Apr, 2008 - 11:33 AM, said:

Add "Password=mark25;" in the ConnectionString like this:

cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & (App.Path & "\mdbInventory.mdb") & ";Password=mark25;Persist Security Info=True"

Hello Born2code,

I've tried this but it says a new error.

This is the prompt i get.

"Cannot start your application. The workgroup information file is missing or opened exclusively by another user"

There's no application opened other than VB and there's no other pc opened for sharing so i am sure that no ones using the database but me.

Here's how i setup my db in access.

1. File ->Open -> highlighted my file and then clicked on the arror down right next to the open button on the lower left -> Open Exclusively. After the created database has been loaded i clicked Tools -> Security -> Set Database password. It ask me to put password and confirmation so i put "mark25"

Is my procedure on giving password to my db access conflicts with the advice you give? Is there a different way to hardcode mark25 in my program born? Please advice.

This post has been edited by mark25: 28 April 2008 - 12:42 PM

[danny_kay1710]

I might be completely wrong with this but I do remember coming across a similar problem.

Make sure that wherever you store the access database there isn't a .ldb (it may be hidden) and also it depends on how you have set a password.

Since it doesn't seem like you have set up a workgroup i would also say to delete any access workgroup files as well. (Please make a backup of both the database and these files first just in case)

Like I said though this is just a vague memory of troublesome times with Microsoft Access

Danny_kay1710

[mark25]

why? does what born advised only applicable in a different way of setting up a password in Access? I've tried this as well and it didn't work.

[born2c0de]

This is interesting.
The method I mentioned universally works with almost all databases I know of.

However, it's a bit different for Access.
There are loads of websites that discuss and solve this problem.

• MS Support1
  
• MS Support2
  
• Another Link
  
• Secnewsgroups.net
  
• Solution from vb-helper.com

This ConnectionString might work though, give it a shot:

"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=<put source database path here>;Jet.OLEDB:Database password=mark25;"

Hope this helps.

[mark25]

Hello Born!

Thanks! One link works very successful!

The best explanation came from Bob Barrows.

"Since your database is not using workgroup security, you should not be using
a user name and password. It looks as if your database is password-secured
(which is futile security at best)."

If so, your connection string should
look like this:

cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Jet OLEDB:Database Password=mark25; Data Source=" & (App.Path & "\mdbInventory.mdb") & ";"

My previous string was like this until i've changed it.

cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; User ID=;Password=mark25;Data Source=" & (App.Path & "\mdbInventory.mdb") & ";Persist Security Info=True"

Again, thanks Born you rock!

[born2c0de]

Glad to have helped