[VB6+Access] Errore di connessione al database

[ladyBlu]

Buongiorno ragazzi

Ho un progetto scritto interamente con VB6, che utilizza ADO2.7 per connettersi ad un database Access2000 protetto da password.
Le istruzioni per la connessione al db sono queste:

Dim Conn As ADODB.Connection
Set Conn = New ADODB.Connection
       
Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" _
     & "Data Source=" & percDB & ";Persist Security Info=False"
Conn.Properties("Jet OLEDB: Database Password") = "prova"
Conn.Open

l'esecuzione si blocca sull'istruzione in rosso, riportando questo errore: "Metodo 'Item' dell'oggetto 'Properties' non riuscito"

Ho verificato lo stato della variabile Conn tramite il controllo immediato e ho visto che la proprietà Conn.Properties.Count da' questo errore: Errore definito dall'applicazione o dall'oggetto

Ho quindi aperto un nuovo prg e creato un nuovo database di access con password; ho riportato sul nuovo prg le istruzioni di connessione e tutto funziona alla perfezione... non ho nemmeno l'errore che riscontro sulla proprietà Conn.Properties.Count ma anzi ho tutte e 14 le proprietà della connessione elencate nella finestra.

Ho fatto un ulteriore tentativo: ho inserito una per una tutte le librerie che utilizza il prg su cui si genera l'errore, ma non ho ottenuto alcun risultato in quanto il mio nuovo prg continua a funzionare benissimo.

Ora non ho più idea di dove possa essere il problema.
Che suggerimenti potete darmi?

Grazie a tutti

[ladyBlu]

nessuno ha qualche idea del perchè mi succeda sta cosa? :master:

[Vegait]

Non ho la soluzione ma potresti provare:

Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" _
     & "Data Source=" & percDB & ";" _ 
     & "Persist Security Info=False;" _ 
     & "PWD=Prova"

Senza

Conn.Properties("Jet OLEDB: Database Password") = "prova"

[vonkranz]

Originariamente inviato da ladyBlu
nessuno ha qualche idea del perchè mi succeda sta cosa? :master:

..il nuovo DB Access che hai fatto e' anch'esso Access2000?

[ladyBlu]

Originariamente inviato da Vegait
Non ho la soluzione ma potresti provare:

Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" _
     & "Data Source=" & percDB & ";" _ 
     & "Persist Security Info=False;" _ 
     & "PWD=Prova"

Senza

Conn.Properties("Jet OLEDB: Database Password") = "prova"

mi da errore sulla Open della connessione.
il progetto su cui mi da errore non è stato sviluppato sul mio pc. anche perchè io ho fatto diecimila volte sta cosa e non ho mai riscontrato alcun tipo di errore, quindi c'è qualche problema di incompatibilità che non riesco a capire.


anche il nuovo db è Access2000


grazie von

[Vegait]

Se chi sono dei conflitti non ti posso minimamente aiutare.

Mi dispiace e spero che riesci a risolvere.
Saluti e buona ricerca

[vonkranz]

Originariamente inviato da ladyBlu
mi da errore sulla Open della connessione.
il progetto su cui mi da errore non è stato sviluppato sul mio pc. anche perchè io ho fatto diecimila volte sta cosa e non ho mai riscontrato alcun tipo di errore, quindi c'è qualche problema di incompatibilità che non riesco a capire.


anche il nuovo db è Access2000


grazie von

-I service pack di VB li hai installati tutti?
-Prova a mettere i riferimenti a ADO2.5(o ad una versione inferiore rispetto alla 2.7) e vedi se succede ancora
-Guarda i riferimenti dove il prg funziona e confrontali con quelli dove il prg non funziona.

[Lucaoliver]

Io utilizzo questo
nei moduli

Public Sub InitDbConnection()
Set DatabaseDATIMIEI = New Connection
DatabaseDATIMIEI.Open "Portfoglio", "", "PASSWORD" 'Odbc access

End Sub


Spero di esserti stato di aiuto
Ciao

[Lucaoliver]

Ti confermo che funziona
io lo uso periodicamente su un database a cui solo io ho accesso
Provalo e vedrai.........

Ciao :tongue:

[Lucaoliver]

Ti confermo che funziona
Sia su access 97 che 2000 (dove ho avuto modo di testarlo)
Lo uso periodicamente su un database a cui solo io ho accesso

Provalo e vedrai.........

Ciao :tongue: