I found some ASP script to create a simple database using ADOX.Catalog, but it is possible to
programmically create a userID+password-protected database?

Better yet, is it possible to programmatically add a password to an existing
database that has no password?

No takers? Nevermind, I got it working.

It looks like password protecting a database only restricts access to the file.
I can still see my table data in a hex editor. But including the encryption option
helps that somewhat.

How secure are password protected and encrypted MS Access 2000 databases?
What is being used to encrypt it?

This is what I use to programmically create a password protected database:

<%
Sub CreateDatabase(Provider, DataSource)

    Dim catNewDB
    Set catNewDB = Server.CreateObject("ADOX.Catalog")

    catNewDB.Create Provider & DataSource & _
                    "Jet OLEDB:Database Password=mypwd;"
                    "Jet OLEDB:New Database Password=mypwd;" & _
                    "Jet OLEDB:Encrypt Database=True;"
    Set catNewDB = Nothing

End Sub
%>

Typo:

<%
Sub CreateDatabase()

    Dim catNewDB
    Set catNewDB = Server.CreateObject("ADOX.Catalog")

    catNewDB.Create Provider & DataSource & _
                    "Jet OLEDB:Database Password=mypwd;" & _
                    "Jet OLEDB:New Database Password=mypwd;" & _
                    "Jet OLEDB:Encrypt Database=True;"
    Set catNewDB = Nothing

End Sub
%>

Not quite sure if this is correct, but I think you can also convert an existing database using CompactDatabase. Not sure if this also compacts it though. I just want to make a exact duplicate of a database. But I guess this is the best/only way to programmically copy a database?

<%
Sub CompactDatabase(src_DB, dest_DB)

 Dim objJetEngine
 Dim src
 Dim dest

 Set objJetEngine = Server.CreateObject("JRO.JetEngine")

 src = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
       "Data Source=" & src_DB & ";"

 dest = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=" & dest_DB & ";" & _
        "Jet OLEDB:Database Password=mypwd;" & _
        "Jet OLEDB:New Database Password=mypwd;" & _
        "Jet OLEDB:Encrypt Database=True;"

 objJetEngine.CompactDatabase src, dest

 Set objJetEngine = Nothing

End Sub
%>

Hi Jeff,

If you want to make an *exact* duplicate, wouldn't it be easier to do just a file copy?

Imar


---------------------------------------
Imar Spaanjaars
Everyone is unique, except for me.

Sorry, I mean copy an existing database, but add a password/encrypt
option to it. I don't want the database to be compacted.

I probably misunderstand the meaning of 'compact'. I hope it doesn't mean compressed.

Found a definition. It looks like CompactDatabase is similar to defragging
your hard drive. It doesn't compress it, it just cleans it up. So, I guess
compacting your database doesn't hurt anything.

"As you change data in a database, the database file can become fragmented and use more
disk space than is necessary. Periodically, you can use the CompactDatabase method to
compact your database to defragment the database file. The compacted database is
usually smaller and often runs faster. You can also change the collating order,
the encryption, or the version of the data format while you copy and compact the database."