PDA

Visualizza la versione completa : [VB6] Password database access


ladyBlu
05-09-2002, 14:01
Ciao a tutti. :ciauz:

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.ConnectionStri ng =
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.ConnectionStri ng
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: :confused:


grazie ragazzi!
:ciauz:

ladyBlu
05-09-2002, 15:23
nessuno sa aiutarmi? :(

darkblOOd
05-09-2002, 16:49
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
05-09-2002, 17:00
e questa istruzione va messa nella stringa di connessione?


Persist Security Info=False


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

darkblOOd
05-09-2002, 17:14
Originariamente inviato da ladyBlu
e questa istruzione va messa nella stringa di connessione?


Persist Security Info=False


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

:bhò: non so nenache a cosa serve :fagiano:

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:

:smack: :ciauz:

ladyBlu
05-09-2002, 17:24
vabbè, dark, non ti preoccupare, tanto funziona lo stesso.
era solo una curiosità!

grazie mille, tesorino!!!
:smack: :smack: :smack:

Loading