Probleme boucle If recherche dans base access

**PITP2** · 07/02/2009, 16h49

Bonjour à tous,
j'ai un petit probleme avec mes boucles if !!!
le code suivant ne recherche pas la valeur dans la base. Si je retire l'une des deux boucles de recherche cela fonctionne .....
quelqu'un aurait un ptite idée de ce qui se passe ?
MErci d'avance pour votre aide

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
<table id="resultab">
 
		<tr class="textebleu">
    <td width="58">frfr  </td>
	<td width="58"> &nbsp;vfdvdf</td>
	<td width="58"> &nbsp;dfvd</td>
	<td width="58"> &nbsp;dfvd</td>
	<td width="58"> &nbsp;df</td>
	<td width="58"> &nbsp;dfv</td>
	<td width="58"> &nbsp;fdv</td>
	<td width="58"> &nbsp;dfv</td>
	<td width="58"> &nbsp;dfvdf</td>
	<td width="58"> &nbsp;cxvx</td>
	<td width="58"> &nbsp;lio</td>
	<td width="58"> &nbsp;bvc</td>
  </tr>
 
		  <%
'Dans la m&ecirc;me page nomm&eacute; mapage.asp &agrave; la suite du formulaire
if request("ok") = "Fef" then
Recordset1__MMColParam = Request("trouvertexte")
 response.write ("essai")  
'Connexion &agrave; la BD :
DSN_BASE = "DBQ=" & Request.ServerVariables("APPL_PHYSICAL_PATH") & "bdd\fef.mdb" & ";Driver={Microsoft Access Driver (*.mdb)};Driverld=25"
 
'Creation du recordset
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open DSN_BASE
Set RS = Server.CreateObject("ADODB.Recordset")
 
'Requete sql
Sql="SELECT * FROM Produits WHERE Marque LIKE '%"& Replace(Recordset1__MMColParam, "'", "''") &"%'"
Rs.open Sql, conn
end if
if request("ok") = "Rubrique" then
Recordset1__MMColParam = Request("rubrique")
 
'Connexion &agrave; la BD :
DSN_BASE = "DBQ=" & Request.ServerVariables("APPL_PHYSICAL_PATH") & "bdd\fef.mdb" & ";Driver={Microsoft Access Driver (*.mdb)};Driverld=25"
 
'Creation du recordset
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open DSN_BASE
Set RS = Server.CreateObject("ADODB.Recordset")
 
'Requete sql
Sql="SELECT * FROM Produits WHERE Catégorie LIKE '%"& Replace(Recordset1__MMColParam, "'", "''") &"%'"
Rs.open Sql, conn	
 
 
 if rs.eof then 
   'si il n'y a pas d'enregistrement r&eacute;pondant &agrave; la requete alors :
   Response.write "Aucun r&eacute;sultat correspondant &agrave; votre recherche"
 else 
 
 
 
 
  'si r&eacute;sultat trouver on affiche tous les r&eacute;sultats, on n'est pas cens&eacute; savoir cb d'enregistrement il existe dans la table
    do while not rs.eof 
   %>
 
 
 
  <tr class="textebleu">
    <td colspan="4"><img src="image/resulbleu256px1px.jpg" width="256" height="1"></td>
    <td colspan="4">&nbsp;</td>
    <td colspan="4"><img src="image/resulrouge256px1px.jpg" width="256" height="1"></td>
    </tr>
  <tr class="textebleu">
    <td width="58"> <% response.write rs(2) &vbcrlf %> &nbsp;</td>
	<td width="58"><% response.write rs(3) &vbcrlf %> &nbsp;</td>
	<td width="58"><% response.write rs(4) &vbcrlf %> &nbsp;</td>
	<td width="58"><% response.write rs(5) &vbcrlf %> &nbsp;</td>
	<td width="58"><% response.write rs(6) &vbcrlf %> &nbsp;</td>
	<td width="58"><% response.write rs(7) &vbcrlf %> &nbsp;</td>
	<td width="58"><% response.write rs(8) &vbcrlf %> &nbsp;</td>
	<td width="58"><% response.write rs(9) &vbcrlf %> &nbsp;</td>
	<td width="58"><% response.write rs(10) &vbcrlf %> &nbsp;</td>
	<td width="58"><% response.write rs(11) &vbcrlf %> &nbsp;</td>
	<td width="58"><% response.write rs(12) &vbcrlf %> &nbsp;</td>
	<td width="58"><% response.write rs(13) &vbcrlf %> &nbsp;</td>
  </tr>
 
 
	 <%
 
   rs.movenext
   loop
 end if
 Set RS = Nothing
 Conn.Close
 Set Conn = Nothing
 
end if
%>
</table>

