[VB6] Errore di runtime "Impossibile trovare il file (Sconosciuto)"

[gcadmin]

Sul consiglio di provare con un database OLEDB ho provato ad eseguire il seguente codice:
__________________________________________________ __________________________
Public Sub Init()
Dim path_db As String
Set conn = CreateObject("ADODB.Connection")
path_db = App.Path & "\rubrica.mdb"
db = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=path_db;User Id=admin;Password=;"
conn.Open db
End Sub
__________________________________________________ __________________________


Però l'esecuzione di tale codice mi ritorna un errore diverso, cioè:
Errore di run-time '-2147467259 ( 80004005 )
Impossibile trovare il file "C:\Programmi\Microsoft Visual Studio\VB98\path_db".

Ho provato ad spostare il databse rubrica.mdb nella cartella VB98 ma nada de nada, ritorna sempre l'errore appena citato

[tekanet]

Ma scusa sei sicuro che il percorso sia in una variabile ben valorizzata?? Da come scrivi..

Dim db
db = "mio.mdb"

.open "bla bla bla db" non ti apre mio.mdb! Devi concatenare la stringa con qualcosa tipo

.open "bla bla bla " & db

tK

[wallrider]

visto che usi oledb prova a usare la connection string creata dal file udl
http://forum.html.it/forum/showthrea...91#post7022291

[gcadmin]

Per tk:

Credo sia quello il problema, cioè la variabile path_db non ben valorizzata. Infatti se considero il seguente codice con il percorso assoluto esplicito

'Definizione della connessione al database
db = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\...\rubrica.mdb;...

'Apertura della connessione al database
conn.Open db

funziona la connessione.
Però la mia domanda a questo punto è: come faccio a considerare una variabile del tipo path_db al posto del percorso esplicito? Mi spiego meglio: vorrei considerare una variabile che contenga il percorso del mio database senza doverlo ogni volta esplicitare qualora dovesse cambiare e così rendere il mio codice più flessibile. Si pensi ad esempio ad un
applicativo che richiede il percorso di installazione; in tal caso potrebbe essere utile una
variabile che permetta di settare il Data Source, in caso contrario come dovrei comportarmi?
Grazie
__________________________________________________ ________________
Per wallrider

proverò anche la strada che mi hai suggerito e ti arò sapere quali risvolti ci sono
grazie

[tekanet]

Guarda che è semplicissimo, concatena una stringa costante (nella forma "mia stringa costante") ad una variabile, con l'operatore &.

Ad esempio:

cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & variabile_che_contiene_il_percorso_al_db & ;User Id=admin;Password=;"

HTH!

tK

[gcadmin]

Grazie mille tk ti sono davvero grato per le tue delucidazioni
THANKS

gcadmin