Discussion :

[buzz68180]

Bonjour,

Je souhaite effectuer une requête sur une liste de fichier et le tout construit dynamiquement selon plusieurs critères :
1/ le fichier sélectionné dans une liste combo (ex client)
2/ le champ dans une combo avec un "Listerubrique" dépendant de ma combo fichier précédente (1)
3/ une combo opérateur avec un conentu en programmation :
-Aucun-
égal à
différent de
commence par
contient
ne contient pas
inférieur à
supérieur à
inférieur ou égal à
supérieur ou égal à
4/Un critère à saisir dans un champ

Le problème se pose avec l'utilisation des guillemets ' ' dans la syntaxe d'une requête et l'utilisation des %1% dans la fonction chaineconstruit (%1%).

Code :

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

1
2
3
sCresultat="SELECT * FROM %1 WHERE %2 ='%3' " 
 
sReq=ChaîneConstruit(sCresultat,COMBO_Fichier..ValeurAffichée,COMBO_CHOIX1..ValeurAffichée,SAI_Critère)

Evidemment ce code ne fonctionne pas.

auriez-vous une piste svp ?

Merci

[Hemgé]

Bonjour,

HListeRubrique (avec hLstDétail ou hLstDétailPlus) fournit : <Nom de la rubrique 1> + TAB + <Type> + TAB + <Type HyperFileSQL> + ...
où <Type> : Type de la rubrique : "T" pour texte (et monétaire) ou "N" pour numérique

Sur base de Type :

Code :

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

1
2
3
4
5
6
7
sCritère est une Chaîne
sCritère = SansEspace(SAI_Critère)
SI Rubrique.Type = "T" ALORS sCritère = "'" + sCritère + "'" 

sCresultat="SELECT * FROM %1 WHERE %2 %3 %4 " 
sReq=ChaîneConstruit(sCresultat,COMBO_Fichier..ValeurAffichée,COMBO_CHOIX1..ValeurAffichée, Opérateur , sCritère)

Ceci devrait faire l'affaire, sauf sur les Monétaires si vous en utilisez.
Dans ce cas, il faudrait prendre <Type HyperFileSQL> en compte, quitte pour avoir un code plus compact à juste tester s'il s'agit ou non d'un monétaire, avant de tester <TYPE>.


Attention à ne pas oublier votre opérateur.


Bon travail

Hemgé

[hpascal]

Bonjour

En complément de ce que dit Hemgé, tu peux aussi tester la propriété ..Type de la rubrique que tu traites

Code :

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

1
2
3
4
SI {COMBO_CHOIX1..ValeurAffichée, indRubrique}..Type DANS (hRubTexte, hRubTexteUnicode, hRubMémoTexte, hRubMémoUnicode)
   sCritère = Remplace(sCritère, "'", "''")   // si on a des ' dans la chaîne on doit les doubler
   sCritère = "'" + sCritère + "'"
FIN

[Hemgé]

Code :

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

1
2
3
4
SI {COMBO_CHOIX1..ValeurAffichée, indRubrique}..Type DANS (hRubTexte, hRubTexteUnicode, hRubMémoTexte, hRubMémoUnicode)
   sCritère = Remplace(sCritère, "'", "''")   // si on a des ' dans la chaîne on doit les doubler
   sCritère = "'" + sCritère + "'"
FIN

Bien vu pour les ' à doubler.

Si on teste " ..Type DANS ", ne faut-il pas compléter avec hRubDate8, hRubHeure, hRubDateHeurehRubDurée et hRubCaractère ?

[hpascal]

Oui je n'ai pas mis toutes les constantes, il faut bien sur gérer les autres types

J'utilise ce principe sur d'autres bases que HF où il faut en plus faire un formatage spécifique sur les date, timestamp etc ...

Le mieux dans ce cas c'est de faire un SELON {COMBO_CHOIX1..ValeurAffichée, indRubrique}..Type

[Hemgé]

Globalement, tous ces types sont couverts par <Type> = "T", ... du moins en ce qui concerne l'usage des ' '.

C'est pour cela que, dans l'optique d'un code léger générant un traitement non exhaustif mais assez complet, j'avais préconisé <Type> plutôt que <Type Hyperfile>, qui sont de toute façon disponibles tous les deux à partir du HlisteRubrique qui alimente la COMBO et peuvent être placés en colonne cachée.

Mais, effectivement, dans ma routine, je traite également chaque type de Rubrique.

[buzz68180]

Bonjour,

Merci beaucoup pour ces éléments de réponses très explicites, je vais m'empresser de les appliquer dans mon projet !