pb chemin d'accès à un fichier

pb chemin d'accès à un fichier - VB/VBA/VBS - Programmation

Marsh Posté le 08-03-2005 à 09:46:26    

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?

Reply

Marsh Posté le 08-03-2005 à 09:46:26   

Reply

Marsh Posté le 08-03-2005 à 10:08:03    

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 :
  1. Dim Connect As ADODB.connection 'Déclaration de la connection
  2.     Set Connect = New ADODB.connection 'Initialisatin d'une nouvelle connection
  3.     Connect.Provider = "Microsoft.Jet.OLEDB.4.0" 'Fournisseur de données
  4.     Connect.ConnectionString = "C:\...\mabase.mdb" 'Emplacement de la base de données à atteindre
  5.     Connect.Open


 
normalement ça doit marcher...

Reply

Marsh Posté le 08-03-2005 à 10:39:38    

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 :
  1. Dim DataPuceron As New ADODB.Recordset
  2. DataPuceron.ActiveConnection = Connect
  3. 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

Reply

Marsh Posté le 08-03-2005 à 10:42:49    

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 :
  1. Dim DataPuceron As New ADODB.Recordset
  2. DataPuceron.ActiveConnection = Connect
  3. 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 :
  1. Dim cmd As ADODB.Command 'déclaration d'une commande adodb
  2.     Set cmd = New ADODB.Command 'Initialisation de la commande
  3.     cmd.ActiveConnection = Connect 'Connection sur laquelle la commande sera effectuée
  4.     cmd.CommandType = adCmdText 'permet de travailler avec du code sql
  5.     cmd.CommandText = "select puceron from puceron where ecodr= " & Text0.Text & ";"
  6.    
  7.     Dim DataPuceron As ADODB.Recordset 'Declaration du recordset
  8.     Set DataPuceron = New ADODB.Recordset 'Initialisation du recordset
  9.     DataPuceron.CursorLocation = adUseClient 'Curseur côté client
  10.     DataPuceron.CursorType = adOpenDynamic 'curseur dynamique
  11.     DataPuceron.LockType = adLockOptimistic 'verouillage optimiste
  12.     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
Reply

Marsh Posté le 08-03-2005 à 11:53:12    

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

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed