[VB] Connection ADO

Bonjour,
Voila lorsque j'ai une erreur "impossible d'utiliser cette connexion pour effectuer cette opération.
Elle est fermée ou non valide dans ce contexte." Lorsque je compile avec VB6
Je n'arrive pas à comprendre d'ou viens cette erreur ... même si il me met en jaune la ligne ou je fais ma requête, je présume que cela ce passe lors des paramètres de ma requêtes, mais je ne suis pas habitué à mettre autres choses.
Voici mon code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Option Explicit Dim bd As New ADODB.Connection   Dim tb As New ADODB.Recordset Dim tb1 As New ADODB.Recordset Dim tb2 As New ADODB.Recordset   Dim msg1, msg2 As String   Private Sub Form_Load()   bd.Provider = "microsoft.jet.oledb.4.0" bd.ConnectionString = App.Path & "\VGP_GMAO.mdb"   tb.Open "select EnOfMAO.NUMEROOF,CODEAFFEC,COMPLAN,LIBPLAN,DELAIMAJ,TEMPSPREV,NUMEROOP,LIBELOPE,TUNIPREVU,*TYPAPPORT,ARTICLE,LIBAPPORT,BESOIN,UNISTOCK from EnappgamMAO, EnOfMAO, EnopeMAO", bd, adOpenDynamic, adLockOptimistic   ' tb.MoveFirst   End Sub

---

Eva, à bientôt

http://drq.developpez.com/vb/tutoriels/ADO/Chapitre2/

il faut d'abord ouvrir la base de données avant d'ouvrir une table.

Code:

---

db.open

---

Merci pour les liens, j'ai repris mon code mais j'ai toujours cette erreur ="Aucune valeur donnée pour un ou plusieurs des paramètres requis"

Code:

---

1 2 3 4 5 6

bd.Provider = "microsoft.jet.oledb.4.0" bd.ConnectionString = App.Path & "\VGP_GMAO.mdb" bd.Open Dim rst As New ADODB.Recordset Set rst = New ADODB.Recordset rst.Open "select EnOfMAO.NUMEROOF,CODEAFFEC,COMPLAN,LIBPLAN,DELAIMAJ,TEMPSPREV,NUMEROOP,LIBELOPE,TUNIPREVU,TYPAPPORT,ARTICLE,LIBAPPORT,BESOIN,UNISTOCK from EnappgamMAO, EnOfMAO, EnopeMAO", bd, adOpenDynamic, adLockOptimistic

---

dans le rst.Open

Citation:

---

from EnappgamMAO, EnOfMAO, EnopeMAO

---

c'est pour ouvrire 3 tables ? 8O

oui, à l'origine c'est pour ouvrir 3 tables :oops:

Ce n'est pas la bonne methode, http://f1nhs.club.fr/DocsDVP/RecercheDansForum.gif avec le mot "join", entre autre cette discution Datagrid et alimentation multitable

Bonjours
J'ai avancé avec mes requêtes, mais cette fois-ci j'ai cette erreur "
Aucune valeur donnée pour un ou plusieurs des paramètres requis" avec le code SQL suivant :

Code:

---

1 2 3 4 5 6

bd.Provider = "microsoft.jet.oledb.4.0" bd.ConnectionString = App.Path & "\VGP_GMAO.mdb" bd.Open Dim rst As New ADODB.Recordset Set rst = New ADODB.Recordset rst.Open "SELECT EnOfMAO.NUMEROOF,EnofMAO.COMPLAN,EnofMAO.LIBPLAN,EnofMAO.DELAIMAJ,EnofMAO.TEMPSPREV,EnopeMAO.NUMEROOP,EnopeMAO.CODEAFFEC,EnopeMAO.LIBEOP,ENOPE.MAO.TUNIPREV FROM EnofMAO LEFT JOIN EnopeMAO ON EnofMAO.NUMEROOF = EnopeMAO.NUMEROOF ;", bd, adOpenDynamic, adLockOptimistic

---

Eva,

Salut Eva,

Première chose, je n'ai pas de vb dispo sous la main, mais es-tu sûre d'avoir renseigné tous les paramètres du "rst.open" ?

Deuxièment, tu fais deux "New RecordSet" d'affilée je n'en vois pas l'utilité.

A+
Seb

Bonjour,

C'est quoi ça ?

Citation:

---

rst.Open "SELECT EnOfMAO.NUMEROOF,EnofMAO.COMPLAN,EnofMAO.LIBPLAN,EnofMAO.DELAIMAJ,EnofMAO.TEMPSPREV,EnopeMAO.NUMEROOP,EnopeMAO.CODEAFFEC,EnopeMAO.LIBEOP,ENOPE.MAO.TUNIPREV FROM EnofMAO LEFT JOIN EnopeMAO ON EnofMAO.NUMEROOF = EnopeMAO.NUMEROOF ;", bd, adOpenDynamic, adLockOptimistic

---