Boucle VBA pour lire des éléments d'une chaine de caractères SQL

Version imprimable

Bonjour à tous,

J'ai 2 TextBoxs, la première qui reçoit une chaine de caractère brute, et la deuxième qui affiche cette même chaîne de caractère mais beaucoup plus agréable et lisible, après un clic sur un bouton.
Cette chaine de caractère est en fait un code SQL qui provient de MS-ACCESS.

Je cherche à créer une boucle en VBA qui va lire par exemple tout ce qui se situe entre SELECT et FROM dans la TextBox1 et qui va me l'afficher avec des retours chariots après chaque élément dans la TextBox 2.
La boucle doit détecter le mot-clé SELECT et s'effectuer tant que le mot-clé "FROM" n'a pas été rencontré. Dès lors que le mot est rencontré, la boucle s'arrête et passe à ce qui se situe entre FROM et WHERE, c'est-à-dire "bouclé" jusqu'à la rencontre du mot clé "WHERE" et ainsi de suite, de manière à dérouler la requête et permettre d'améliorer sa lisibilité.

Pour l'instant, j'ai réalisé ceci, mais ce n'est pas une solution optimale car je risque de ne pas traiter le cas de certaines requêtes SQL complexes à déchiffrer.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
Sub Test()
 
' déclaration des variables
Dim aFormerSQLString() As String     ' Récupère la chaine SQL non lisible
Dim astrMotCles(27) As String          ' Variable tableau qui contient les éléments (mots clés, attributs, etc.) de la syntaxe SQL
Dim intCptSQLString As Integer         ' Entier compteur
Dim strNewSQLString As String         ' Affiche la chaine SQL lisible
 
 ' Mot Clés de la syntaxe SQL
 astrMotCles(1) = "SELECT"
 astrMotCles(2) = "INTO"
 astrMotCles(3) = "FROM"
 astrMotCles(4) = "WHERE"
 astrMotCles(5) = "GROUP"
 astrMotCles(6) = "HAVING"
 astrMotCles(7) = "ORDER"
 astrMotCles(27) = "INSERT"
 
 ' Attributs placés après l'instruction SELECT
 astrMotCles(8) = "ALL"
 astrMotCles(9) = "DISTINCT"
 astrMotCles(10) = "DISTINCTROW"
 astrMotCles(11) = "TOP"
 astrMotCles(12) = "PERCENT"
 
 ' Attributs de la clause FROM
 astrMotCles(13) = "INNER"
 astrMotCles(14) = "LEFT"
 astrMotCles(15) = "RIGHT"
 
 ' Paramètres de la clause WHERE
 astrMotCles(16) = "AND"
 astrMotCles(17) = "OR"
 astrMotCles(18) = "XOR"
 astrMotCles(19) = "BETWEEN"
 astrMotCles(20) = "IN"
 
 ' Autres mots
 astrMotCles(21) = "AS"
 astrMotCles(22) = "As"
 astrMotCles(23) = "In"
 astrMotCles(24) = "ON"
 astrMotCles(25) = "On"
 astrMotCles(26) = "And"
 
 
    ' Suppression des retours chariots contenus dans la chaine SQL d'origine
    UserForm1.TextBox1.Value = Replace(UserForm1.TextBox1.Value, vbCrLf, " ")
 
    ' Découpe la chaine en fonction des espaces " "
    ' Le résultat de la fonction Split est stocké dans un Tableau appelé aFormerSQLString
    aFormerSQLString = Split(UserForm1.TextBox1.Value, " ")
 
 
