Discussion :

[francky42]

Bonjour à tous je suis bloqué sur la simple ouverture de ma base access.
En faite je voudrais par la suite écrire dessus des données provenant d'un serveur opc.
Mais déjà je n'arrive pas à l'ouvrir cette base, depuis 7 heure du mat'.
J'ai essayé pas mal de chose déjà faite mais rien n'y fait.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim CnxStrg  As String
Private Const myPathBd = "F:\Nouveau_Projet\acces\Base.mdb"
CnxStrg = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & myPathBd
cnnADO.ConnectionString = CnxStrg
cnnADO.Open

Peut être il faut mieux utiliser l'ado?
Merci par avance de votre aide

[jfdmagic]

va voir ma dernière réponse dans ce post :

http://www.developpez.net/forums/d72...ur/pb-sql-vb6/

[francky42]

Merci pour la réponse mais avec cela j'ai un soucis à ce niveau :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
aBase.Provider = "Microsoft.Jet.OLEDB.4.0" 'définition du fournisseur de la connexion'
MaBase.ConnectionString = App.Path & "\Base.mdb"
'le plus facile étant de mettre ta base au même endroit que ton application puis tu utilises App.Path'
MaBase.Open 'la base est ouverte'

Nom de fichier incorrect pourtant j'ai beau vérifier le chemin est bien bon.
Merci de votre aide

[iclic]

Bonjour,

Fais d'abord

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
aBase.Provider = "Microsoft.Jet.OLEDB.4.0" 'définition du fournisseur de la connexion'
MaBase.ConnectionString = App.Path & "\Base.mdb"
 
Msgbox(App.Path & "\Base.mdb")    'ici
 
'le plus facile étant de mettre ta base au même endroit que ton application puis tu utilises App.Path'
MaBase.Open 'la base est ouverte'

Et vérifie les données fournies par la Msgbox,c'est la 1ère chose à faire.

A+

[francky42]

Re bonjour je n'ai pas compris pourquoi mais maintenant cela marche.
Merci à tous

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
MaBase.Provider = "Microsoft.Jet.OLEDB.4.0" 'définition du fournisseur de la connexion'
MaBase.ConnectionString = App.Path & "\Base.mdb"
'le plus facile étant de mettre ta base au même endroit que ton application puis tu utilises App.Path'
MaBase.Open 'la base est ouverte'