Discussion :

[asmduty]

Bonjour,

J'ai une requête nommée "requete_1" dans ma base access avec le texte :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Select [champs 1], [champs  2]
from matable;

Je voudrais la réutiliser ailleurs en y ajoutant un

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

"where actif = true"

Je fais donc :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim text_requete as string
text_requete = currentdb.querydefs("requete_1").SQL

Sauf que je récupère le texte :

Select [champs 1], [champs 2]

Quand je modifie ma requête de base via Access je vois qu'il y a un retour chariot avant le "FROM" et j'ai l'impression que ce que je récupère est donc le texte du début jusqu'au retour chariot.
Si je supprime le retour chariot et que j'enregistre ma requête, Access le remet tout seul.

Quelqu'un saurait pourquoi je ne récupère que la première partie de ma requête, jusqu'au retour chariot ?
Comment récupérer le texte SQL de la requête entièrement alors ?

Merci de votre aide

[Jean-Philippe André]

Hello,
je ne saisis pas bien à quel niveau tu as un problème...
le contenu SQL de ta requête dans l'interface Access c'est une chose, le contenu SQL visible sous forme de chaine de caractères c'est la même chose, non ?

[asmduty]

Et bien en fait si je modifie la requête existante je la vois bien en entier, mais en mettant un espion sur le Querydefs("requete_1").SQL dans l'explorateur d'espion je vois du début de la requête jusqu'au saut de ligne.
J'en suis à me dire qu'en réalité c'est peut être seulement l'explorateur d'espion qui est merdique.
J'ai donc fait

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
text_requete = replace(text_requete, Chr(10), " ")  
text_requete = replace(text_requete, Chr(13), " ")

Mais si je remet un espion sur mon texte j'ai encore la même chose.

Le but final de tout ça étant de virer le ";" à la fin pour ajouter ma clause "WHERE", j'ai fait, ce qui me semble on ne peut plus logique :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
text_requete = Trim(text_requete)
If Right(text_requete, 1) = ";" Then
    text_requete = Left(text_requete, Len(text_requete) -1)
End if

Et c'est comme ça que je me suis rendu compte que c'est probablement l'explorateur d'espion qui ne m'affiche pas tout puisque j'obtiens une erreur qui me dit que j'ai du texte repéré après la fin de l'instruction SQL.

Mais comme je ne peux pas me fier à l'explorateur d'espion je vais devoir afficher mes chaines dans des MsgBox pour espionner, super -_- ...

Je verrai ça lundi en étant un peu plus reposé, parce que moi Access il me fatigue ...

[tee_grandbois]

Le but final de tout ça étant de virer le ";" à la fin pour ajouter ma clause "WHERE", j'ai fait, ce qui me semble on ne peut plus logique :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
text_requete = Trim(text_requete)
If Right(text_requete, 1) = ";" Then
    text_requete = Left(text_requete, Len(text_requete) -1)
End if

je ne comprends pas non plus ton souci.
Si ton but est de supprimer le point virgule, tu as simplement à faire:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
text_requete = CurrentDb.QueryDefs.("requete_1").SQL
NewSQL = Replace(text_requete,";","") & " WHERE taclausewhere" & ";"

sans te soucier des sauts de lignes

[asmduty]

ça serait éventuellement une alternative, sauf que :

- ça ne m'explique toujours pas pourquoi ce que j'ai fait ne fonctionne pas
- si jamais j'avais pour une raison quelconque des ";" ailleurs dans ma requête (dans un replace par exemple) votre solution ne fonctionnerait pas

Cela dit merci pour cette solution, si je ne trouve pas autre chose faudra bien que je fasse quelque chose dans ce style là, mais j'aimerais avant tout savoir ce qui ne va pas avec ma solution et comment l'adapter.

[loufab]

Bonjour,
Moi non plus je ne vois pas le problème.
Qu'il s'agisse de la fenêtre Espion ou de la Variables locales la chaine renvoyée est visible en totalité. Mais peut-être que tu utilises une version ancienne d'ACCESS.

Maintenant l'explication du problème :
Toi même tu le vois, la chaine comporte des retour chariot, tu as la commande pour les éliminés (bien que cela soit totalement inutile pour ce que tu souhaite faire). Il suffit de procéder... sans omettre le dernier crlf.

Donc :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
dim vlsql as string
vlsql = Replace(CurrentDb.QueryDefs("rTest").SQL, vbCrLf, " ")

Et pour la ; de la fin.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

vlsql = left(vlsql,len(vlsql)-2)

Bien que ceci suffise :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

CurrentDb.QueryDefs("rTest").SQL= left(CurrentDb.QueryDefs("rTest").SQL,len(vlsql)-2) & " " & "WHERE...."

Comme tu le vois il s'agit d'une simple manipulation de chaine de caractères.

A noter qu'ACCESS remettra en forme la chaine SQL dès que tu la réinjectera dans ton objet Query.

Cordialement,

[asmduty]

Merci pour toutes vos réponses.

Je suis sous Access 2007.
En fait je voulais retirer les retour chariot surtout afin de pouvoir espionner ma chaine, mais impossible.
Tant pis, je me suis lancé dans le débogage à coups de MsgBox finalement et c'est là que je me suis aperçu de votre remarque du dernier post :

Access remet automatiquement le ";" avant que je rajoute mon "Where"

Bref le genre de truc idiot donc j'aurais pu m'apercevoir facilement si j'avais pu espionner correctement.

Merci pour votre aide, je peux marquer résolu.