Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people, just like you, are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
Solved

VB Access 2000 Passwords

Posted on 2002-06-28
7
326 Views
Last Modified: 2010-05-02
I am trying to connect to a Access .db with a global password.

 TMRace = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & dbFile & ";UID=Administrator;PWD=sam1104;"
        conn.Open TMRace

When I try to compact it after closing the above connection I get an error with the following code:

 Dim strSourceDB As String
 Dim strDestDB As String
 
  Dim jetEngine          As JRO.jetEngine
  Dim strSourceConnect   As String
  Dim strDestConnect     As String
 strSourceDB = dbFile
 strDestDB = dbArchive
 
 Kill (dbArchive)
 
  strSourceConnect = "Data Source=" & strSourceDB & ";"
  strDestConnect = "Data Source=" & strDestDB & ";"

  Set jetEngine = New JRO.jetEngine

  jetEngine.CompactDatabase strSourceConnect, strDestConnect

  Set jetEngine = Nothing
  CompactDb = True
End Function

What is the proper syntax for this compact with the first connect string?  Ideas?

dmoring
0
Comment
Question by:dmoring
  • 4
  • 3
7 Comments
 
LVL 33

Expert Comment

by:hongjun
ID: 7117897
Compact Database Example.

Dim objDAO_DBEngine As Object
Dim objFSO As Object
Dim strCompactedDBFile As String

Set objDAO_DBEngine = CreateObject("DAO.DBEngine.36")
Set objFSO = CreateObject("Scripting.FileSystemObject")

If objFSO.FileExists(strCompactedDBFile) Then
   objFSO.DeleteFile (strCompactedDBFile)
End If

objDAO_DBEngine.CompactDatabase dbFile, dbArchive

objFSO.CopyFile dbArchive, dbFile

objFSO.DeleteFile dbArchive 'delete the copy

Set objFSO = Nothing
Set objDAO_DBEngine = Nothing



hongjun
0
 
LVL 33

Expert Comment

by:hongjun
ID: 7117899
Ignore the above post. Got some errors. Below is the correct example.



Dim objDAO_DBEngine As Object
Dim objFSO As Object
Dim strCompactedDBFile As String

Set objDAO_DBEngine = CreateObject("DAO.DBEngine.36")
Set objFSO = CreateObject("Scripting.FileSystemObject")

If objFSO.FileExists(dbArchive) Then
  objFSO.DeleteFile (dbArchive)
End If

objDAO_DBEngine.CompactDatabase dbFile, dbArchive

objFSO.CopyFile dbArchive, dbFile

objFSO.DeleteFile dbArchive 'delete the copy

Set objFSO = Nothing
Set objDAO_DBEngine = Nothing



hongjun
0
 
LVL 33

Expert Comment

by:hongjun
ID: 7117901
dmoring, you have few opened questions yet to be closed. Please maintain them.

hongjun
0
Free Tool: SSL Checker

Scans your site and returns information about your SSL implementation and certificate. Helpful for debugging and validating your SSL configuration.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

 

Author Comment

by:dmoring
ID: 7117948
hongjun,
There is a way with existing VB objects - not creating new instances as in ASP.  Also, I have a password on this one.

Other ideas?

Re: Unclosed questions - Did not get solution 2 of the 4 but closed them anyway and awarded points to the best answer.  The other 2 are this one and one with points for someone who has yet to pick them up. Thanks for the reminder though.

dmoring
0
 
LVL 33

Accepted Solution

by:
hongjun earned 100 total points
ID: 7117984
Try this

Try this

Dim jetEngine As JRO.JetEngine
Dim strSourceConnect As String
Dim strDestConnect As String
Dim objFso As Object

Set jetEngine = New JRO.JetEngine
strSourceConnect = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                 "Data Source=" & dbFile & ";" & _
                 "User Id=Administrator;" & _
                 "Password=sam1104;"
strDestConnect = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
             "Data Source=" & dbArchive & ";" & _
             "User Id=Administrator;" & _
             "Password=sam1104;"

jetEngine.CompactDatabase strSourceConnect, strDestConnect

Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.CopyFile dbArchive, dbFile
objFSO.DeleteFile dbArchive 'delete the copy


Set objFSO = Nothing
Set jetEngine = Nothing


hongjun
0
 

Author Comment

by:dmoring
ID: 7118417
Now you're onto my problem :-).  With that It wants a workgroup file to pull the username/id from the system.mdw and I just want an overall password for the .db - NOT a user workgroup setup.  If I put it in exactly as you describe (already did it - should have told you), I get the error 'Could not find WorkGroup file', which is correct.  I don't have the .db set up for tiered-access - just an overall password.

Keep going - your on the right track!

dmoring
0
 

Author Comment

by:dmoring
ID: 7118466
Got it!  It was:
        'Set Connect Strings
        strSourceConnect = "Data Source=" & dbFile & ";" & _
                            "Jet OLEDB:Database Password=sam1104;"
        strDestConnect = "Data Source=" & dbArchive & ";" & _
                            "Jet OLEDB:Database Password=sam1104;"
        strTempConnect = "Data Source=" & dbTemp & ";" & _
                            "Jet OLEDB:Database Password=sam1104;"

without Database in front of password, it is looking for the workgroup information - NOT the overall password.  Thanks for your effort and prompt response though!
0

Featured Post

Free Tool: Postgres Monitoring System

A PHP and Perl based system to collect and display usage statistics from PostgreSQL databases.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Title # Comments Views Activity
Determine Range to Select 5 53
Question about INSTR  - need to extract data MS ACCESS query 6 59
VBA Shell can't Find Word document 11 112
Passing a Text Box name to a Sub 6 99
Enums (shorthand for ‘enumerations’) are not often used by programmers but they can be quite valuable when they are.  What are they? An Enum is just a type of variable like a string or an Integer, but in this case one that you create that contains…
This article describes some techniques which will make your VBA or Visual Basic Classic code easier to understand and maintain, whether by you, your replacement, or another Experts-Exchange expert.
Show developers how to use a criteria form to limit the data that appears on an Access report. It is a common requirement that users can specify the criteria for a report at runtime. The easiest way to accomplish this is using a criteria form that a…
This lesson covers basic error handling code in Microsoft Excel using VBA. This is the first lesson in a 3-part series that uses code to loop through an Excel spreadsheet in VBA and then fix errors, taking advantage of error handling code. This l…

829 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question