[VBNet] Creazione password

[Misterxxx]

Vorrei proteggere il file .mdb con password e accedervi dal codice di VBNet.

Il problema sta nell'mdb
Come si crea la password? Ho provato a crearla ma poi, dal codice, non riesco ad accedere perchè il dbase è ad uso esclusivo.

Devo creare un utente in Access? Vorrei creare un user con password da usare nella stringa di connessione di VBNet.

Grazie a tutti.

[Teflo]

Usi la libreria JRO per impostare la password al tuo Mdb:

Dim jro As New JRO.JetEngine()
Dim da As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source= TuoDatabase.Mdb; Jet OLEDB:Database Password = " & PswrdMDB & " ;Jet OLEDB:Engine Type=5"
Dim a As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=TuoNuovoDatabase.mdb; Jet OLEDB:Database Password = " & NewPswrdMDB & " ; Jet OLEDB:Engine Type=5"
jro.CompactDatabase(da, a)

e poi da programma apri il database così:

Connessione = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source= TuoDatabase.Mdb" & "; Jet OLEDB:Database Password=" & PswrdMDB

[Misterxxx]

Non trovo la libreria JRO tra le refernze, quale è la descrizione?

Comunque, è possibile impostare la pword da Access con 'Imposta password Database'?

Ho provato così (senza .mdw) ma non riesco a connetermi.

[Misterxxx]

Ho trovato la libreria e la prima parte funziona (riesco ad impostare la pw).

Per la seconda parte, io ho usato una connessione creata automaticamente trascinando la tabella da dal 'Server Explorer' e la stringa è:

Me.OleDbConnection1.ConnectionString = "Jet OLEDB: Global Partial Bulk
Ops=2;Jet OLEDB:Registry Path=;Jet OLEDB: Database Locking Mode=1;Jet
OLEDB: Database Password=;Data Source=""E:\DOCUMENTI\Vb
Net\dati.mdb;Password=;Jet OLEDB:Engine & Type=5;Jet OLEDB:Global
Bulk Transactions=1;Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:System
database=;Jet OLEDB:SFP=False;Extended Properties=;Mode=Share Deny
None;Jet OLEDB:New Database Password=;Jet OLEDB: Create System
Database=False;Jet OLEDB: Don't Copy Locale on Compact=False;Jet
OLEDB:Compact Without Replica Repair=False;User ID=Admin;Jet
OLEDB:Encrypt Database=False"

dove metto la pw?

[Teflo]

Se guardi bene quello che mi hai postato hai un pezzo dove c'è scritto jet oledb: database password=; bene basta che dopo l'uguale ci metti la tua password.

[Misterxxx]

OK funziona tutto.

Una cosa sulla connessione: mettendo la pw dove mi hai detto tu (avevo provato) cercava comunque un nome utente; invece mettendola durante il wizard (c'era l'opzione che non avevo notato) la stringa di connessione contiene la pw dove hai detto tu, ma in + anche altre informazioni che fanno funzionare la connessione).

Cmq tutto bene, grazie.

[Teflo]

Consiglio personale: lascia stare i wizard e composizione automatiche ( roba da dilettanti che stanno iniziando a programmare....), piuttosto scriviti una tua classa personale dove accedi ai vari dati così puoi avere il controllo perfetto sulle varie operazioni, lo sò ... capisco che ti verranno un pò di calli alle dita perchè dovrai scriverti qualche riga di codice, ma credimi ne vale la pena ..... ed è sicuramente e decisamente più professionale.