database MSAccess password via Visual Basic 1

[Periko]

Hello,

we have a VB application that uses a MSAccess database. We want to put security on the database at the clients side.

we can put the passwd on the access database by opening exclusively. But we cannot go to our hundred customers to do so.

SO, can I do this from within a vb-application ? Opening the database exclusively and adding the password ?

Thx...
Pedro...

 

[JerryKlmns]

Yes, but you need to open a connecton (Cnn) to every database

Cnn.Execute "ALTER DATABASE PASSWORD " & ThePassword & " NULL"

 

[Periko]

Thx JerryKlmns,

That's the syntax i suppose, but how do I have to open my cnn ?

For the moment I do the following :

Dim ThePassword As String

Err.Number = 0
Set cnn = OpenDatabase(MyDB, False, False, ";pwd=xxx")

ThePassword = "yyy"
cnn.Execute "ALTER DATABASE PASSWORD " & ThePassword & " NULL"

This gives the following error :

"Syntax in alter table statement"

Any Idea ?

 

[shakespeare5677]

This is one of the first search results on tek-tips:

http://www.tek-tips.com/viewthread.cfm?qid=897963

Hope it helps.
-Max

 

[JerryKlmns]

This is for non existing password

Cnn.Execute "ALTER DATABASE PASSWORD " & ThePassword & " NULL"

and this when having one already

Cnn.Execute "ALTER DATABASE PASSWORD " & NewPassword & " " & OldPassword

Open your connection as you please

 

[Periko]

Shakespeare,

You refered to an article where i should use

cnn.NewPassword "", "xxx"

that seems fine, but the error i get is that this "can't change password on a shared open database".

How in the world do i open my database as exclusive ?

Pedro...

 

[Periko]

By the was, it's DAO i'm using Shakespeare, not ADO.

 

[shakespeare5677]

Try playing around with the connection string you use to open the database, for example "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\TestDB\MyDB.mdb;Mode=Share Deny Read|Share Deny Write"
-Max

 

[Periko]

OK, Guys,

I found it myself, thx to you all !

This does it :

Set cnn = OpenDatabase(mydb, dbSecDBExclusive, False, ";pwd=xxx")

Vis.NewPassword "xxx", "yyy"


Thx...