' Boucle sur le Tbl pour visualiser le résultat
For intCptSQLString = LBound(aFormerSQLString) To UBound(aFormerSQLString)
 
    ' Conditions sur les éléments de syntaxe du langage SQL
    Select Case aFormerSQLString(intCptSQLString)
 
        Case Is = astrMotCles(1), astrMotCles(2)
            strNewSQLString = strNewSQLString & aFormerSQLString(intCptSQLString) & Chr(13)
 
        Case Is = astrMotCles(8), astrMotCles(9), astrMotCles(10), astrMotCles(11), astrMotCles(12)
            strNewSQLString = strNewSQLString & aFormerSQLString(intCptSQLString) & Chr(13)
 
        Case Is = astrMotCles(27)
            strNewSQLString = strNewSQLString & aFormerSQLString(intCptSQLString) & " " & aFormerSQLString(intCptSQLString + 1) & Chr(13)
            intCptSQLString = intCptSQLString + 1
 
        Case Is = astrMotCles(3), astrMotCles(4), astrMotCles(6)
            strNewSQLString = strNewSQLString & aFormerSQLString(intCptSQLString) & Chr(13)
 
        Case Is = astrMotCles(5), astrMotCles(7), astrMotCles(13), astrMotCles(14), astrMotCles(15)
            strNewSQLString = strNewSQLString & aFormerSQLString(intCptSQLString) & " " & aFormerSQLString(intCptSQLString + 1) & Chr(13)
            intCptSQLString = intCptSQLString + 1
 
        Case Is = astrMotCles(16), astrMotCles(17), astrMotCles(18), astrMotCles(26)
           strNewSQLString = strNewSQLString & aFormerSQLString(intCptSQLString) & " "
 
        Case Is = astrMotCles(19), astrMotCles(20)
           strNewSQLString = strNewSQLString & aFormerSQLString(intCptSQLString) & " "
 
        Case Is = astrMotCles(21), astrMotCles(22), astrMotCles(23), astrMotCles(24), astrMotCles(25)
            strNewSQLString = strNewSQLString & aFormerSQLString(intCptSQLString) & " "
 
        Case Is = "="
           strNewSQLString = strNewSQLString & aFormerSQLString(intCptSQLString) & " "
 
        Case Else
            strNewSQLString = strNewSQLString & StrConv(aFormerSQLString(intCptSQLString), vbLowerCase) & Chr(13)
 
    End Select
 
Next intCptSQLString
 
' Espace après chaque parenthèse pour améliorer la lisibilité de la chaine SQL
strNewSQLString = Replace(strNewSQLString, "(", " " + "(" + " ")
strNewSQLString = Replace(strNewSQLString, ")", " " + ")")
 
 
UserForm1.TextBox2.Value = strNewSQLString
 
End Sub

J'ai tenté avec des Boucles While, mais le résultat n'était pas très concluant...

Si vous pouviez m'aider, ça serait super !!
Je vous remercie d'avance :)

10/07/2015, 15h27
Kimy_Ire

Bonjour Sosthy10,

Utilise la fonction Split sur le caractère " " (espace) entre les chaines caractères "SELECT" et "WHERE". Idem entre "WHERE" et ce que tu souhaites... (et ainsi de suite).
Si tu trouves dans le tableau de sortie les éléments que tu as énuméré dans ton tableau d'entré, ne les prends pas en compte.
Les autres, te permettront d'avoir les valeurs que tu souhaites, il me semble.

Voila ce que je ferais ! :ccool:

Cordialement,
Kimy
10/07/2015, 17h37
Invité

Ou A Bonjour,
Moi perso j'utiliserais un multipages avec comme. Onglets le type de requête (sélection,ajou,mise a jours,delete)

Pour la sélection, un liste des champs avec 2 bouton ajouter /mise a jour de la liste, supprime de la liste (*,X) et un texbox.

Si je click sur la liste je donne au texbox la valeur de la lise et au tag le listeindex.

La même chose pour la close where champ ,where valeur et where opérateur.

A la mise a jour des liste gu peux mettre a jour un label.cation avec ta requête au format SQL!

