Hi Everyone
I m trying to open password protected Database for Data Report applying the following Code in Command Button1.

Dim CN As ADODB.Connection
Dim RS As ADODB.Recordset
Set CN = New ADODB.Connection
Set RS = New ADODB.Recordset
CN.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0" & _
";Data Source =" & App.Path & ".\MyDataBase.mdb"

CN.Open
Set RS = CN.Execute("Select * From Tabel1 Where Name ='" & txtName.Text & "'")
Set DataReprot1.DataSource = RS

DataReprot1.Show

But its showing error please, anyone tell me how can I set the connection for password protected Database.

Recommended Answers

All 6 Replies

Hi,

open password protected database like this :

CN.ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source="& App.Path & _
"\MyDataBase.mdb" & ";" & _
"Jet OLEDB:Database Password=MyPWd" 

    CN.Open

Regards
Veena

hi veena
our company has a passwor protected database.can we open tthat database.
regards
suneel


Hi,

open password protected database like this :

CN.ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source="& App.Path & _
"\MyDataBase.mdb" & ";" & _
"Jet OLEDB:Database Password=MyPWd" 

    CN.Open

Regards
Veena

Hi,

If it is in Access, and if u know the Password then u can open it with the above code..

Regards
Veena

hi veeeeeeee
if password is known anyone can access the databae. without password is it possible
regards
suneel


Hi,

If it is in Access, and if u know the Password then u can open it with the above code..

Regards
Veena

hi veena
and wt if i ddont know the passwod
regaards
suneel

Hi,

Try for some Password Breakers...

I gave the code In view of a "Developer"

Not As A "Hacker"..... :)--Vee

Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.