Discussion :

[Elyric]

Bonjour,

Je suis en train de faire un moteur de recherche sur une base access.
Celui çi marche bien si j'entre qu'un seul mot ou une suite de mot qui se suit dans un résultat mais je ne peux pas faire de recherches sur deux mots séparés.

Bref apres avoir cherché plusieurs solutions différentes je n'ai pas réussi à les appliquer à mon code. Malgres le loop on dirait qu'il ne cherche pas tout.(j'espère que je m'explique bien, je débute).



Pouvez vous m'aider ?

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
 
<%mot=Request.querystring("mot")%>
 
<%
' nettoyage de la chaine de caractères.
 
mot = Replace(mot, "'"," ")
mot = Replace(mot,"<","&lt")
mot = Replace(mot,">","&gt")
mot = Replace(mot,"?","")
mot = Replace(mot,"*","")
mot = Replace(mot,"|","")
mot = Replace(mot,":","")
mot = Replace(mot,"/","")
mot = Replace(mot,"\","")
mot = Replace(mot,"%","")
mot = Replace(mot,"@","")
mot = Replace(mot,"(","")
mot = Replace(mot,")","")
mot = Replace(mot,"[","")
mot = Replace(mot,"]","")
mot = Replace(mot,"&","")
%>
 
 
<%
'redirection vers la page principale si recherche vide
if mot="" or mot=" " then%>
<%Response.Redirect "index.asp?nomapp=faq"%>
 
<%else%>
<%
'Conexion à la base de données
DSN_BASE = "DBQ=" & Server.Mappath("db/mabase.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};DriverId=25"
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open DSN_BASE
%>
 
 
<%
'découpage de la chaine de caractères
			mots = Split(mot," ",1)
 
%>
<%
'requête SQL
			SQL = "SELECT * FROM questions where titre like '%"&mot&"%' or appli like '%"&mot&"%' or ref like '%"&mot&"%' or motscles like '%"&mot&"%' or desc like '%"&mot&"%' order by titre"
				Set rs = Server.CreateObject("ADODB.Recordset")
				rs.Open SQL, conn
 
			if rs.eof=true then
%>
 
  <%rs.MoveFirst
  do while Not rs.eof%>
 
 
ensuite l'affichage ... puis
 
<%
rs.MoveNext
loop%>
 
<%end if%>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing %>
 
 
<%end if%>

Merci pour votre aide.

Elyric[code]

[Elyric]

Petite précision, j'ai cru comprendre que l'on pouvait utiliser la fonction ubound pour pour passer les données et ainsi afficher tout tes résultats mais je n'ai pas réussi à l'utiliser dans mon cas ..

une idée ?

Merci

[Elyric]

Bon j'ai trouvé l'exemple qui me sauve, le voila si cela peut aider quelqu'un.

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
 
for i=0 to UBound(mots) 
 
				if condition=0 then 
				SQL = SQL & "AND (keywords like '% "&mots(i)&",%' "
				condition=condition+1
				else 
				whereUsed=true
				SQL = SQL & "OR keywords like '% "&mots(i)&",%' "
				end if 
 
			next 
 
SQL = SQL & ")"
 
				Set rs = Server.CreateObject("ADODB.Recordset")
				rs.Open SQL, conn
 
			if rs.eof=true then
			%>

Merci quand même.