Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

RECHERCHE BOOLÉENNE


Information sur la source

Catégorie :Base de données Classé sous : recherche, booléenne, boolean, sql Niveau : Débutant Date de création : 01/12/2005 Date de mise à jour : 02/12/2005 10:34:31 Vu : 11 517

Note :
5 / 10 - par 1 personne
5,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10

Commentaire sur cette source (0)
Ajouter un commentaire et/ou une note

Description

Générateur de requettes SQL sur un champ d'une base de données (facilement modifiable pour faire la recherche sur plusieurs champs) à partir de l'envoi d'un formulaire par exemple.
 

Source

  • <%
  • Function Recherche(ByVal Req, ByVal nextDefault)
  • If (UCase(nextDefault) <> "AND" And UCase(nextDefault) <> "XOR") Then nextDefault = "OR"
  • 'Declaration des diférentes variables
  • Dim compReq
  • Dim Recherche0
  • Dim Recherche1
  • Dim nextField
  • Dim start
  • 'Supprime les espaces en début et fin de recherche, ainsi que les espaces multiples de la recherche
  • Req = Trim(Req)
  • Do While Len(compReq) <> Len(Req)
  • compReq = Req
  • Req = Replace(Req, " ", " ")
  • Loop
  • Recherche0 = "SELECT * FROM MaTable"
  • Recherche1 = " WHERE ("
  • 'Si la recherche n'est pas vide
  • If ((Req <> "") And (Req <> " ")) Then
  • Dim tblReq
  • 'on découpe les termes de la recherche
  • tblReq = Split(req, " ")
  • nbTermes = UBound(tblReq)
  • nextField = nextDefault
  • start = 1
  • 'traitement du premier mot (qui ne doit être ni AND ni OR ni XOR)
  • If (UCase(tblReq(0) <> "AND") And (UCase(tblReq(0)) <> "OR") And (UCase(tblReq(0)) <> "XOR")) Then
  • 'Si le premier mot est "NOT" alors le 2ème ne doit pas apparaitre
  • If (UCase(tblReq(0)) = "NOT" And (nbTermes > 0)) Then
  • Recherche1 = Recherche1 & "champ Not Like '%" & tblReq(1) & "%' "
  • start = 2
  • 'Sinon le permier mot doit apparaitre (sauf si la recherche est "NOT", dans ce cas il n'y a pas de critère de recherche)
  • ElseIf UCase(tblReq(0)) <> "NOT" Then
  • Recherche1 = Recherche1 & "champ Like '%" & tblReq(0) & "%' "
  • End If
  • Else
  • If nbTermes > 0 Then
  • Recherche1 = Recherche1 & "champ Like '%" & tblReq(1) & "%' "
  • start = 2
  • End If
  • End If
  • 'On regarde tous les termes trouvés dans la recherche
  • For ii = start To nbTermes
  • 'On regarde s'il y a un mot booléen
  • Select Case UCase(tblReq(ii))
  • Case "AND"
  • nextField = "AND"
  • Case "OR"
  • nextField = "OR"
  • cASE "XOR"
  • nextField = "XOR"
  • 'Le cas "Not" est particulier, car le mot clef ne s'utilise pas de la même facon que "AND" et "OR"
  • '"NOT" ne dois pas être le dernier mot
  • Case "NOT"
  • If ii < nbTermes Then
  • ii = ii + 1
  • Recherche1 = Recherche1 & nextField & " champ Not Like '%" & tblReq(ii) & "%' "
  • End If
  • 'Sinon, on ajoute le mot à la chaine de recherche
  • Case Else
  • Recherche1 = Recherche1 & nextField & " champ '%" & tblReq(ii) & "%' "
  • nextField = nextDefault
  • End Select
  • Next
  • End If
  • If Len(Recherche1) > 8 Then
  • Recherche = Recherche0 & Recherche1 & ")"
  • Else
  • Recherche = Recherche0
  • End If
  • End Function
  • %>
<%

Function Recherche(ByVal Req, ByVal nextDefault)

  If (UCase(nextDefault) <> "AND" And UCase(nextDefault) <> "XOR") Then nextDefault = "OR"

  'Declaration des diférentes variables
  Dim compReq
  Dim Recherche0
  Dim Recherche1
  Dim nextField
  Dim start

  'Supprime les espaces en début et fin de recherche, ainsi que les espaces multiples de la recherche
  
  Req = Trim(Req)

  Do While Len(compReq) <> Len(Req)
    compReq = Req
    Req = Replace(Req, "  ", " ")
  Loop

  Recherche0 = "SELECT * FROM MaTable"
  Recherche1 = " WHERE ("
  
  'Si la recherche n'est pas vide
  If ((Req <> "") And (Req <> " ")) Then

    Dim tblReq

    'on découpe les termes de la recherche
    tblReq = Split(req, " ")
    nbTermes = UBound(tblReq)

    nextField = nextDefault

    start = 1

    'traitement du premier mot (qui ne doit être ni AND ni OR ni XOR)
    If (UCase(tblReq(0) <> "AND") And (UCase(tblReq(0)) <> "OR") And (UCase(tblReq(0)) <> "XOR")) Then
      
      'Si le premier mot est "NOT" alors le 2ème ne doit pas apparaitre
      If (UCase(tblReq(0)) = "NOT" And (nbTermes > 0)) Then
        Recherche1 = Recherche1 & "champ Not Like '%" & tblReq(1) & "%' " 
        start = 2
      'Sinon le permier mot doit apparaitre (sauf si la recherche est "NOT", dans ce cas il n'y a pas de critère de recherche)
      ElseIf UCase(tblReq(0)) <> "NOT" Then
        Recherche1 = Recherche1 & "champ Like '%" & tblReq(0) & "%' "
      End If

    Else
      If nbTermes > 0 Then
        Recherche1 = Recherche1 & "champ Like '%" & tblReq(1) & "%' "
        start = 2
      End If
    End If


    'On regarde tous les termes trouvés dans la recherche
    For ii = start To nbTermes

      'On regarde s'il y a un mot booléen
      Select Case UCase(tblReq(ii))
        Case "AND"
          nextField = "AND"
        Case "OR"
          nextField = "OR"
        cASE "XOR"
          nextField = "XOR"
          'Le cas "Not" est particulier, car le mot clef ne s'utilise pas de la même facon que "AND" et "OR"
          '"NOT" ne dois pas être le dernier mot
        Case "NOT"
          If ii < nbTermes Then
            ii = ii + 1
            Recherche1 = Recherche1 & nextField & " champ Not Like '%" & tblReq(ii) & "%' "
          End If
          'Sinon, on ajoute le mot à la chaine de recherche
        Case Else
          Recherche1 = Recherche1 & nextField & " champ '%" & tblReq(ii) & "%' "
          nextField = nextDefault
      End Select
      
    Next
    
    
  End If

  If Len(Recherche1) > 8 Then
    Recherche = Recherche0 & Recherche1 & ")"
  Else
    Recherche = Recherche0
  End If
  