Tu peux même imaginer que la liste where est alimenté par un combox qui reprends les champs de ta liste, une combobex opérateur (=,<,>,<>),un texteboxe valeur 3 comme case a cocher (texte,numérique,date et un combobox ("","End","Or")

A arrivé il ne te reste plus qu'à balayer tes listes pour écrire ta requête.

Attention je n'ai pas parlé du groupe by et order by, etc...
10/07/2015, 19h13
Docmarti
Bonjour.

Il faut d'abord commencer par déterminer ce que tu vises comme résultat.

Est-ce ceci
Code:

1 2 3 4 5 6 SELECT field_1 FROM table_1 UNION [ALL] SELECT field_a FROM table_a ;
ou ceci :
Code:

1 2 3 4 5 6 7 8 9 10 11 SELECT field_1 FROM table_1 union [all] SELECT field_a FROM table_a ;
10/07/2015, 19h18
patricktoulon

heu
Bonjour
il y a la fonction split sur une chaine de caractères mais si tu doit faire une série il se peut que le count soit différent ce qui peut engendrer des bugs
je te conseil une astuce toute simple
dans un array tu met tout des reperes
et une boucle sur tout les array avec un replace (tontexte,repere(X),repere(x) & vbcrlf )
le resuktat sera que tu aura un saut de ligne a chaque repere de ton array

exemple
Code:

1 2 texte= "roberta select a pris sa reverse bicyclette pour aller chercher ses select course" texte=replace(replace(texte,"select", vbcrlf),"reverse", vbcrlf)
le résultat sera

Citation:

roberta
a pris sa
bicyclette pour aller chercher ses
course
10/07/2015, 19h55
Qwazerty
Salut

2 pistes:
- Ce que tu veux faire s'appelle de parsing, fait quelques recherches ça pourrait te donner des idée je pense.
- Sinon tu as également les expressions régulières qui permettent un travail plus fin que la fonction Split.
Bonne soirée

++
Qwaz
11/07/2015, 08h29
Philippe Tulliez

Bonjour,
Une autre option est l'utilisation de la fonction Instr qui permet de connaître le début de chaque commande, clause de la requête et la fonction Mid pourra ainsi découper les différents éléments de cette requête.
15/07/2015, 11h09
Sosthy10
Citation:
Envoyé par Docmarti

Bonjour.

Il faut d'abord commencer par déterminer ce que tu vises comme résultat.

Est-ce ceci

Code:

1 2 3 4 5 6 SELECT field_1 FROM table_1 UNION [ALL] SELECT field_a FROM table_a ;

ou ceci :

Code:

1 2 3 4 5 6 7 8 9 10 11 SELECT field_1 FROM table_1 union [all] SELECT field_a FROM table_a ;
Bonjour Docmarti,

La forme que je vise est bien la 2ème. (Un saut de ligne après chaque élément, y compris les éléments séparés par une virgule)

Bonjour,
dans mon post précédant, j'étai à coté de la plaque, je vais tenter de me rattraper!

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Sub test()
Sql = SQ & " SLECT Categories.Categories, Fournisseurs.Fournisseurs, Count(Fournisseurs.Fournisseurs) AS CompteDeFournisseurs "
Sql = Sql & "FROM Categories INNER JOIN Fournisseurs ON Categories.id = Fournisseurs.id "
Sql = Sql & "WHERE (((Fournisseurs.Fournisseurs) = 'Fournisseurs')) "
Sql = Sql & "GROUP BY Categories.Categories, Fournisseurs.Fournisseurs "
Sql = Sql & "HAVING (((Count(Fournisseurs.Fournisseurs))>1));"
 
t1 = Array("SELECT ", " INTO ", " FROM ", " WHERE ", " GROUP ", " HAVING ", " ORDER ", " INSERT ", " JOIN ", " ALL ", " DISTINCT ", " DISTINCTROW ", " TOP ", " PERCENT ", " INNER ", " LEFT ", " RIGHT ", " AND ", " OR ", " XOR ", " BETWEEN ", " IN ", " AS ", " As ", " In ", " ON ", " On ", " And")
t2 = Array(Chr(10) & "SELECT ", Chr(10) & " INTO ", Chr(10) & " FROM ", Chr(10) & " WHERE ", Chr(10) & " GROUP ", Chr(10) & " HAVING ", Chr(10) & " ORDER ", Chr(10) & " INSERT ", Chr(10) & " ALL ", Chr(10) & " DISTINCT ", Chr(10) & " DISTINCTROW ", Chr(10) & " TOP ", Chr(10) & " PERCENT ", Chr(10) & " INNER ", Chr(10) & " JOIN ", Chr(10) & " LEFT ", Chr(10) & " RIGHT ", Chr(10) & " AND ", Chr(10) & " OR ", Chr(10) & " XOR ", Chr(10) & " BETWEEN ", Chr(10) & " IN ", Chr(10) & " AS ", Chr(10) & " As ", Chr(10) & " In ", Chr(10) & " ON ", Chr(10) & " On ", Chr(10) & " Andchr(10) & ")
 
For i = 0 To UBound(t1)
Sql = Replace(Sql, t1(i), t2(i))
 
Next
Sql = Replace(Sql, Chr(10) & Chr(10), "")
Debug.Print Sql
End Sub

15/07/2015, 14h17
Sosthy10

Bonjour rdurupt,

Le code fonctionne. Merci.
En revanche, il y a t-il un moyen de faire en sorte que le cela soit applicable à n'importe quelle requête SQL, et ceci sans avoir besoin de stocker "en dur" dans le code la requête, comme vous semblez le faire dans l'exemple ?

Merci

J'ai mis un script Sql juste pour l'exemple, mais oui c'est l'idée!

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Sub test()
t1 = Array("SELECT ", " INTO ", " FROM ", " WHERE ", " GROUP ", " HAVING ", " ORDER ", " INSERT ", " JOIN ", " ALL ", " DISTINCT ", " DISTINCTROW ", " TOP ", " PERCENT ", " INNER ", " LEFT ", " RIGHT ", " AND ", " OR ", " XOR ", " BETWEEN ", " IN ", " AS ", " As ", " In ", " ON ", " On ", " And")
t2 = Array(Chr(10) & "SELECT ", Chr(10) & " INTO ", Chr(10) & " FROM ", Chr(10) & " WHERE ", Chr(10) & " GROUP ", Chr(10) & " HAVING ", Chr(10) & " ORDER ", Chr(10) & " INSERT ", Chr(10) & " ALL ", Chr(10) & " DISTINCT ", Chr(10) & " DISTINCTROW ", Chr(10) & " TOP ", Chr(10) & " PERCENT ", Chr(10) & " INNER ", Chr(10) & " JOIN ", Chr(10) & " LEFT ", Chr(10) & " RIGHT ", Chr(10) & " AND ", Chr(10) & " OR ", Chr(10) & " XOR ", Chr(10) & " BETWEEN ", Chr(10) & " IN ", Chr(10) & " AS ", Chr(10) & " As ", Chr(10) & " In ", Chr(10) & " ON ", Chr(10) & " On ", Chr(10) & " Andchr(10) & ")
 
 
Sql = TextBox1
For i = 0 To UBound(t1)
Sql = Replace(Sql, t1(i), t2(i))
 
Next
Sql = Replace(Sql, Chr(10) & Chr(10), "")
TextBox2=Sql
End Sub

Salut

Je me permet ;)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Function Test(Sql As String) As String
Dim T1
    T1 = Array("SELECT ", " INTO ", " FROM ", " WHERE ", " GROUP ", " HAVING ", " ORDER ", " INSERT ", " JOIN ", " ALL ", " DISTINCT ", " DISTINCTROW ", " TOP ", " PERCENT ", " INNER ", " LEFT ", " RIGHT ", " AND ", " OR ", " XOR ", " BETWEEN ", " IN ", " AS ", " As ", " In ", " ON ", " On ", " And")
 
    For i = 0 To UBound(T1)
        Sql = Replace(Sql, T1(i), Chr(10) & T1(i))
    Next
 
    Sql = Replace(Sql, Chr(10) & Chr(10), "")
    Test = Sql
