Récupérer le code SQL à partir d'une requête

Version imprimable

22/11/2004, 16h13
Edith_T

Récupérer le code SQL à partir d'une requête

Bonjour,

Je cherche récupérer le code SQL d'une requête construite sous ACCESS contenant d'autres requêtes ACCESS. C'est à dire que je souhaite avoir dans ma requête SQL que le nom des différentes tables utilisées et non pas les noms de requêtes intermédiaires.

N'ayant pas trouvé de solutions, je fais appel à votre expérience.
Merci beaucoup.

Edith
22/11/2004, 16h17
stecos

Re

Peux tu essayer d'être plus clair avec des exemples notamment.
Merci
22/11/2004, 16h28
DonFelipe

Slt,
As tu essayé de basculer en mode SQL ?
Cela revient à faire un clic droit sur le haut de ta fenêtre "requête ouverte en mode créa" et à choisir "Basculer en mode SQL"...
...si c'est bien ce que tu voulais.... :koi:

Citation:

Envoyé par DonFelipe

Slt,
As tu essayé de basculer en mode SQL ?
Cela revient à faire un clic droit sur le haut de ta fenêtre "requête ouverte en mode créa" et à choisir "Basculer en mode SQL"...
...si c'est bien ce que tu voulais.... :koi:

Et bien non.... :( cela ne fonctionne pas.

Pour donner un exemple. Si j'ai la requête suivante où TBL_USER est une table et Q_CONNEXION est une requête
Code:

1 2 3 4 SELECT TBL_USER.VCH_NOM, TBL_USER.VCH_PRENOM, Q_CONNEXION.DTE_DEBUT_CONNEXION, Q_CONNEXION.DTE_FIN_CONNEXION FROM TBL_USER INNER JOIN Q_CONNEXION ON TBL_USER.PK_NUM_USER = Q_CONNEXION.FK_NUM_USER;
En cliquant sur SQL j'aurais le code que je viens d'écrire au dessus. Or, je souhaite avoir la même requête MAIS sans voir aparaitre Q_CONNEXION mais à la place les tables qui composent cette requête.

Savez-vous comment faire?
J'ai essayé d'activer la trace ODBC et d'appeller la requête à partir d'un programme externe. Mais la requête apparait comme au dessus dans la trace. Je ne connais pas d'autre solutions :-(

Merci d'avance

22/11/2004, 18h08
cafeine

il faut "Parser" le SQL de la requete ... on peut imaginer (vite fait)
1- Repérer le début de l'instruction FROM
2- Repérer la fin : apparition d'une autre instruction {WHERE, ORDER, HAVING, GROUP, ";" }
3- Récupérer la chaine
4- Pour chaque mot de la chaine, voir s'il s'agit d'une requete / table et si oui afficher le SQL
23/11/2004, 00h33
tee_grandbois

Edith_T
Ce que tu demandes n'est pas possible sous Access pour afficher les tables utilisées dans une sous-requète, il faut l'ouvrir en mode création/design. Sinon, tu peux reconstruire entièrement ta requète avec toutes les tables d'origine sans utiliser ta sous-requète Q_CONNEXION. Mais je suppose qu'il y a une bonne raison pour laquelle a été créée cette sous-requête :?: [/b]
23/11/2004, 09h56
Edith_T

Finalement j'ai trouvé une solution

J'ai copier/coller le texte de ma requête en lui donnant un nouveau nom et à partir de cette nouvelle "table" j'ai construit graphiquement ma requête.
J'avais déja essayé ça mais sans partir de ma requête reconstituée et du coup ça ne marchait pas.

Par contre, cafeine, je n'ai pas trouvé par quel biais tu peux parser le SQL. Je suis preuneuse d'une petite explication à l'occasion.....

Quoiqu'il en soit, merci BEAUCOUP.
Je suis soulagée que ça marche enfin (enfin.... j'en ai l'impression ;))

bon c'est premier jet (code qui marche à partir de Access 2000)

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
Function ParseSQL(ByVal qryName As String)
 
Dim i As Integer
Dim sTemp() As String
Dim sSQL As String
 
sTemp = Split(CurrentDb.QueryDefs(qryName).SQL, "FROM ")
sSQL = sTemp(1)
sTemp = Split(sSQL, "WHERE ")
sSQL = sTemp(0)
sTemp = Split(sSQL, "ORDER ")
sSQL = sTemp(0)
sTemp = Split(sSQL, "HAVING ")
sSQL = sTemp(0)
sTemp = Split(sSQL, "GROUP ")
sSQL = sTemp(0)
 
 
Debug.Print "Clause FROM : " & sSQL
 
sTemp = Split(sSQL, " ")
 
For i = 0 To UBound(sTemp)
    Select Case Left(EstTableRequete(sTemp(i)), 1)
        Case "T"
            Debug.Print "  ==> Table : " & sTemp(i)
        Case "S"
            Debug.Print "  ==> Requête : " & sTemp(i)
            Debug.Print "      ==> " & EstTableRequete(sTemp(i))
 
    End Select
Next i
 
End Function
 
 
Function EstTableRequete(ByVal str As String) As String
EstTableRequete = ""
Dim tbl As TableDef
Dim qry As QueryDef
 
For Each tbl In CurrentDb.TableDefs
    If tbl.Name = str Then
        EstTableRequete = "Table"
    End If
Next tbl
 
For Each qry In CurrentDb.QueryDefs
    If qry.Name = str Then
        EstTableRequete = "SQL : " & qry.SQL
    End If
Next qry
 
End Function

Bonjour Cafeine,

Ton code est cool et j'étais parti sur la même idée avec le split. Toutefois je ne comprends pas pourquoi tu utilise un split avec Ahving. Le having ne s'utilise qu'aprés le group by donc en ayant déjà éliminé ce qu'il y a aprés le group, tu n'as pas besoin de rechercher le having si ?

Et en reprenant ce code pour la fonction split, cela rend ton code compatible avec la version 97 :wink:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Public Function FctSplit(ByVal strg As String, Sep As String) As Variant Dim i As Integer Dim TblSplit() As String i = 1 While InStr(1, strg, Sep) <> 0 ReDim Preserve TblSplit(i) TblSplit(i - 1) = Left(strg, InStr(1, strg, Sep) - 1) strg = Mid(strg, InStr(1, strg, Sep) + Len(Sep)) i = i + 1 Wend If Len(strg) > 0 Then ReDim Preserve TblSplit(i) TblSplit(i - 1) = strg End If FctSplit = TblSplit End Function

23/11/2004, 14h10
Edith_T

Merci bcp!
J'essaierai ça. C'est interressant!