End Function

%>

Conclusion

Je m'en sert pour faire des recherches parmis plusieurs champs, mais je ne met en ligne que celle pour un champ car chacun fais la recherche comme il l'entends.

Ce code ne fais que séparer les mots clefs de la recherche, et s'il y a un AND un OR ou un NOT, modifie la chaine de retour qui sera une requete SQL du genre "SELECT * FROM MaTable WHERE champ Like '%abc%' OR champ Like '%def%' AND champ Like '%ghi%' OR champ Not Like '%jkl%'" à partir de la recherche suivante : "abc def AND ghi NOT jkl"

Il ne reste ensuite plus qu'à exécuter la requete et traiter ses enregistrements

Prototype de la fontion : Function Recherche (ByVal req As String, ByVal nextDefault As String) As String (avec les précisions de type)

Je n'ai pas réussi à mettre le 2ème argument optionnel, donc il faut lui mettre "AND" si on veut que la séparation par défaut soit un AND à la place d'un OR

Reste à faire : prise en charge des (), des "" et de XOR
 

Historique

01 décembre 2005 15:26:31 :
Ajout d'un commentaire à coté du Replace, on ne voyait pas bien les 2 espaces
02 décembre 2005 08:56:16 :
Ajout des balises <% et %> (j'avais même pas vu que je les avait pas mises, honte à moi ^^)
02 décembre 2005 10:34:32 :
Mise à jour de divers bugs (par exemple si la recherche commence par AND ou OR ou XOR) et ajour de parenthèses autour de la clause WHERE (pour en ajouter d'autres qui ne suivent pas forcément le même shéma)

Commentaires et avis

Aucun commentaire pour le moment.

Ajouter un commentaire

Discussions en rapport avec ce code source dans le forum

Prob de requête SQL [ par micfrip ] Salut à tous !Bon, j'ai un problème assez agaçant...Dans ma page asp, j'ai un formulaire comprenant nottament, un champ de recherche.Si je tape ma req Double requete dans la recherche sql [ par Jackboy ] Je me demande s'il est possible, lors d'une requete sql du genre SELECT * FROM Joueurstats ORDER BY Pts DESC, que l'on puisse faire la requete sur les requete SQL [ par michong ] voila jaimerai faire une requete afin de faire une recherche dans une base de données. Voici la requete :SQL = "SELECT * FROM Identifiant"SQL = SQL & SQL Server et requete avec une date [ par ludo82 ] Bonjour,Je suis entrain de développer un agenda d'événement avec un moteur de recherche ou l'on eu faire un recherche en spécifiant une date.Le problè recherche mot clé [ par nick774 ] Salut, Soit: lechamp1 et lechamp2 les &#233;l&#233;ments du formulaire (page1.asp) champ1 et champ2 les champs de ma table (page2.asp) dans ma page Recherche phonétique dans table sql express [ par equinoxe83 ] Bonjour à tous,Je cherche à intérroger une base de données sur un nom d'usager dont la représentation phonétique avoisinerait celle du nom saisi par l Requete SQL avec recherche sur la date [ par Fidoudou ] Bonsoir &#224; tous,J'ai une base de donn&#233;es avec une table comportant des informations sur des utilisateurs.Ces informations sont, nom, pr&#233; requete de recherche par mot cles sur sql en vbscript [ par pull ] bonjour, j'ai creer ma base sql 2000 avec mes champs de donnees, ensuite avec dreamw j'ai cree ma page de visualisation sous forme de tableau, jusque Requete SQL a perdre ses cheveux [ par ktastrof ] J'ai besoin d'aiiiiiiiiiiiide svp.J'ai une base de donn&#233;es access avec des champs au format texte dans lequelles j'&#233;cris des dates via : day ASP.Net & SQL Entreprise Manager [ par cboulas ] Salut Forum,Petite question qui n'a pas vraiment &#224; voir avec la prog ASP, mais qui en a son interet.J'ai une base SQL sur un serveur distant auqu


Nos sponsors

Sondage...

CalendriCode

Juillet 2009
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
2728293031  

Consulter la suite du CalendriCode

Comparez les prix Nouvelle version


HTC Magic

Entre 429€ et 429€


Photothèque Nouveau !



Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,437 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.