[VB6] Percorso generico per accesso al database

[Juanpalmy]

Nelle pillole c'è questo modulo per connettere il DB access

Option Explicit

Public Cn As New ADODB.Connection
Public Rs As New ADODB.Recordset

Sub connetti()
With Cn
.ConnectionString = "Provider = Microsoft.Jet.OleDB.4.0;" & _
"Data source =D:\VB98\Progetti\Rubriva ver 2.0\agenda.mdb"
'nella prima riga si specifica il provider
'nella seconda il percorso al db
.ConnectionTimeout = 5 'numero dei secondi di timeout
.CursorLocation = adUseClient 'tipo di cursore
.Mode = adModeShareDenyNone 'nessuna limitazione
.Open 'apertura ricordarsi di chiuderla
End With
With Rs
.ActiveConnection = Cn ' imposta a che connessione si riferisce
.LockType = adLockOptimistic ' imposta il tipo di lock
End With
End Sub



La mia domanda è : come faccio a mettere un indirizzo generico e non quello del mio pc?
Se installo il programma su un altro pc, il file mdb non lo trova...

Qual'è la sintassi precisa?

Juanpalmy

[MdE2005]

Ciao..puoi usare questo:

percorso = App.path & "\database.mdb"

in questo caso la variabile percorso contiene la path del tuo file, che è la stessa del programma.

ciao