Discussion :

[JP.NUAGE]

Bonjour à tous

Voulant utiliser uniquement des composants ZEOS avec Firebird, j'ai converti toute une application. Il n'y a qu'un ordre que je n'arrive pas à convertir. Avec un TclientDataSet, l'ordre est le suivant

Code :

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

select CHAMP in STRING from TABLE

où STRING est une chaine de caractères séparés par des virgules, par exemple '00125,11478,12345,23450,'

Passe pas ni avec un TZReadOnlyQuery, ni avec un TZQuery

Une personne de l'aimable assistance e-t-elle déjà rencontré ce problème et trouvé une solution. Car la documentation ZEOS est, pour l'instant, assez réduite

Merci d'avance

[liazidf]

Bonjour,
a mon avis le IN ne fonctionne pas dans le select mais avec la clause WHERE, vérifier la syntaxe SQl.

[JP.NUAGE]

Autant pour moi ! La syntaxe qui ne fonctionne pas est

Code :

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

select CCCC from TABLE where XXX in STRING

C'était l'heure de l'apéro, j'ai du avaler le where

[evarisnea]

et si ta STRING était de cette forme ?

Code SQL :

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

('00125','11478','12345','23450')

que l'ont obtiendrait avec

Code delphi :

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

variable = '(''00125'',''11478'',''12345'',''23450'')';

[JP.NUAGE]

Réponse à evarisnea

J'ai essayé avec ('00210','12512','44454') : même message. Et le problème devient plus ennuyeux. La première fois, j'avais réussi à contourner l'obstacle par un méthode différente de programmation, mais là je rencontre un filtre.

Le Zquery passe très bien, mais lorsqu'il rencontre cet ordre

Code :

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

TABLE.Filter := 'CODE in (' + FormateFiltre(ListeCode) + ')';

il m'envoie poliment mais fermement siffler sur la colline avec un petit bouquet d'églantines (Dassin). Et FormateFilter(ListeCode) est bien de la forme ci-dessus !

[Ph. B.]

Et en rajoutant la fonction QuotedStr() .

Code :

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

TABLE.Filter := 'CODE in (' + QuotedStr(FormateFiltre(ListeCode)) + ')';

--
Philippe.