Creating secure database with ADOX

[devonknows]

Hi can any one please help me with creating a secure database with ADO or ADOX if possible, ive got this code already but its not accessible through VisData so i cant easily modify it at all.

Public Function CreateDatabase()
Dim cat As ADOX.Catalog
Dim tbl As ADOX.Table
Dim con As ADODB.Connection
 
    On Error Resume Next
    Kill txtDatabaseName.Text
    On Error GoTo 0
 
Set cat = New ADOX.Catalog
 
    cat.Create _
        "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=" & QueryValue(rk, "InstallDir") & "\CD Database.mdb;"
 
    Set con = Nothing
    Set tbl = Nothing
    Set cat = Nothing
    MsgBox "Done"
End Function
 

but that doesnt make it secure and also can someone tell me how to access a secure database with ado.

Any help would be much appreciated.

Kind Regards
Devon.

[MMcCarthy]

Devon,

I'm not sure exactly what you meant by your question but the following is a link to a comprehensive access security tutorial.

Mary

http://www.jmwild.com/Accesssecurity.htm

[devonknows]

Ok,sorry about that.

What im trying to do is create a secure database with ADOX.

The Script that is shown above creates the database but does not create a secure database, ( as in secure i mean not able to access it outside of the application or password protected )

Also

The database the above code creates will not load in the Add-In for VB6 called VisData which allows you to design your database.

i hope that explains a little better

Kind Regards.
Devon.

[MMcCarthy]

Ok,sorry about that.

What im trying to do is create a secure database with ADOX.

The Script that is shown above creates the database but does not create a secure database, ( as in secure i mean not able to access it outside of the application or password protected )

Also

The database the above code creates will not load in the Add-In for VB6 called VisData which allows you to design your database.

i hope that explains a little better

Kind Regards.
Devon.

Our VB experts may be able to help you further. You could try posting a link in the Visual Basic forum.

Mary

[dxpert]

Devon, all you should have to to is add the: ";Jet OLEDB:Database Password=[password_here];" to the end of your connection string, like this:



ADOX.Catalog cat.Create _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & QueryValue(rk, "InstallDir") & "\CD Database.mdb;" & _
"Jet OLEDB:Database Password=[password_here];"