RECHERCHE BOOLÉENNE

---

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

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.

<%

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

%>

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

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)

• ZONE MEMBRE EN ASP "E-MEMBRES1.0"
• ADMINISTRATION BASE DE DONNÉES ORACLE
• UTILISATION D'UN DATASET
• INSERTION / RECUPERATION D'IMAGE STOCKEE DANS UNE DB MS SQL SERVER 2000
• BASE DE DONNEE DES CODES POSTAUX

• IMPORTER UN FICHIER EXCEL DEPUIS UN POSTE ET L'AJOUTER SUR LA BD DU SERVEUR
• INSERER UNE PHOTO DANS UN CHAMP BLOB (IMAGE) DANS TABLE SQL ET LECTURE DANS UN GRIDVIEW
• CLASSE DE GESTION SQL POUR MS ACCESS
• DATAGRID AVEC RECHERCHE ALPHABÉTIQUE
• CONNAÎTRE LES MOTS CLÉS UTILISÉS SUR GOOGLE POUR TOMBER SUR VOTRE SITE