• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 373
  • Last Modified:

VB Access 2000 Passwords

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
dmoring
Asked:
dmoring
  • 4
  • 3
1 Solution
 
hongjunCommented:
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
 
hongjunCommented:
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
 
hongjunCommented:
dmoring, you have few opened questions yet to be closed. Please maintain them.

hongjun
0
Free Tool: Port Scanner

Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.

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.

 
dmoringAuthor Commented:
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
 
hongjunCommented:
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
 
dmoringAuthor Commented:
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
 
dmoringAuthor Commented:
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
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

Upgrade your Question Security!

Your question, your audience. Choose who sees your identity—and your question—with question security.

  • 4
  • 3
Tackle projects and never again get stuck behind a technical roadblock.
Join Now