- '*************Création de la requette SQL de recherche***********************
- set conn=server.createobject("adodb.connection")
- conn.open "--nom du dns--"
-
- dim table
- dim mot_cle
- dim requette
- dim listecle
-
- '****Nom de la table et des champs de recherche********
- table="produits"
-
- dim champ(5)
- champ(0)="champ1"
- champ(1)="champ2"
- champ(2)="champ3"
- champ(3)="champ4"
- champ(4)="champ5"
-
-
- '****Mot cle****
- mot_cle="paris marseille nancy rouen montpellier"
-
- '****Type de recherche***
- 'config=1 tous les motes clés
- 'config=2 ou moins un des mots clés
- config=1
-
-
- requette="select * from "&table&" where "
-
- if mot_cle<>"" then
-
- listecle = Split(replace(mot_cle,"'","''")," ",-1, 1)
-
- i=0
- while i<=UBound(listecle)
- if config=1 then
- if i>0 then requette=requette&" and " end if
- else
- if i>0 then requette=requette&" or " end if
- end if
- i2=0
- while i2<UBound(champ)
- if i2=0 then
- requette=requette&"("
- else
- requette=requette&" or "
- end if
- requette=requette&champ(i2)&" like '%"&listecle(i)&"%'"
- if i2=(UBound(champ)-1) then requette=requette&")" end if
- i2=i2+1
- wend
- i=i+1
- wend
-
- end if
-
- set resultat=conn.execute(requette)
- '*************Création de la requette SQL de recherche***********************
-
-
-
- l'exemple ci-dessus renvoi cette requette SQL
-
- select * from produits where (champ1 like '%paris%' or champ2 like '%paris%' or champ3 like '%paris%' or champ4 like '%paris%' or champ5 like '%paris%') and (champ1 like '%marseille%' or champ2 like '%marseille%' or champ3 like '%marseille%' or champ4 like '%marseille%' or champ5 like '%marseille%') and (champ1 like '%nancy%' or champ2 like '%nancy%' or champ3 like '%nancy%' or champ4 like '%nancy%' or champ5 like '%nancy%') and (champ1 like '%rouen%' or champ2 like '%rouen%' or champ3 like '%rouen%' or champ4 like '%rouen%' or champ5 like '%rouen%') and (champ1 like '%montpellier%' or champ2 like '%montpellier%' or champ3 like '%montpellier%' or champ4 like '%montpellier%' or champ5 like '%montpellier%')
'*************Création de la requette SQL de recherche***********************
set conn=server.createobject("adodb.connection")
conn.open "--nom du dns--"
dim table
dim mot_cle
dim requette
dim listecle
'****Nom de la table et des champs de recherche********
table="produits"
dim champ(5)
champ(0)="champ1"
champ(1)="champ2"
champ(2)="champ3"
champ(3)="champ4"
champ(4)="champ5"
'****Mot cle****
mot_cle="paris marseille nancy rouen montpellier"
'****Type de recherche***
'config=1 tous les motes clés
'config=2 ou moins un des mots clés
config=1
requette="select * from "&table&" where "
if mot_cle<>"" then
listecle = Split(replace(mot_cle,"'","''")," ",-1, 1)
i=0
while i<=UBound(listecle)
if config=1 then
if i>0 then requette=requette&" and " end if
else
if i>0 then requette=requette&" or " end if
end if
i2=0
while i2<UBound(champ)
if i2=0 then
requette=requette&"("
else
requette=requette&" or "
end if
requette=requette&champ(i2)&" like '%"&listecle(i)&"%'"
if i2=(UBound(champ)-1) then requette=requette&")" end if
i2=i2+1
wend
i=i+1
wend
end if
set resultat=conn.execute(requette)
'*************Création de la requette SQL de recherche***********************
l'exemple ci-dessus renvoi cette requette SQL
select * from produits where (champ1 like '%paris%' or champ2 like '%paris%' or champ3 like '%paris%' or champ4 like '%paris%' or champ5 like '%paris%') and (champ1 like '%marseille%' or champ2 like '%marseille%' or champ3 like '%marseille%' or champ4 like '%marseille%' or champ5 like '%marseille%') and (champ1 like '%nancy%' or champ2 like '%nancy%' or champ3 like '%nancy%' or champ4 like '%nancy%' or champ5 like '%nancy%') and (champ1 like '%rouen%' or champ2 like '%rouen%' or champ3 like '%rouen%' or champ4 like '%rouen%' or champ5 like '%rouen%') and (champ1 like '%montpellier%' or champ2 like '%montpellier%' or champ3 like '%montpellier%' or champ4 like '%montpellier%' or champ5 like '%montpellier%')