Password protected Access file in VB6

[larystoy]

Have password protected a large Access database and when trying to run the program in VB6 am getting following error when trying to run program:

Not a valid account name or password

***** ON LOAD -- SOURE CODE ******

strProvider = "Provider=Microsoft.Jet.OLEDB.4.0;"
strSource = "Data Source=" & App.Path & "\MYDATABASE.MDB;UserID=UNKNOWN VALUE;Password=mypassword"
' Nothing I put into UserID in the above line appears to work
' If I remove "UserID=" get same error.
Set rstConnRecordset = New ADODB.Connection
strConnectionRecordset = strProvider & strSource & "Persist Security Info=False"
 
rstConnRecordset.Open strConnectionRecordset
' Am getting error at above line, when running program
 
Set rstRecord = New ADODB.Recordset
 
With rstRecord
    .ActiveConnection = rstConnRecordset
    .CursorLocation = adUseClient
    .CursorType = adOpenKeyset
    .LockType = adLockOptimistic
    .Open "MYFORM"
    ' above line loads one of two database' involved, each called from separate
    ' routines.
End With
 
If Not rstRecord.BOF And Not rstRecord.EOF Then
    rstRecord.Sort = "RecNum ASC"
    rstRecord.Requery
    Set dgRecordNo.DataSource = rstRecord
End If
 

When loading the database in MS Access, it responds to the assigned password correctly.

Any assistance will be most appriciated.

[9815402440]

hi
if you want to keep same provider then you need to give system.mdw path
open connection as following:

    With cn
        .Provider = "Microsoft.Jet.OLEDB.4.0"
        .Properties("Jet OLEDB:System Database") = "C:\Documents and Settings\Manpreet Dhillon\Application Data\Microsoft\Access\system.mdw"
        .Properties("Data Source") = <database path>
        .Properties("Jet OLEDB:Database Password") = <your password>
        .Open
    End With
 

if you want to use system.mdw then you may change provider to msdatashape

as follows

with cn
                .Provider = "MsDataShape"
                .Properties("Data Provider") = "Microsoft.Jet.OLEDB.4.0"
                .Properties("Data Source") = <database path>
                .Properties("Extended Properties") = "Jet OLEDB:Database Password= " & <your password>
                .Open
end with
 

regards
manpreet singh dhillon hoshiarpur

[shuvo2k6]

Have password protected a large Access database and when trying to run the program in VB6 am getting following error when trying to run program:

Not a valid account name or password

***** ON LOAD -- SOURE CODE ******

strProvider = "Provider=Microsoft.Jet.OLEDB.4.0;"
strSource = "Data Source=" & App.Path & "\MYDATABASE.MDB;UserID=UNKNOWN VALUE;Password=mypassword"
' Nothing I put into UserID in the above line appears to work
' If I remove "UserID=" get same error.
Set rstConnRecordset = New ADODB.Connection
strConnectionRecordset = strProvider & strSource & "Persist Security Info=False"

rstConnRecordset.Open strConnectionRecordset
' Am getting error at above line, when running program

Set rstRecord = New ADODB.Recordset

With rstRecord
.ActiveConnection = rstConnRecordset
.CursorLocation = adUseClient
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.Open "MYFORM"
' above line loads one of two database' involved, each called from separate
' routines.
End With

If Not rstRecord.BOF And Not rstRecord.EOF Then
rstRecord.Sort = "RecNum ASC"
rstRecord.Requery
Set dgRecordNo.DataSource = rstRecord
End If

When loading the database in MS Access, it responds to the assigned password correctly.

Any assistance will be most appriciated.

Hi,
You can try this by this following code:

1. strProvider = "PROVIDER=Microsoft.Jet.OLEDB.4.0;"
2. strSource = "Data Source=C:\DB.mdb;Jet OLEDB:Database Password=cse;"


3. strConnectionRecordset = strProvider & strSource


If u get success, plz reply.

Get Better.

Regards,
shuvo2k6

[larystoy]

Thank you very much. At least it now does something.

With your modifications, the program displays two (2), "Now a valid password" pop up screens, but then will enter the program. This is more than I have acchived in the past several hours of research. And days of "trial and error" modifications. Just need to get rid of the two pop-ups.

The only change I made was to add the & App.Path feature.

Source code is now:

strProvider = "Provider=Microsoft.Jet.OLEDB.4.0;"
strSource = "Data Source=" & App.Path & "\bibleqz.mdb;Jet OLEDB:Database Password=mypassword"
 
Set rstConnRecordset = New ADODB.Connection
strConnectionRecordset = strProvider & strSource
' removed this portion per your instructions from above line -- & "Persist
' Security Info=False"
rstConnRecordset.Open strConnectionRecordset
Set rstRecord = New ADODB.Recordset
 
With rstRecord
    .ActiveConnection = rstConnRecordset
    .CursorLocation = adUseClient
    .CursorType = adOpenKeyset
    .LockType = adLockOptimistic
    .Open "Bquiznt"
End With
 
If Not rstRecord.BOF And Not rstRecord.EOF Then
    rstRecord.Sort = "RecNum ASC"
    rstRecord.Requery
    Set dgRecordNo.DataSource = rstRecord
    Call UpdateTextBoxes
End If
 

Just for information sake, I have only been using VB6 for less than 3 months.

The program is a Biblical Quiz, which includes 525 New Testament and 525 Old Teastament questions, with 4 multiple choice answers.

You can switch between New and Old Testament questions at any time.
You can play by yourself or with up to 6 players.
You can select level of dificulty of questions you want to answer.
If you answer the question incorrectly, you get to read the related verse. Or you can read the related verse at any time.
You can "review" any question at any time. (This does upset the scoreing feature)

Again, Thanks for pointing me in the right direction.

[larystoy]

******* ISSUE RESOLVED *******

Thanks very much to "shuvo2k6"

Due to the fact that I was in a hurry to try your modifications, I failed to follow up in my source code and due to the fact that I was calling the same basic routine when changing database', once for the New Testament database and once for the Old Testament database, when I first tried your modifications, this caused the two "Not a valid password" issues.

When I updated both locations of calling the databases', it is now working correctly without the "Not a valid password" issues.

Again thank you so much for your interest in others and willingness to help.

As a new programmer in Visual Basic, I have a "LOT" to learn, and if it weren’t for the assistance of people like you, I feel some new programmers, myself included, would give up too early.

Also thanks to those others that offered their assistance, I hope to be able to follow your leads and assist others as I learn more programming techniques.

larystoy