End Function
 
Sub EssaiTest()
    textbox2.Text = Test(Textbox1.Text)
End Sub

Mais vu le résultat recherché je pense que les méthodes suivantes devraient suffire ? (pas testées)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Function testSql2(Sql As String) As String
Dim StrTmp As String
'On peut aussi utiliser replace à la place des splits, c'était pour changer un peu :)
    'On remplace les espaces
    StrTmp = Join(Split(Sql, " "), Chr(10))
    'On remplace les ,
    testSql2 = Join(Split(Sql, ","), Chr(10))
End Function
 
Function Test(Sql As String) As String
'En gardant l'esprit du code de rdurupt, utile s'il y a beaucoup de caractères à remplacer.
Dim T1
    T1 = Array(" ", ",")
 
    For i = 0 To UBound(T1)
        Sql = Replace(Sql, T1(i), Chr(10))
    Next
 
    Test = Sql
End Function

++
Qwaz

Bonjour,

Merci pour votre aide et pour les pistes de réflexion.

Après avoir testé le Split, ou encore le Replace, j'ai comme l'impression que ce ne sont pas des solutions durables (elles font néanmoins bien leur travail), dans le sens où elles m'obligent, lorsque je teste avec une requête en particulier, à "bidouiller" manuellement le code pour obtenir quelque chose de plus agréable à lire que la requête brute. J'ai peur qu'en les utilisant, l'outil que je cherche à faire ne puisse pas fonctionner correctement quelque soit le type de requête qu'on lui donnera à lire et à mettre en forme.

J'ai regardé du coté des expressions régulières qui paraissent être un bon compromis. Cependant, je bute sur l'écriture d'un motif générique qui me permettrait au moins de traiter les cas classiques.

Pour info, voilà ce vers quoi je veux tendre:
Code:

1 2 3 4 5 6 7 8 9 10 SELECT entree_operations.concours, Sum(entree_operations.ead_post_ccf) AS SommeDeEAD_POST_CCF FROM entree_operations WHERE ( ( ( entree_operations.application ) = 'PRVFRAPOOL' ) AND ( ( entree_operations.entite ) = '3000303000' ) AND ( ( entree_operations.produit ) = 900016 ) AND ( ( entree_operations.interco ) = 0 ) AND ( ( entree_operations.code_filtre ) = 0 OR ( entree_operations.code_filtre ) = 10 ) ) GROUP BY entree_operations.concours
C'est un bon exemple mais c'est loin d'être parfait.

Bonne journée et merci ! :)