Select avec passage de variable par un tableau

flyman30 Messages postés 11 Date d'inscription mardi 8 décembre 2009 Statut Membre Dernière intervention 10 janvier 2010 - 17 févr. 2002 à 20:05
cs_Mcjo Messages postés 403 Date d'inscription dimanche 12 août 2001 Statut Membre Dernière intervention 3 septembre 2012 - 18 févr. 2002 à 11:48
Bonjour,
Pourquoi quand je fait la requete :

"SELECT Genre from Annonces where Genre = 'arGenre(iIndex)'"
response.write Typename(arGenre(0))--> donne String
la boucle :

do while not stAnnonces.eof
stAnnonces.MoveNext
icompteur = icompteur + 1
loop

ne fonctionne pas !

alors que si je fait:

"SELECT Genre from Annonces where Genre = 'Animaux'"
la boucle do while fonctionne ?

Voila le script complet :

<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/Annonces.asp" -->
<%
dim arGenre(10), iIndex, icompteur

iIndex = 0
arGenre(0) = "Animaux"
arGenre(1) = "Autos-motos"
arGenre(2) = "Emploi"
arGenre(3) = "Immobilier achats"
arGenre(4) = "Immobilier locations"
arGenre(5) = "Immobilier ventes"
arGenre(6) = "Informatique"
arGenre(7) = "Matériel agricole"
arGenre(8) = "Recherche"
arGenre(9) = "Rencontre"
arGenre(10) = "Ventes diverses"

'for iIndex = 0 to 10
icompteur = 0
set stAnnonces = Server.CreateObject("ADODB.Recordset")
stAnnonces.ActiveConnection = MM_Annonces_STRING stAnnonces.Source "SELECT Genre from Annonces where Genre 'arGenre(iIndex)'"
stAnnonces.Open()
do while not stAnnonces.eof
stAnnonces.MoveNext
icompteur = icompteur + 1
loop
response.write arGenre(iIndex) & "(" & icompteur & ")" & "
"
stAnnonces.Close()
'next
%>

2 réponses

cs_Mcjo Messages postés 403 Date d'inscription dimanche 12 août 2001 Statut Membre Dernière intervention 3 septembre 2012 2
18 févr. 2002 à 11:45
essaie ca
for i = 0 to 10
"SELECT Genre from Annonces where Genre = '" & arGenre(iIndex) & "'"
...
0
cs_Mcjo Messages postés 403 Date d'inscription dimanche 12 août 2001 Statut Membre Dernière intervention 3 septembre 2012 2
18 févr. 2002 à 11:48
essaie ca
for i = 0 to 10
"SELECT Genre from Annonces where Genre = '" & arGenre(iIndex) & "'"
...
0
Rejoignez-nous