[Vb Net] sostituire password mdb

[Teflo]

Devo cambiare la password ad un mdb da programma, qualcuno ha mai usato la : jet oledb: Database Password = password; jet oledb: New Database Password = nuovapassword, ho provato in tutte le minestre ma niente.

[yyzyyz]

:di56: questi sono degli esempi ke utilizzo x il vb5-6 nn so se possano andarti bene anke sul vbnet, fammi sapere ciauz.

Dim dbase As Database 
Set dbase = OpenDatabase(App.Path & "\db1.mdb") 

Per impostare una password:   dbase.NewPassword = "","aaa" 
 
Per modificare una password:   dbase.NewPassword = "aaa","bbb" 
 
Per eliminare una password:   dbase.NewPassword = "aaa","" 
 
Per aprire un DB con password: Senza DataControl: 1° metodo: Set dbase = OpenDatabase(App.Path & "\db1.mdb") 
   dbase.Connect = "PWD=aaa" 
 
  2° metodo: Set dbase = OpenDatabase(App.Path & "\db1.mdb", False, False, "PWD=;aaa") 
 
 Con DataControl:  Data1.DatabaseName="db1.mdb" 
   Data1.Connect=";PWD=aaa"

[Teflo]

Ti ringrazio del codice, ma purtroppo non fa al mio caso. Devo usare Ado net mentre se non vado errato(è un anno e mezzo che non lavoro più in vb6) tu fai riferimento a Dao o comunque con qualche modifica funzionante anche con Ado, ma non Ado Net, Il problema è che non capisco come diavolo si usa la Jet OleDb: New Database Password = ......A dire la verità ho risolto compattando l'mdb e sostituendo la password usando la libreria Microsoft Jro ma è un sistema un pò contorto ...
L'istruzione dovrebbe essere questa ma non riesco a farla funzionare:

StringaConnessione = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=TuoDb.mdb; Jet OLEDB: Database Password= VecchiaPassword; Jet OLEDB:New Database Password=NuovaPassword

[yyzyyz]

http://www.iacosoft.com
:di56: prova a spulciare questlink forse trovi qualkosa, (..almeno kosi mi è parso di vedere).ciao

[amodio]

trovato qualcosa
anche a me servirebbe

grazie

io ho cercato ma non ho trovato nonete

[Teflo]

Grazie dell'aiuto ma purtroppo si fa riferimento a Dao, credo che l'unico sistema sia JRO che comunque funziona benissimo, quello che non capisco è cosa cavolo mettono quell' opzione nella stringa di connessione.

[yyzyyz]

nn mi arrendo, alla fine trovero qualkosa ke ti possa servire, e ke kakkio a ke serve internet

 Function SetDBPassword(strDBPath As String, _
                       strOldPwd As String, _
                       strNewPwd As String)
   ' This procedure sets a new password or changes an existing
   ' password.

   Dim dbsDB      As DAO.Database
   Dim strOpenPwd As String

   ' Create connection string by using current password.
   strOpenPwd = ";pwd=" & strOldPwd

   ' Open database for exclusive access by using current password. To get
   ' exclusive access, you must set the Options argument to True.
   Set dbsDB = OpenDatabase(Name:=strDBPath, _
                            Options:=True, _
                            ReadOnly:=False, _
                            Connect:=strOpenPwd)

   ' Set or change password.
   With dbsDB
      .NewPassword strOldPwd, strNewPwd
      .Close
   End With

   Set dbsDB = Nothing
End Function

Function OpenProtectedDB(strDBPath As String, _
                         strPwd As String)
   Dim cnnDB As ADODB.Connection

   Set cnnDB = New ADODB.Connection

   ' Open database for shared (by default), read/write access, and
   ' specify database password.
   With cnnDB
      .Provider = "Microsoft.Jet.OLEDB.4.0"
      .Properties("Jet OLEDB:Database Password") = strPwd
      .Mode = adModeReadWrite
      .Open strDBPath
   End With
   ' Code to work with database goes here.
   cnnDB.Close
   Set cnnDB = Nothing
End Function

ps la faccina sono i 2 punti (

[Teflo]

Ti ringrazio per la tua cocciutaggine, questa è la mia stringa di connessione convertita per Ado Net:

StingaConnessione = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=Mio.mdb; Jet OLEDB:Database Password=" & PswrdMDB

per cambiare la password dovrebbe essere:

StingaConnessione = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=Mio.mdb; Jet OLEDB:Database Password=" & PswrdMDB & _
  "; Jet OLEDB:New Database Password=" & NuovaPassword

solo che non va.....credo di gettare la spugna, mi rassegno....

[vitren54]

per yyzyyz

volevo usare un db access 97 protetto da password (con VB5 e DAO) e gli esempi che hai suggerito mi calzano a pennello ma non riesco a farli funzionare, sto usando il 2° esempio e mi da sempre il messaggio di password errata.
Ho provato diverse varianti ma il risultato non cambia, potresti darmi qualche altro suggerimento.

Ciao e grazie

[yyzyyz]

Originariamente inviato da vitren54
per yyzyyz

volevo usare un db access 97 protetto da password (con VB5 e DAO) e gli esempi che hai suggerito mi calzano a pennello ma non riesco a farli funzionare, sto usando il 2° esempio e mi da sempre il messaggio di password errata.
Ho provato diverse varianti ma il risultato non cambia, potresti darmi qualche altro suggerimento.
Ciao e grazie

prova cosi dovrebbe andare, da me funziona VB6 + db (access97 con pass)

Private Sub Form_Load()
Data1.DatabaseName = App.Path & "\db1.mdb"
Data1.Connect = ";pwd=pippo"
Data1.RecordSource = "tabella1"
Data1.Refresh
end sub