Est ce que ce code est correcte? vb6 ADO

Bonjour
Voici mon code qui me renvoie des érreurs innombrables:

Code:

---

rs.Open "SELECT * FROM " & TABLE_NAME & " WHERE " & FIELD_INDEX_NAME & " = " & Index & " AND " & FIELD_ID_Game& " like combo.text", db, adOpenStatic, adLockOptimistic

---

Des érreurs de type: syntax error ... type mismatch .....Aucune valeur donnée pour un ou plusieurs paramètres requis etc...
A chaque fois j'éssaye d'introduire des correctifs au code , un nouveau message d'erreur me surprend.
Je cherche la syntaxe éxacte pour mon code
Cordialement

Bonjour,

D'abord faire ceci

Code:

---

1 2 3 4 5 6

dim Rqt as String Rqt="SELECT * FROM " & TABLE_NAME & " WHERE " & FIELD_INDEX_NAME & " = " & Index & " AND " & FIELD_ID_Game & " like combo.text" Msgbox(Rqt) rs.Open Rqt, db, adOpenStatic, adLockOptimistic

---

Ce qui te permet déjà de visualiser ta requête et de voir éventuellement
"ce qui ne va pas"

Ensuite chercher dans

La FAQ VB6, Les bases de données.

ou il y a des exemples de requête ,ce qui te permettra de corriger ton code

A+

Bonjour iclic
Merci beacoup pour la réponse mais malheusement le code m'envoie encore ce message: Aucune valeur donnée pour un ou plusieurs paramètres requis
Je ne sais pas que veut-il dire?
merci

Citation:

---

Envoyé par iclic

Code:

---

Rqt="SELECT * FROM " & TABLE_NAME & " WHERE " & FIELD_INDEX_NAME & " = " & Index & " AND " & FIELD_ID_Game & " like combo.text"

---

---

Il ne t'as pas corrigé les erreurs, il te permet d'y voire plus claire.
Tu veux trouver le/des mots contenant "combo.text" ou des mots correspondant à ce qu'il y à d'écrit dans combo.text.
Installes MSDN en y recherchant le mot Like tu y trouveras pleins d'exemples pour ADO (Titre: Exécution d'une requête élémentaire, Emplacement: Concepts Visual Basic, --> ADO).
Tout ceci pour te permettre d'avancer plus vite par toi même (ouverture de la discussion 10h27) et de ne pas être obligé d'attendre une éventuelle réponse durant plusieurs heures.

Bonjour ProgElecT et merci pour le lien du MSDN.
En fait j'ai éssayer de télécharger le fichier mais comme il est trop volumineux il m'est impossible de le télécharger. Mon internet est trop faible avec les coupures de temps à l'autre donc c'est tout à fait impossible. (Je vous parle d'un pays du tiers monde!!!) En plus mon PC n'a pas de grandes capacités pour contenir un tel fichier.
merci encore

Et j'attend encore un coup de main!

Citation:

---

Envoyé par MSDN exemple

Code:

---

1 2 3 4 5 6

Private Sub RunButton_Click() Dim rs As New ADODB.Recordset rs.Open "select * from Titles where Title like '%h'", cn ADOGrid1.ShowData rs rs.Close End Sub

---

---

Pour toi donc

Code:

---

Rqt="SELECT * FROM " & TABLE_NAME & " WHERE " & FIELD_INDEX_NAME & " = " & Index & " AND " & FIELD_ID_Game & " like '%" & combo.text & "%'"

---

Merci beacoup ProgElecT
Vous ètes un homme formidable
ça marche trés trés bien