Discussion :

[zidane2]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[iclic]

Bonjour,

D'abord faire ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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+

[zidane2]

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

[ProgElecT]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[zidane2]

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!

[ProgElecT]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[zidane2]

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