Recherche alternative dans un champ récupéré via une requete sql

**sliwaliwa** · 05/12/2013, 11h13

Bonjour,
Je me pose une question.
J'ai une table OBJET avec un ID, TYPE, DATE.
je souhaite récupérer ,dans une requête sql , la valeur dans le champs 'TYPE' qui est de type chaine de caractère tout en effectuant une recherche alternative sur cette chaine.

Merci pour vos réponses

**Tofalu** · 05/12/2013, 11h44

Bonjour,

Je n'ai pas compris votre demande et plus particulièrement la recherche alternative. Un exemple ?

**sliwaliwa** · 05/12/2013, 12h00

Je présente un exemple :
si la valeur dans le champs 'TYPE' vaut 'aabcabb' alors la requête me récupère la valeur : a b a b

**Gado2600** · 05/12/2013, 12h03

On ne peut pas suggérer des solutions sans un minimum d'informations.

Vous demandez une "recherche alternative" qui retourne un résultat qui, pour ceux qui ne connaissent pas l'objectif du projet que vous menez, ne veulent absolument rien dire.

Il faudrait que l'on puisse savoir pourquoi vous partez d'une source pour arriver à un objectif.

**sliwaliwa** · 05/12/2013, 12h30

je m'explique

la recherche alternative ici veut dire que si on veut afficher les caractères a et b alors on doit respecter l'occurence de a et b dans la chaine , c'est à dire lors du parcours de la chaine si je trouve le caractère 'a' je l'affiche et si je rencontre de nouveau le 'a' je l'affiche pas tant que j'ai pas encore rencontré mon 'b', donc je poursuis l'affichage de 'a' et 'b' à la base de cette règle jusqu'à ne plus trouver le 'a' suivant ou le 'b' suivant

**Gado2600** · 05/12/2013, 12h38

Et qu'advient donc le 'c' dans 'aabcabb' ?

**sliwaliwa** · 05/12/2013, 12h48

mon but c'est n'afficher que les caractères 'a' et 'b' d'une façon alternative et passe si je trouve un 'c' ou tout autre caractère différent de 'a' et 'b'

**Tofalu** · 05/12/2013, 12h56

Impossible en SQL sans recourir au VBA

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
Function RechercheAlternative(ChaineSource, ParamArray ChaineAChercher()) As String
Dim i As Integer
Dim j As Integer
Dim c As String
If IsNull(ChaineSource) Then Exit Function
'Parcours le texte
For i = 1 To Len(ChaineSource)
    If j > UBound(ChaineAChercher) Then j = 0
        c = Mid(ChaineSource, i, 1)
        If c = ChaineAChercher(j) Then
            RechercheAlternative = RechercheAlternative & c
            j = j + 1
        End If
Next i
End Function

**Gado2600** · 05/12/2013, 13h00

Ok !
C'est plus compréhensible

En SQL, je ne sais pas si c'est faisable.
En VBA, par contre, oui.

J'ai déjà fait un truc du genre.
Tu récupère la taille de ta chaîne.

Tu boucles de 1 à len(chaine de caractère)
Tu récupère le Right(Left(chaine de caractère, i),1)
Cela te permet de récupérer un caractère à tester et tu le compare avec le dernier caractère que tu as préalablement stocké dans une nouvelle chaine.

un lien pour t'aider :
http://silkyroad.developpez.com/VBA/...nesCaracteres/
Voilà.

Bon courage