Database - Crea Un Fonte Dati ODBC

A volte puo' essere utile proteggere dei dati medainte l'utilizzo di password.
Il Jet Engine 3.5 della Microsoft dispone di metodi appositi per proteggere i
propri database con password. Per creare una nuova password o modificare la
password corrente di un database, e' necessario che lo stessso venga aperto in
modalita' esclusiva. Gli esempi che seguono, sono validi solo per il Jet Engine
della Microsoft. ATTENZIONE: Se la password di accesso ad un database viene
dimenticata o smarrita, sara' impossibile riaccedere ai dati presenti in esso.
Dichiarazioni
Dim db As Database
Dim rs As Recordset
Dim ws As Workspace
Dim CurrentPassword As String
Dim NewPasswordForDB As String
'modificare questa stringa con il proprio percorso
Const sData = "c:\documenti\database.mdb"
Creare una nuova password (database senza password)
Public Sub dbNewPSW()
    'eventuali errori saranno gestiti in GestError
    On Error GoTo GestError
    'Apertura del DB in modalita' esclusiva non protetto da PWD
    Set db = ws.OpenDatabase(sData, True, False)
    'aggiornamento del DB con la password contenuta in NewPasswordForDB
    db.NewPassword "", NewPasswordForDB
    db.Close
    Exit Sub
    GestError:
    MsgBox "Attenzione " & Err.Description
End Sub

Aprire un database protetto da password
Public Sub OpenDbPWD()
    'eventuali errori saranno gestiti in GestError
    On Error GoTo GestError
    'Apertura del DB in modalita' utilizzando la PWD contenuta in CurrentPassword
    Set db = ws.OpenDatabase(sData, True, False, ";pwd=" & CurrentPassword)
    MsgBox "Accesso al DB consentito!"
    db.Close
    Exit Sub
    GestError:
    MsgBox "Attenzione " & Err.Description
End Sub

Modificare la password del database
Public Sub dbChangePSW()
    'eventuali errori saranno gestiti in GestError
    On Error GoTo GestError
    'Apertura del DB in modalita' utilizzando la PWD contenuta in CurrentPassword
    Set db = ws.OpenDatabase(sData, True, False, ";pwd=" & CurrentPassword)
    'aggiornamento del DB con la nuova password contenuta in NewPasswordForDB
    db.NewPassword CurrentPassword, NewPasswordForDB
    db.Close
    Exit Sub
    GestError:
    MsgBox "Attenzione " & Err.Description
End Sub

Tabelle # Una spiegazione, passo passo, per la creazione di una fonte dati ODBC per la
connessione a database utilizzando la tecnologia Open DataBase Connectivity.
Visualizza spiegazione
Proteggere un Database con password

A volte puo' essere utile proteggere dei dati medainte l'utilizzo di password.
Il Jet Engine 3.5 della Microsoft dispone di metodi appositi per proteggere i
propri database con password. Per creare una nuova password o modificare la
password corrente di un database, e' necessario che lo stessso venga aperto in
modalita' esclusiva. Gli esempi che seguono, sono validi solo per il Jet Engine
della Microsoft. ATTENZIONE: Se la password di accesso ad un database viene
dimenticata o smarrita, sara' impossibile riaccedere ai dati presenti in esso.
Dichiarazioni
Dim db As Database
Dim rs As Recordset
Dim ws As Workspace
Dim CurrentPassword As String
Dim NewPasswordForDB As String
'modificare questa stringa con il proprio percorso

Const sData = "c:\documenti\database.mdb"
Creare una nuova password (database senza password)
Public Sub dbNewPSW()
'eventuali errori saranno gestiti in GestError

On Error GoTo GestError
'Apertura del DB in modalita' esclusiva non protetto da PWD

Set db = ws.OpenDatabase(sData, True, False)
'aggiornamento del DB con la password contenuta in NewPasswordForDB

db.NewPassword "", NewPasswordForDB
db.Close
Exit Sub
GestError:
MsgBox "Attenzione " & Err.Description
End Sub

Aprire un database protetto da password
Public Sub OpenDbPWD()
'eventuali errori saranno gestiti in GestError

On Error GoTo GestError
'Apertura del DB in modalita' utilizzando la PWD contenuta in CurrentPassword

Set db = ws.OpenDatabase(sData, True, False, ";pwd=" & CurrentPassword)
MsgBox "Accesso al DB consentito!"
db.Close
Exit Sub
GestError:
MsgBox "Attenzione " & Err.Description
End Sub

Modificare la password del database
Public Sub dbChangePSW()
'eventuali errori saranno gestiti in GestError

On Error GoTo GestError
'Apertura del DB in modalita' utilizzando la PWD contenuta in CurrentPassword

Set db = ws.OpenDatabase(sData, True, False, ";pwd=" & CurrentPassword)
'aggiornamento del DB con la nuova password contenuta in NewPasswordForDB

db.NewPassword CurrentPassword, NewPasswordForDB
db.Close
Exit Sub
GestError:
MsgBox "Attenzione " & Err.Description
End Sub