begin process at 2012 02 05 02:06:06
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

Base de données

 > RECHERCHE BOOLÉENNE

RECHERCHE BOOLÉENNE


 Information sur la source

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

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
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 :13 530

Auteur : themioux

Ecrire un message privé
Site perso
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)

 Sources de la même categorie

Source avec Zip GESTION_ENSEIGNANTS par Elmarzougui
Source avec Zip ZONE MEMBRE EN ASP "E-MEMBRES1.0" par cmaelc
Source avec Zip Source avec une capture Source .NET (Dotnet) ADMINISTRATION BASE DE DONNÉES ORACLE par chbayah
Source avec Zip Source avec une capture Source .NET (Dotnet) UTILISATION D'UN DATASET par ManuAntibes
Source avec Zip Source .NET (Dotnet) INSERTION / RECUPERATION D'IMAGE STOCKEE DANS UNE DB MS SQL ... par jimmy69

 Sources en rapport avec celle ci

Source avec Zip UN MODULE POUR APPRENDRE SQL par Elmarzougui
Source .NET (Dotnet) IMPORTER UN FICHIER EXCEL DEPUIS UN POSTE ET L'AJOUTER SUR L... par jseblavoie
Source avec Zip Source .NET (Dotnet) INSERER UNE PHOTO DANS UN CHAMP BLOB (IMAGE) DANS TABLE SQL ... par Myke
Source avec Zip Source .NET (Dotnet) CLASSE DE GESTION SQL POUR MS ACCESS par bizzard4
Source avec Zip Source .NET (Dotnet) DATAGRID AVEC RECHERCHE ALPHABÉTIQUE par gatita_dev

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

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

 
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

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 1,903 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales