pb chemin d'accès à un fichier

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : pb chemin d'accès à un fichier

babasse35

Bonjour.
J'ai un problème car je n'arrive pas à donner un bon chemin d'accès à ma base de données.J'ai essayé plusieurs solutions comme ça par exemple.

Citation :

cnData.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & bd1.mdb & ";"

J'ai également essayé en mettant tout le chemin pour accéder à la base de données mais ça ne marche pas nom plus!
Quelqu'un saurait-il m'aider?

Publicité

Heaven11

babasse35 a écrit :

Bonjour.
J'ai un problème car je n'arrive pas à donner un bon chemin d'accès à ma base de données.J'ai essayé plusieurs solutions comme ça par exemple.

Citation :

cnData.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & bd1.mdb & ";"

J'ai également essayé en mettant tout le chemin pour accéder à la base de données mais ça ne marche pas nom plus!
Quelqu'un saurait-il m'aider?

essaye ça :

Code :

Dim Connect As ADODB.connection 'Déclaration de la connection
Set Connect = New ADODB.connection 'Initialisatin d'une nouvelle connection
Connect.Provider = "Microsoft.Jet.OLEDB.4.0" 'Fournisseur de données
Connect.ConnectionString = "C:\...\mabase.mdb" 'Emplacement de la base de données à atteindre
Connect.Open

normalement ça doit marcher...

babasse35

Merci pour ton aide, ça marche enfin!
Par contre je rencontre un autre problème juste après quand je veux récupérer des données

Code :

Dim DataPuceron As New ADODB.Recordset
DataPuceron.ActiveConnection = Connect
DataPuceron.Open ("select puceron from puceron where ecodr= " & Text0.Text & ";" )

J'ai un message d'erruer qui me dit:

Citation :

cette opération n'est pas autorisée si l'objet est ouvert

Heaven11

babasse35 a écrit :

Merci pour ton aide, ça marche enfin!
Par contre je rencontre un autre problème juste après quand je veux récupérer des données

Code :

Dim DataPuceron As New ADODB.Recordset
DataPuceron.ActiveConnection = Connect
DataPuceron.Open ("select puceron from puceron where ecodr= " & Text0.Text & ";" )

J'ai un message d'erruer qui me dit:

Citation :

cette opération n'est pas autorisée si l'objet est ouvert

Code :

Dim cmd As ADODB.Command 'déclaration d'une commande adodb
Set cmd = New ADODB.Command 'Initialisation de la commande
cmd.ActiveConnection = Connect 'Connection sur laquelle la commande sera effectuée
cmd.CommandType = adCmdText 'permet de travailler avec du code sql
cmd.CommandText = "select puceron from puceron where ecodr= " & Text0.Text & ";"
Dim DataPuceron As ADODB.Recordset 'Declaration du recordset
Set DataPuceron = New ADODB.Recordset 'Initialisation du recordset
DataPuceron.CursorLocation = adUseClient 'Curseur côté client
DataPuceron.CursorType = adOpenDynamic 'curseur dynamique
DataPuceron.LockType = adLockOptimistic 'verouillage optimiste
DataPuceron.Open cmd 'execution de la commande adodb sur le recordset

essaye comme ça ça arrangera peut être ton erreur, je garanti rien

Message édité par Heaven11 le 08-03-2005 à 10:43:28

babasse35

Merci.
A première vue ça à l'air de marcher!

FORUM HardWare.fr

Programmation

VB/VBA/VBS

pb chemin d'accès à un fichier

Sujets relatifs
[VB]Manip fichier Excel+chemin depuis VB	[java][Resolu] Probleme lecture de fichier
chemin physique et virtuel	Quels logiciels pour creer Fichier/Edition/Affichage...?
Droit d'acces restreint a une base access	Ecrire le contenu d'une structure dans un fichier
lire un fichier wav	Problème MySQL, accès localhost supprimé
Récupération de la date de création d'un fichier	recupérer un chemin d'accès et un nom de fichier ds 1 batch
Plus de sujets relatifs à : pb chemin d'accès à un fichier

Page générée en 0.080 secondes