Réponse acceptée !
Salut,
Par contre pour l'utilisation de : App.path, il y a un petit truc à savoir(que l'on ma fait remarqué il y a pas trés longtemps), cela te renvoie le chemin d'où est lancé ton aplli... si tu le lance de C:, App.path renvois : "C:\" est là ton aplli va planter, car dans la connexion on dit :
CnxAdo.ConnectionString = App.Path & "\tabase.mdb"
Donc on aura un problème de "\", car le retour de App.path sera :
"C:\\tabase.mdb", et dans ce cas là, sa plante
Par contre si tu lances ton aplli d'un répertoire cela ne posera pas de problème
Si tu veux garder l'utilisation de App.path, tu devra vérifier avant le chemin d'où est lancée ton aplli, voici un exemple de vérif, peut-être pas optimisé :
Options Explicit
' Chemin Base
Dim CheminBase As String
Dim Chaine As String
Dim Dernier_Carract As String
' Connection base de données
Public CnxAdo As New ADODB.Connection
Private Function Connect()
' Choix du fournisseur ,ouverture Base de Données
CnxAdo.Provider = "Microsoft.jet.OLEDB.4.0"
' Vérife chemin via fonction
Verif_Chemin_Base
' Resultat de la fonction verif_cehemin_base
CnxAdo.ConnectionString = CheminBase
' Ouvre la connection à la source
CnxAdo.Open
End Function
Private Function Verif_Chemin_Base()
' Présence et test ou pas de "\" dans le cas
' d'un lancement dans ??:\, les ?? représente le lecteur
' Car app.path retournera toujours : ??\
' Donne la chaine retournée de app.path à ma variable
Chaine = App.Path
' Prend le dernier carractère de ma variable chaine
Dernier_Carract = Right(Chaine, 1)
' Condition suivant présence de "\"
If Dernier_Carract = "\" Then
CheminBase = App.Path & "TaBase.mdb"
Else
CheminBase = App.Path & "\TaBase.mdb"
End If
End Function
A+
Exploreur