Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Register Log in
  • Congratulations Mike Lewis on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

CompactDatabase removes password protection

Status
Not open for further replies.
jbradley

jbradley

Programmer
Sep 7, 2001
248
0
0
US
I'm using Jet Replication Objects (JRO) in VB6 to compact a password-protected Access 97 database. It works like it should but after compaction the database is no longer password protected. Here is the code that I'm using:
Code: 
Dim je As New JRO.JetEngine

If Dir(App.Path & &quot;\db1.mdb&quot;) <> &quot;&quot; Then Kill App.Path & &quot;\db1.mdb&quot;

je.CompactDatabase &quot;MyDb.mdb;Jet OLEDB:Database Password=PASSWORD;&quot;, _
    &quot;Data Source=db1.mdb;Jet OLEDB:Engine Type=4;Database Password=PASSWORD;&quot;

Name App.Path & &quot;\db1.mdb&quot; As App.Path & &quot;\MyDb.mdb&quot;
What am I missing?
 
Status
Not open for further replies.

Similar threads

2009luca
  • Locked
  • Question
change password in DSN via vb6 code or shell
Replies
0
Views
34
2009luca
2009luca
tjbradford
  • Locked
  • Question
LDAP vb6 test username and password
Replies
1
Views
35
dilettante
dilettante
2009luca
  • Locked
  • Question
teradata and password expired!
Replies
0
Views
25
2009luca
2009luca
AndyGroom
  • Locked
  • Question
Has Windows password changed? 1
Replies
2
Views
34
AndyGroom
AndyGroom
Shift838
  • Locked
  • Question
Microsoft Terminal Services connection Options (password)
Replies
1
Views
37
Shift838
Shift838

Part and Inventory Search

Sponsor

Back
Top