**roro06** · 07/02/2009, 19h03

Bonjour

Ce qu'il se passe, c'est que dans ton premier test (on ne parle pas de "boucle if", mais de "test", les boucles, c'est pour ... boucler, comme par exemple avec do ... loop), il ne se passe rien :

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
if request("ok") = "Fef" then
        Recordset1__MMColParam = Request("trouvertexte")
         response.write ("essai")  
   'Connexion &agrave; la BD :
   DSN_BASE = "DBQ=" & Request.ServerVariables("APPL_PHYSICAL_PATH") & "bdd\fef.mdb" & ";Driver={Microsoft Access Driver (*.mdb)};Driverld=25"
 
        'Creation du recordset
   Set Conn = Server.CreateObject("ADODB.Connection")
   Conn.Open DSN_BASE
   Set RS = Server.CreateObject("ADODB.Recordset")
 
   'Requete sql
   Sql="SELECT * FROM Produits WHERE Marque LIKE '%"&    Replace(Recordset1__MMColParam, "'", "''") &"%'"
   Rs.open Sql, conn
end if

Ton affichage ne se fait que si la deuxième condition est réalisée.

if request("ok") = "Rubrique" then

Il faut donc que tu revoie les imbrications de tes if

**PITP2** · 07/02/2009, 20h14

En fait j'ai essayé de nombreuses possibilités pour les tests et cela ne fonctionne jamais avec les deux tests ensemble. Si je mets en commentaire l'un des tests l'autre fonctionne mais jamais les deux en même temps !!!!!
Je vais encore chercher ............

**PITP2** · 10/02/2009, 20h03

Voila un nouveau code qui a marché toute la soirée d'hier et aujourd'hui lorsque je relance la page et bien je me retrouve avec l'erreur suivante :
Erreur d'exécution Microsoft VBScript erreur '800a01a8'
Objet requis: 'RS'
/tri8.asp, ligne 126

.... quelqu'un a une idée sur le problème dans mon code ?

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
<%
'Dans la m&ecirc;me page nomm&eacute; mapage.asp &agrave; la suite du formulaire
if request("ok") = "Fef" then
Recordset1__MMColParam = Request("trouvertexte")
 
'Connexion &agrave; la BD :
DSN_BASE = "DBQ=" & Request.ServerVariables("APPL_PHYSICAL_PATH") & "bdd\fef.mdb" & ";Driver={Microsoft Access Driver (*.mdb)};Driverld=25"
 
'Creation du recordset
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open DSN_BASE
Set RS = Server.CreateObject("ADODB.Recordset")
 
'Requete sql
Sql="SELECT * FROM Produits WHERE Marque LIKE '%"& Replace(Recordset1__MMColParam, "'", "''") &"%'"
Rs.open Sql, conn
else 
if request("ok") = "rubrique" then
Recordset1__MMColParam = Request("rubrique")
 
'Connexion &agrave; la BD :
DSN_BASE = "DBQ=" & Request.ServerVariables("APPL_PHYSICAL_PATH") & "bdd\fef.mdb" & ";Driver={Microsoft Access Driver (*.mdb)};Driverld=25"
 
'Creation du recordset
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open DSN_BASE
Set RS = Server.CreateObject("ADODB.Recordset")
 
'Requete sql
Sql="SELECT * FROM Produits WHERE Categorie LIKE '%"& Replace(Recordset1__MMColParam, "'", "''") &"%'"
Rs.open Sql, conn
 
end if
end if
 if rs.eof then 
   'si il n'y a pas d'enregistrement r&eacute;pondant &agrave; la requete alors :
   Response.write "Aucun r&eacute;sultat correspondant &agrave; votre recherche"
 else %>
 
 
 
       <% 
  'si r&eacute;sultat trouver on affiche tous les r&eacute;sultats, on n'est pas cens&eacute; savoir cb d'enregistrement il existe dans la table
    do while not rs.eof 
   %>
 
 
 
  <tr class="textebleu">
    <td colspan="4"><img src="image/resulbleu256px1px.jpg" width="256" height="1"></td>
    <td colspan="4">&nbsp;</td>
    <td colspan="4"><img src="image/resulrouge256px1px.jpg" width="256" height="1"></td>
    </tr>
  <tr class="textebleu">
    <td width="58"> <% response.write rs(2) &vbcrlf %> &nbsp;</td>
	<td width="58"><% response.write rs(3) &vbcrlf %> &nbsp;</td>
	<td width="58"><% response.write rs(4) &vbcrlf %> &nbsp;</td>
	<td width="58"><% response.write rs(5) &vbcrlf %> &nbsp;</td>
	<td width="58"><% response.write rs(6) &vbcrlf %> &nbsp;</td>
	<td width="58"><% response.write rs(7) &vbcrlf %> &nbsp;</td>
	<td width="58"><% response.write rs(8) &vbcrlf %> &nbsp;</td>
	<td width="58"><% response.write rs(9) &vbcrlf %> &nbsp;</td>
	<td width="58"><% response.write rs(10) &vbcrlf %> &nbsp;</td>
	<td width="58"><% response.write rs(11) &vbcrlf %> &nbsp;</td>
	<td width="58"><% response.write rs(12) &vbcrlf %> &nbsp;</td>
	<td width="58"><% response.write rs(13) &vbcrlf %> &nbsp;</td>
  </tr>
 
 
	 <%
 
   rs.movenext
   loop
 end if
 Set RS = Nothing
 Conn.Close
 Set Conn = Nothing
%>

**roro06** · 10/02/2009, 20h33

Bonjour

Forcément !

Si request("ok") n'est ni "fef", ni "rubrique", la première instruction qu'il rencontre (je parie que c'est la ligne 126), c'est :

Code :

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

 if rs.eof then

et paf! rs n'est pas déclaré, car cette instruction est en dehors du if dans lequel il a été créé.

Un petit coup de main ?

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
<%
'Dans la m&ecirc;me page nomm&eacute; mapage.asp &agrave; la suite du formulaire
if request("ok") = "Fef" or request("ok") = "rubrique" then
    'Connexion &agrave; la BD :
    DSN_BASE = "DBQ=" & Request.ServerVariables("APPL_PHYSICAL_PATH") & "bdd\fef.mdb" & ";Driver={Microsoft Access Driver (*.mdb)};Driverld=25"
    Set Conn = Server.CreateObject("ADODB.Connection")
    Conn.Open DSN_BASE
    'Creation du recordset
    Set RS = Server.CreateObject("ADODB.Recordset")
    if request("ok") = "Fef" then
        Recordset1__MMColParam = Request("trouvertexte")
 
        'Requete sql
        Sql="SELECT * FROM Produits WHERE Marque LIKE '%"& Replace(Recordset1__MMColParam, "'", "''") &"%'"
        Rs.open Sql, conn
    else 
        if request("ok") = "rubrique" then
            Recordset1__MMColParam = Request("rubrique")
 
            'Requete sql
            Sql="SELECT * FROM Produits WHERE Categorie LIKE '%"& Replace(Recordset1__MMColParam, "'", "''") &"%'"
            Rs.open Sql, conn
 
        end if
    end if
    if not rs.eof then 
       'si il n'y a pas d'enregistrement r&eacute;pondant &agrave; la requete alors :
     Response.write "Aucun r&eacute;sultat correspondant &agrave; votre recherche"
     while not rs.eof 
   %>
 
 
 
  <tr class="textebleu">
    <td colspan="4"><img src="image/resulbleu256px1px.jpg" width="256" height="1"></td>
    <td colspan="4">&nbsp;</td>
    <td colspan="4"><img src="image/resulrouge256px1px.jpg" width="256" height="1"></td>
    </tr>
  <tr class="textebleu">
    <td width="58"> <% response.write rs(2) &vbcrlf %> &nbsp;</td>
    <td width="58"><% response.write rs(3) &vbcrlf %> &nbsp;</td>
    <td width="58"><% response.write rs(4) &vbcrlf %> &nbsp;</td>
    <td width="58"><% response.write rs(5) &vbcrlf %> &nbsp;</td>
    <td width="58"><% response.write rs(6) &vbcrlf %> &nbsp;</td>
    <td width="58"><% response.write rs(7) &vbcrlf %> &nbsp;</td>
    <td width="58"><% response.write rs(8) &vbcrlf %> &nbsp;</td>
    <td width="58"><% response.write rs(9) &vbcrlf %> &nbsp;</td>
    <td width="58"><% response.write rs(10) &vbcrlf %> &nbsp;</td>
    <td width="58"><% response.write rs(11) &vbcrlf %> &nbsp;</td>
    <td width="58"><% response.write rs(12) &vbcrlf %> &nbsp;</td>
    <td width="58"><% response.write rs(13) &vbcrlf %> &nbsp;</td>
  </tr>
 
 
     <%
 
   rs.movenext
   wend
    else    
    Response.write "Aucun r&eacute;sultat correspondant &agrave; votre recherche"
 Set RS = Nothing
 Conn.Close
 Set Conn = Nothing
 
end if

**PITP2** · 10/02/2009, 20h55

Bon et bien je déclare officiellement roro06 le

et surtout un grand merci pour votre aide
AFFAIRE CLASSEE ça marche impec

Probleme boucle If recherche dans base access

ASP

Discussions similaires

Partager

Partager