Problème de requête

**dl_jarod** · 21/10/2005, 11h47

Bonjour à tous,

J'ai un problème avec la requête suivante. Dans le cadre d'une recherche combinée, je dois trouver les enregistrements qui ont une localisation précise. Sachant que j'ai d'autres critères possibles à prendre en compte, je teste si le critère existe, si d'autres critères ont déjà été traités pour voir si je dois mettre le AND ou pas et si c'est le premier passage pour la même raison. Voilà ma requête :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
premierpassage = 0
if Session("sLocalisation") <> "" then
sSQL2 = "select Papyrus.Pack from Papyrus where Num_localisation = '" & Session("sLocalisation") & "' order by Pack"
Set rsLocalisation = connect.execute (sSQL2)
if not rsLocalisation.EOF then
sPackLoc = rsLocalisation ("Pack")
if Session("sAuteur") <> "" or Session("sLangue") <> "" or Session("sTitre") <> "Tapez le titre ici" or Session("sGenre") <> "" or Session("sSupport") <> "" or Session("sCartonnage") <> "" or  premierpassage <> 0 then
sSQL = sSQL + "AND Pack.Pack = '" & sPackLoc & "' "
else
sSQL = sSQL + "Pack.Pack = '" & sPackLoc & "' "
premierpassage = 1
end if
rsLocalisation.movenext
end if
rsLocalisation.close
end if

Malheureusment avec ce code, il ne m'afffiche que le premier enregistrement. Pourtant cela fonctionne pour les autres critères même s'ils sont plus simples (pas besoin de la requête sSQL2). Voici le code d'un de ces critères qui fonctionne :

Code :

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

1
2
3
4
5
6
7
if Session("sProvenance") <> "" then
if Session("sAuteur") <> "" or Session("sLangue") <> "" or Session("sTitre") <> "Tapez le titre ici" or Session("sGenre") <> "" or Session("sSupport") <> "" or Session("sCartonnage") <> "" then
sSQL = sSQL + "AND Pack.Provenance = '" & Session("sProvenance") & "' "
else
sSQL = sSQL + "Pack.Provenance = '" & Session("sProvenance") & "' "
end if
end if

Quelqu'un a-t-il une idée parce que je mouline là

**Pymm** · 21/10/2005, 11h55

s'il te plait indentes ton code car là c'est limite illisible
as-tu affiché sSQL pour voir ce qu'elle te renvoie ?

**Immobilis** · 21/10/2005, 12h12

Code :

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

1
2
if not rsLocalisation.EOF then 
sPackLoc = rsLocalisation ("Pack")

Peut-il te renvoyer pp enregistrements?

**dl_jarod** · 21/10/2005, 12h15

Désolé pour le code, le voici en mieux

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
premierpassage = 0
if Session("sLocalisation") <> "" then
   sSQL2 = "select Papyrus.Pack from Papyrus where Num_localisation = '" & Session("sLocalisation") & "' order by Pack"
   Set rsLocalisation = connect.execute (sSQL2)
   while not rsLocalisation.EOF
      sPackLoc = rsLocalisation ("Pack")
      if Session("sAuteur") <> "" or Session("sLangue") <> "" or Session("sTitre") <> "Tapez le titre ici" or Session("sGenre") <> "" or Session("sSupport") <> "" or Session("sCartonnage") <> "" or Session("sProvenance") <> "" or  premierpassage <> 0 then
         sSQL = sSQL + "AND Pack.Pack = '" & sPackLoc & "' "
      else
         sSQL = sSQL + "Pack.Pack = '" & sPackLoc & "' "
         premierpassage = 1
      end if
      rsLocalisation.movenext
   whend
   rsLocalisation.close
end if

J'ai changé, je me suis rendu compte que le if ne faisait pas la boucle (oh le con) je l'ai remplacé par un while mais maintenant il se plante quand j'ai breaucoup d'enregistrement et il ne m'affiche pas de résultats quand j'en ai peu, pourtant le response.write de sSQL m'affiche bien ce qu'il faut, c'est à dire :

Code :

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

select Pack.Pack, Pack.Pack_Impression from Pack where Pack.Pack = '0348.080' AND Pack.Pack = '2930.000' order by Pack

Le message d'erreur si trop de résultats :

Microsoft OLE DB Provider for ODBC Drivers (0x80040E21)
Ce pilote ODBC ne prend pas en charge les propriétés demandées.

