| Liste.asp |
Explications |
<%
msg = 0
CHERC = Left(UCase(Request("CHERCHER")),5)
If CHERC = "CHERC" Then
recherche = Request.Form("Recherche")
Msg = 1
End If
%> |
Ok ? :)
on initialise la variable msg à 0
on récupére les 5 premières lettres de la valeur du bouton CHERCHER
Si le bouton CHERCHER est sélectionné
On nomme recherche la valeur choisi du menu déroulant
On met la valeur de msg à 1
Fin de la boucle
|
<html>
<head>
<title>Recherche</title>
</head>
<body> |
En tête HTML |
<form method="POST" action="Recherche.asp">
<div align="center"><center><p>Vous désirez avoir
une recherche sur <input type="text" name="Recherche"
size="20" value="Barde"></p>
</center></div><div align="center"><center><p><input type="submit" value="CHERCHER"
name="CHERCHER"></p>
</center></div>
</form> |
Le Formulaire avec rencoi sur cette même
page
|
<% If msg = 1 then
Set OBJdbConnection = Server.CreateObject("ADODB.Connection")
OBJdbConnection.Open "test"
SQLQuery = "SELECT * FROM Annuaire where Nom Like '" & Recherche &
"'"
Set RS = OBJdbConnection.Execute(SQLQuery)%> <%If rs.eof Then%>
<p align="center">Aucun enregistrement
trouvé </p>
<%Else%>
<p>Voici les renseignements complémentaires concernant
votre recherche sur <%=recherche%>:
</p>
<p>Nom : <%=rs("Nom")%> <br>
Prénom : <%=rs("Prenom")%><br>
Société : <%=rs("Societe")%> </p>
<%Rs.Close
End If
End If%> |
Si l'utilisateur à cliqué sur
CHERCHER la valeur msg est passé à 1 donc on exécute ce morceau de code
On déclare la base de données
On fait un filtre sur le nom de la colonne Nom avec la varaible recherche Si il n'y a pas d'enregistrement
alors on le dit :)
Sinon on spécifie les valeurs des champs restant.
On ferme la base
|
</body>
</html> |
Fin de page |
- Sur cette page il faut que la varaible écrite dans le champs du
questionnaire soit égale à la valeur du champs.
Pour faire une recherche sur le début on écrit : ... Like '" & Recherche &
"%'"
Pour faire une recherche sur la Fin on écrit : ... Like '"&"%" &
Recherche & "'"
Pour faire une recherche sur des caractère quelconque on écrit : ... Like '" &
"%" & Recherche & "%'"
- Pour faire une recherche sur deux champs on écrit :
SQLQuery = "SELECT * FROM Annuaire where Nom Like '" & Recherche &
"'"
SQLQuery = SQLQuery & "OR Nom Like '" & Recherche & "'"
Notez le OR pour faire un champs ou l'autre
|
Télécharger
la page de code
Téléchargez la base
(attention à la déclaration) |