comment créer une requête de type SELECT...WHERE avec vba

[invite33cb2e4d]

Bonjour à vous,

Je me permet encore de solliciter votre aide pour savoir si l'un d'entre vous serais comme écrire une requête de type select... where.... sur vba.

Voilà ce que j'ai fait mais ça ne fonctionne pas:

Dim RS as ADODB.Recordset
Dim Categ as integer
Dim chSQL as string

Modifiable1.SetFocus
Categ = Modifiable1.ListIndex

chSQL = "select NumCompo, NomCompo from COMPOSANT where NumCategorie = 'Categ';"

CurrentDb.Execute (chSQL)


PS: Categ est une variable


Quelqu'un serait il pourquoi ça ne fonctionne pas ou comment faire pour exécuter ce genre de requête?

Merci d'avance
-----

[inviteba9bce0d]

Categ est une variable, essai çà :

"select NumCompo, NomCompo from COMPOSANT where NumCategorie = " & Categ & ";"

La syntaxe du VBA est horrible, donc je suis méme pas sur que çà marche. Il me semble qu'il faut parfois mettre le nom des champs entre crochet [ ] mais je ne sais pas quand exactement ^^

[invite33cb2e4d]

Merci l'ami

Mais j'ai encore un problème et je pense qu'il vient de la définition du Recordset ou du CurrentDb.Execute (chSQL) car j'ai un message d'erreur:
ERREUR '3065'
Impossible d'exécuter une requête de séléction

Please Help

[inviteba9bce0d]

Regarde la casse. Il se pourrait que tu te soit trompé dans le nom des champs/table.

[A voir en vidéo sur Futura]

[invite33cb2e4d]

Non, les champs et tables sont bien orthographié.

Je viens de voir que le CurrentDb.Execute (chSQL) n'est pas adapter à la fonction SELECT.

Ceci dit je ne trouve pas le bon code pour faire cette requête select/where même après des recherches sur google

Je cherche toujours et encore

[inviteba9bce0d]

Il faut que tu "mette" ta requete dans le recordSet :
OpenRecordset("select ...") ou quelque chose dans le genre je crois.