[ACCESS-VB6] Proteggere Database da Password

[Folcus]

Ragazzi, c'è un modo di proteggere un database, creato con access e utilizzato da VB6, con password? :master:

[kalosjo]

si. nel menu strumenti c'è la voce protezione.

poi da vb6 devi aprirlo indicando la password nella stringa di connessione

[Folcus]

quindi nel codice di connessione devo aggiungere i dati della Password...

'Connessioni per le coperture in legno
Dim strConnect As String
Dim strProvider As String
Dim strDataSource As String
Dim strDataBaseName As String
strProvider = "Provider= Microsoft.Jet.OLEDB.4.0;"
strDataSource = App.Path
strDataBaseName = "\DB.mdb"
strDataSource = "Data Source=" & strDataSource & strDataBaseName
strConnect = strProvider & strDataSource
ConnDB.CursorLocation = adUseClient
ConnDB.Open strConnect

in che punto?

devo aggiungere un "dim strPassword as String" e un "strPassword="password""...ma poi?

[kalosjo]

basta aggiungere "password=tuapassword" nella stringa di connessione, un po' come hai fatto nelle altre......

[Folcus]

Esatto, trovato:

'Connessioni per le coperture in legno
Dim strConnect As String
Dim strProvider As String
Dim strDataSource As String
Dim strDataBaseName As String
Dim strPassword
strProvider = "Provider= Microsoft.Jet.OLEDB.4.0;"
strDataSource = App.Path
strDataBaseName = "\DB.mdb;"
strPassword = "Jet OLEDB:Database Password=DATABASE"
strDataSource = "Data Source=" & strDataSource & strDataBaseName & strPassword
strConnect = strProvider & strDataSource
ConnDB.CursorLocation = adUseClient
ConnDB.Open strConnect

grazie ancora! gentilissimo!