VB - Access - ADO

Bonjour à tous,

après deux jours de galère, plusieurs recherches infructueuses, je me permet de poser la question.

Je réalise une interface VB travaillant avec une base Access.

Dans "Projet>Référence", j'ai coché "Microsoft ActiveX Data Objects 2.8 Library"

Voici ma partie de code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

Public Sub Btn_Connect_Click() Dim BD_Connect As ADODB.Connection 'Variable de connection à la BD Set BD_Connect = New ADODB.Connection   'Déclaration de la variable de connexion Dim Db_Path As String Db_Path = App.Path & "\Bdd\Bdd_Stock.mdb" 'Définition du pilote de connexion BD_Connect.Provider = "Microsoft.Jet.Oledb.4.0" 'Définition de la chaîne de connexion BD_Connect.ConnectionString = Db_Path 'Ouverture de la base de données BD_Connect.Open   Dim rst As ADODB.Recordset Dim Sql_Request As String Set rst = New ADODB.Recordset Sql_Request = "SELECT * FROM Local" rst.Open Sql_Request, BD_Connect   While Not rst.EOF Lst_Tables.AddItem rst("Local.Loc_Name") Wend rst.Close End Sub

---

J'ai le message d'erreur suivant:

La méthode 'Open' de l'objet '_Recordeset' a échoué


J'ai essayé différente version de la comme rst.Open mais toujours la même erreur.

Merci de votre aide

Bonjour,

comment a été créée ta base "Bdd_Stock.mdb" ?

Cela dit, j'ai peur que la propriété .ConnectionString de ta connexion soit incomplète.

Edit : Encore que, tu n'as pas d'erreur lors de la connexion ?

Merci de ta réponse avant toute chose

Donc la base a été créée sous Access

La connexion est bien correcte car j'ai essayé la commande ci dessous et elle fonctionne

Code:

---

1 2	rst.Open "[Aff_Place]", BD_Connect, adOpenForwardOnly, adLockReadOnly, adCmdStoredProc

---

Plus de problème donc ?

si car je souhaite pouvoir constuire les requête directement sour vb :/

Bonjour

Si j'ai bien compris quand tu veux ouvrir une table cela marche, mais pas avec la requête.

Une idée, mais un ; à la fin de ta requête, dés fois cela vient de là.

Starec

Salut,

Code:

---

1 2 3 4 5 6 7 8 9

Public Sub Btn_Connect_Click() Dim BD_Connect As ADODB.Connection BD_Connect .Provider = "microsoft.jet.oledb.4.0" BD_Connect .ConnectionString = App.Path & "\Bdd\Bdd_Stock.mdb"   BD_Connect .Open Dim rst As ADODB.Recordset Set rst = New ADODB.Recordset rst.Open "select * from Local", BD_Connect , adOpenDynamic, adLockOptimistic

---

Essai çà.

J'ai du modifier un peu le code car il me mettait des messages d'erreur

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim BD_Connect As ADODB.Connection Set BD_Connect = New ADODB.Connection BD_Connect.Provider = "Microsoft.Jet.Oledb.4.0" BD_Connect.ConnectionString = App.Path & "\Bdd\Bdd_Stock.mdb"   BD_Connect.Open Dim rst As ADODB.Recordset Set rst = New ADODB.Recordset rst.Open "select * from Local", BD_Connect, adOpenDynamic, adLockOptimistic

---

Mais malheureusement, j'ai le même message d'erreur :/

Citation:

---

Envoyé par Starec

Bonjour

Si j'ai bien compris quand tu veux ouvrir une table cela marche, mais pas avec la requête.

Une idée, mais un ; à la fin de ta requête, dés fois cela vient de là.

Starec

---

Lorsque je lance la requête directement sous vb, elle ne marche pas.
Si j'utilise une requête crée sous access, elle passe.

J'ai essayé avec le ; mais marche pas .. :/:bug:

Re

As-tu un message d'erreur ?

Starec

J'ai le message d'erreur suivant:

Citation:

---

Erreur d'exécution '-2147467259 (80004005)
La méthode 'Open' de l'objet '_Recordeset' a échoué

---

Merci pour votre aide

Re

Je t'avoue que là je coince, je t'avoue que je connais trés peu ADO, je travail surtout avec DAO sur des bases Access.

Pourtant cela à l'air cohérent.

Une idée pour finir, comme cela fonctionne avec un table, cela veut dire que ta connection est bonne.

Je penserais plus sur deux solutions :

1 - Le nom de ta table dans ton From est-il bien écrire
2 - L'utilisation des curseurs.

Désolé de ne pouvoir t'en dire plus.

Starec

Merci Stardec, tu viens de me donner l'info qui ma permis de déclencher ...

Le nom de table que j'essaie de joindre "Local" est bien écrit correctement mais doit surement correspondre à un mot réservé ou quelque chose dans le genre. J'avais essayé avec une autre table mais je suis tomber sur le même genre ... :/ :aie:

Les autres nom fonctionne

Code:

---

1 2 3 4 5 6

rst.Open "SELECT * FROM Company;", BD_Connect, adOpenDynamic, adLockOptimistic   While Not rst.EOF MsgBox rst("Com_Name") rst.MoveNext

---

Merci pour votre aide, j'espère que ce post pourra aider d'autre personne.


Edit: Je confirme, j'ai renommé les tables défaillantes ... et plus de problèmes