[VB6] Password database access

[ladyBlu]

Ciao a tutti.

Ho un DB di Access protetto da password. Da VB6 io devo impostarla per poterci accedere tramite una connessione ADO.

Ho la seguente Stringa di Connessione assegnata ad un DataEnvironment (RSPianificazione):

perc=app.path & "\mioDB.mdb"
Sub impostaConnessioni()
    RSPianificazione.ConnPianificazione.ConnectionString =
                 CreaStringaConnessione(perc)
    RSPianificazione.ConnPianificazione.Properties
                 ("Database-Password") = "pippo"
End Sub

Function CreaStringaConnessione(perc)
       
    miaStringa = "Provider=Microsoft.Jet.OLEDB.4.0;"
    miaStringa = miaStringa & "Data Source="
    miaStringa = miaStringa & perc
    miaStringa = miaStringa & ";Persist Security Info=False"
    CreaStringaConnessione = miaStringa

End Function

poi devo creare una nuova connessione ADO; ecco il codice:

Sub ConnettiDB()
        Dim miaConn As ADODB.Connection
        Set miaConn = New ADODB.Connection

        impostaConnessioni
        miaConn.ConnectionString = 
             RSPianificazione.ConnPianificazione.ConnectionString  
        miaConn.Open
        
End Sub

l'errore lo genera sull'istruzione in rosso:
"Errore n. 3265: Impossibile trovare l'oggetto nell'insieme corrispondente al nome o al numero richiesto."


come faccio per far aprire questo db? :master:


grazie ragazzi!

[ladyBlu]

nessuno sa aiutarmi?

[darkblOOd]

se devi aprire un db access con pwd devi usare questo tipo di codice

Sub ADOOpenDBPasswordDatabase()

   Dim cnn As New ADODB.Connection

   cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
      "Data Source=.\NorthWind.mdb;" & _
      "Jet OLEDB: Database Password=password;"
   cnn.Close

End Sub

devi specificare il provider...

Anch'io ai tempi mi sono incasinato anche perchè ci sono pochi esempi

[ladyBlu]

e questa istruzione va messa nella stringa di connessione?

Persist Security Info=False

dark, grazie... come sempre sei un tesoro!

[darkblOOd]

Originariamente inviato da ladyBlu
e questa istruzione va messa nella stringa di connessione?

Persist Security Info=False

dark, grazie... come sempre sei un tesoro!

non so nenache a cosa serve

So che la mette in automatico lui quando generi una stringa di connessione (tipo con qualche procedura guidata) ma personalmente non le uso mai (le procedure guidate) e mi funziona (quasi) sempre tutto :gren:

[ladyBlu]

vabbè, dark, non ti preoccupare, tanto funziona lo stesso.
era solo una curiosità!

grazie mille, tesorino!!!