comment créer une requête de type SELECT...WHERE avec vba - SQL/NoSQL - Programmation
Marsh Posté le 04-08-2009 à 17:43:26
Ca ne marche pas parce que tu ne spécifies aucune chaine de connection à ta base de données
Marsh Posté le 10-08-2009 à 10:17:46
merci pour ta réponse harkonnen et désolé pour la longue période d'inactivité.... (j'étais très  occupé),  
Pour en revenir à ce que tu m'as conseillé, même avec la connexion ça ne fonctionne pas, j'ai une autre erreur!! 
 
j'ai donc voulu changer de syntaxe (exemple pris sur l'aide access) mais j'ai encore une autre erreur: 
 
Dim BDD as DAO.Recordset 
Dim Base as DAO.Database 
Dim Categ as integer 
Dim chSQL as string 
 
Modifiable1.setfocus 
Categ = Modifiable1.ListIndex 
 
Set Base = CurrentDb 
 
chSQL = "select NumCompo, NomCompo from COMPOSANT where NumCategorie = 'Categ';"  
 
Set BDD = Base.OpenRecordset (chSQL) 
 
Set BDD = Nothing 
Base.close 
Set Base = Nothing 
 
 
Ainsi access me renvoie: 
"Erreur 3061 
"Trop peu de parametre. 1 attendu 
 
Je n'arrive pas à savoir quel paramètre il me demande!! 
 
Merci pour votre aide
Marsh Posté le 04-08-2009 à 15:16:01
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?
Merci d'avance
Message édité par komaxi le 04-08-2009 à 15:36:34