**dl_jarod** · 21/10/2005, 12h24

Rectification :

Quand il n'y en a qu'un, il me l'affiche, de 2 à x il m'affiche pas de résultats et de x à infini, il se plante...

**dl_jarod** · 21/10/2005, 12h34

Je me suis rendu compte d'une erreur : la première fois qu'il entre dans la boucle, ça doit être and, les fois suivantes, ça doit être OR.

J'ai rectifié ça donne ça pour la boucle :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
while not rsLocalisation.EOF
sPackLoc = rsLocalisation ("Pack")
if Session("sAuteur") <> "" or Session("sLangue") <> "" or Session("sTitre") <> "Tapez le titre ici" or Session("sGenre") <> "" or Session("sSupport") <> "" or Session("sCartonnage") <> "" or Session("sProvenance") <> "" then
	if premierpassage = 0 then
	sSQL = sSQL + "AND Pack.Pack = '" & sPackLoc & "' "
	premierpassage = 1
	else
	sSQL = sSQL + "OR Pack.Pack = '" & sPackLoc & "' "
	end if
else
	if premierpassage = 0 then
	sSQL = sSQL + "Pack.Pack = '" & sPackLoc & "' "
	premierpassage = 1
	else
	sSQL = sSQL + "OR Pack.Pack = '" & sPackLoc & "' "
	end if
end if
rsLocalisation.movenext
wend

Il m'affiche les résultats sauf quand il y en a beaucoup il se plante. Il y a un nombre limite de conditions where dans une requête ?

**Pymm** · 21/10/2005, 12h52

pas que je sache...au max tu peux en avoir combien ?

**Immobilis** · 21/10/2005, 13h51

Que donne le response.write("sSQL") qd tu as "trop" d'enregistrements?

Microsoft OLE DB Provider for ODBC Drivers (0x80040E21)
Ce pilote ODBC ne prend pas en charge les propriétés demandées.

Plutôt que

Code :

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

WHERE Pack.Pack =

tu peux mettre

Code :

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

WHERE Pack.Pack IN ()

avec chacune des valeurs séparée par une virgule. C'est plus léger.

**Pymm** · 21/10/2005, 14h17

pour info j'ai une chaine de requete qui fait plus de 1000 caractères et ça passe donc y a de la marge...

**dl_jarod** · 24/10/2005, 09h06

Merci beaucoup, ça fonctionne avec

Pack.Pack IN ()

Il peut y avoir plus de 2000 résultats ce qui donne des requêtes qui peuvent atteindre des dizaines de milliers de caractères avec ma méthode. Celle d'Immobilis est donc bien meilleure !

Merci encore

**Immobilis** · 24/10/2005, 09h27

Peut-être que pour optimiser tout cela tu devrais déplacer ton IF. En effet, il repose sur des conditions qui ne changent pas dans la boucle. Malgré cela tu l'évalues à chaque tour. Ne pourrais-tu pas faire un truc du style:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
IF Session("sAuteur") <> "" or Session("sLangue") <> "" or Session("sTitre") <> "Tapez le titre ici" or Session("sGenre") <> "" or Session("sSupport") <> "" or Session("sCartonnage") <> "" or Session("sProvenance") <> "" THEN
          WHILE NOT rsLocalisation.EOF
                    if premierpassage = 0 then 
                    sSQL = sSQL + "AND Pack.Pack = '" & sPackLoc & "' " 
                    premierpassage = 1 
                    else 
                    sSQL = sSQL + "OR Pack.Pack = '" & sPackLoc & "' " 
                    end if
                    rslocalisation.movenext
          WEND
ELSE
          WHILE NOT rsLocalisation.EOF
                    if premierpassage = 0 then 
                    sSQL = sSQL + "Pack.Pack = '" & sPackLoc & "' " 
                    premierpassage = 1 
                    else 
                    sSQL = sSQL + "OR Pack.Pack = '" & sPackLoc & "' " 
                    end if 
                    rslocalisation.movenext
          WEND
END IF

Encore mieux, si tu fais un

Code :

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

1
2
3
4
rs.open "SELECT Pack.Pack FROM Pack WHERE TA CONDITION GROUP BY Pack.Pack", strprovider,1,1
maliste = rs.getrow("pack")
rs.close
sSQL = "SELECT (...) IN (" & maliste &")"

Cela te renvoie directement le tableau des valeurs que tu recherches.

A+

Problème de requête

ASP

Discussions similaires

Partager

Partager