Discussion :

[lave_01]

Bonjour,

Je n'arrive pas à réaliser la requête suivante :

Code :

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

select * from matable where matable.monchamp in (:parametre)

Le paramètre doit prendre des string en valeur. Si je passe une seule valeur, pas de soucis. Si je passe deux valeurs (ex. : 'A','B'), soit je n'ai aucun retour (alors qu'il en faudrait un), soit cela génère une erreur.

J'ai cherché sur le net mais je n'ai rien trouvé de particulier par rapport à cela ou une solution. J'ai testé la même chose en MySql et cela fonctionne

Merci d'avance pour votre aide

[SergioMaster]

Bonjour,

Manque d'informations.

Si la requête est passée via un composant Delphi , si oui, lequel ?
S'il s'agit de Firedac utilisez la macro

Code :

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

select * from matable where matable.monchamp in (&parametre)

MacroByName('parametre').asRaw:= QuotedStr('A')+','+QuotedStr('B');

Cependant, si je regarde l'historique de vos messages je crains qu'il ne s'agisse de IBQuery qui lui n'a pas la possibilité des Macros
Un code à essayer :

Code pascal :

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

1
2
3
4
5
6
7
8
 
var SL : TStringList;
begin
 SL:=TStringList.Create;
 SL.Add(QuotedStr('A'));
 SL.Add(QuotedStr('B'));
 IBQuery.ParamByName('parametre').asString:=Quotedstr(SL.CommaText);
 SL.Free;

S'il s'agit d'autre chose, il faut expliciter comment vous exécuter et vous passez le paramètre

[lave_01]

Merci pour ce premier retour. Dans un premier temps, j'essaye simplement de le faire fonctionner dans les managers de db tel qu'EMS et Ibexpert. Sur les deux logiciels, comportement similaire à ce que j'ai dit dans mon premier post

Je l'ai également fait en Delphi en utilisant le composant ibobject et en appelant comme ceci :

Code :

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

param_query.ParamByName('niveau').AsString := 'SI,SS';

Même résultat, aucun record renvoyé alors qu'il y a bien des données.

La version de Firebird est la 2.5
La version de Delphi est XE2

Merci d'avance pour l'aide

[SergioMaster]

Ce n'est pas un problème Firebird mais plus de la manière de présenter le paramètre

Avec les guillemets "A","B" serait à essayer
avec les doubles quotes cela devient vite invivable ''A'',''B'' dès que l'on va tenter de le coder avec Delphi

Code pascal :

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

param:='''A'',''B'''

La suggestion StringList est à prendre en compte

[lave_01]

Avant même delphi, j'essaye de le faire fonctionner en Sql, ce qui ne va pas.

J'ai essayé les simples quotes, les doubles quotes dans la fenêtre proposant d'encoder les valeurs et cela ne change absolument rien.

Voici ce que j'ai déjà tapé dans le prompt :

Code :

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

1
2
3
4
 
'SI','SS'
"SI","SS"
SI,SS

J'avais également testé ton écriture sous delphi mais cela ne donne rien non plus. Pour l'idée du TstringList, je ne vois pas comment je pourrais le passer à mon paramètre en Delphi.

[SergioMaster]

Avec DBeaver 7.0 cela fonctionne


pour delphi une solution ?

Code Delphi :

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

1
2
3
4
5
6
7
8
9
10
 
var SL : TStringList;
begin
 SL:=TStringList.Create;
 SL.Add(QuotedStr('AC'));
 SL.Add(QuotedStr('CC'));
 IBQuery.Close;
 IBQuery.SQL.Text:='SELECT * FROM APPOSE WHERE CODE APPOSE IN('+SL.CommaText+')'; 
 IBQuery.Open;
 SL.Free;

[lave_01]

Hello,

J'ai également testé DBeaver. J'ai l'impression qu'il remplace à la volée le SQL plutôt que d'avoir un prompt. Raison pour laquelle cela fonctionnerait.

J'ai essayé avec isql mais sauf erreur de ma part, cet outil ne prend pas les paramètres dans les query.

Du côté de Delphi, ma requête n'est hélas pas aussi simple et comporte environ 15 lignes dans la where clause (commentaires compris). Je pourrais bien entendu l'ajouter dans le code mais cela ajouterai un grand nombre de ligne et je perdrai en lisibilité.
Pour le composant ibo, je n'ai pas vu d'autres manières de passer les paramètres

Savez-vous s'il est possible en Delphi de récupérer le sql complet envoyé à la db ? En effet,

Code :

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

maquery.sql.text

ne comporte pas les valeurs affectés au paramètre.

Merci pour l'idée du tstinglist que je garde pour le futur

[SergioMaster]

J'ai également testé DBeaver. J'ai l'impression qu'il remplace à la volée le SQL plutôt que d'avoir un prompt. Raison pour laquelle cela fonctionnerait.
Du côté de Delphi, ma requête n'est hélas pas aussi simple et comporte environ 15 lignes dans la where clause (commentaires compris).

Hé bien je vous propose de "simuler" une macro
Exemple avec IBQuery :

Code delphi :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
procedure TForm107.btn1Click(Sender: TObject);
var SL : TStringList;
const SQL : 'SELECT * FROM APPOSE WHERE CODE_APPOSE IN (&Liste)' ;
begin
SL := TStringList.Create;
SL.Add(QuotedStr('CC'));
SL.Add(Quotedstr('AC'));
IBQuery1.Active:=false;
IBQuery1.SQL.Text:=StringReplace(SQL,'&Liste',SL.CommaText,[rfReplaceAll]);
SL.Free;
IBQuery1.Active:=True;
end;

Ceci fonctionne et en même temps, si vous vérifiez SQL.Text vous aurez bien SELECT * FROM APPOSE WHERE CODE_APPOSE IN (''CC'',''AC'');
inconvénient, le SQL de départ doit être dans une constante pour pouvoir le réutiliser autre inconvénient il faut absolument qu'il y ait un élément dans la StringList
contournement mettre la clause entière comme macro

Code delphi :

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

1
2
3
const SQL : 'SELECT * FROM APPOSE WHERE CODE_APPOSE IN (&Liste)' ;
...
IBQuery1.SQL.Text:=StringReplace(SQL,'&Liste',' CODE_APPOSE IN ('+SL.CommaText+')',[]);

[edam]

AMHA pourquoi pas crée une table qui contient ces constant alphanumériques
je préfère utiliser les constants numériques
en plus tu gard la notion du SGBDR,

[lave_01]

Hello,

Merci pour ton retour mais pourrais-tu développer un peu plus car je ne vois pas comment tu y arriverais.

Pour le moment, j'ai implémenté en partie la solution de SergioMaster. Je dois encore finaliser quelques tests et je reviens vers vous pour vous donner la solution mise en place au final. cela pourra toujours servir à d'autres au besoin

Merci et bonne journée,

Valéry

[SergioMaster]

Bonjour

un peu plus car je ne vois pas comment tu y arriverais.

Compliqué mais possible en utilisant une GTT (global temporary table) et une union.
Compliqué dans le sens où :
a) il faut que la structure de la GTT soit crée
ie.

Code SQL :

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

CREATE TABLE PARAMGTT(CODE CHAR(2)) ON COMMIT PRESERVE ROWS;

b) le programme doit remplir la table , la vider ne posant pas de souci, encore qu'il faille faire attention au 'ON COMMIT'
- DELETE ROWS alors il faudra gérer la transaction
- PRESERVE ROWS par précaution vider la table avant de la remplir
c) le SQL change si je reprends mon exemple cela deviendrait

Code SQL :

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

SELECT a.* FROM APPOSE a JOIN PARAMGTT p ON a.CODE_APPOSE=p.CODE

[lave_01]

On est d'accord, c'est un peu extrême

Merci pour d'avoir détaillé

[edam]

[SergioMaster]

Bonjour

@edam, comment dire tu es à côté de la plaque, hors sujet.

Tout d'abord tu utilises mon exemple et "mes données" ce qui n'est pas vraiment le sujet de départ, celui-ci je l'ai mis juste pour illustrer.

Je rappelle que le sujet est

Je n'arrive pas à réaliser la requête suivante :

Code :

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

select * from matable where matable.monchamp in (:parametre)

Sujet hors cadre de Firebird puisqu'il s'agit de fait d'une interrogation Delphi ou même de GUIs externes.

j'essaye simplement de le faire fonctionner dans les managers de db tel qu'EMS et Ibexpert.

J'ai pu démontrer, avec mon exemple, que certains GUI (DBWeaver) pouvait le faire, d'où l'utilisation de la table APPOSE d'une de mes applications et ce afin de prouver que ce n'était pas un problème Firebird.
Suite à mes suppositions de départ et ma connaissance de Firedac, j'ai également proposé, après quelques tâtonnements je l'avoue, une solution Delphi viable avec des connecteurs de composants autre que Firedac ne connaissant pas les macros en l'occurence IBX (comme j'ai tendance à confondre avec un autre set de composants je préfère IBX à l'IBObjects cité )

Ton intervention peu claire, méritait une explication sur les possibilités au niveau Firebird, le fait d'utiliser des id numériques au lieu de valeurs chaînes, je l'écarte car hors de propos, de toute façon la solution serait identique.

1- comment l'utilisateur choisi ces codes : combobox rempli avec des données statiques ?

Nulle part nous n'avons parlé de combobox ou de mode de saisie, vous qui vouliez être "SGBDR", nous amenez de l'interface utilisateur

2-la colonne "CODE_APPOSE" est liée, indexée?

Quelle importance, c'est un exemple, pour information Oui elle est indexée et est même une référence, s'il n'y a pas ID_Technique c'est que :
- la table est de faible volume (une 20 de lignes)
- doit être figée (pas de possibilité de changer le code une fois celui-ci utilisé)
- j'ai été flemmard à l'époque (siècle dernier) lors de la création de la structure de la table
mais, encore une fois cela n'a rien à voir, la demande aurait pu porter sur une colonne libellé.

Je préfère utilise TClientDataset.

Encore une fois, un mélange entre Delphi (TClientDataset) et Firebird alors que vous indiquez que vous voulez garder la notion du SGBDR.

sergio; je ne parle pas d'une table temporaire, et je n'ai jamais utiliser,

C'est bien dommage car c'est bien pratique en tout cas cela n'utilise pas de Clientdataset
Si j'ai proposé cette utilisation de GTT c'est uniquement pour éclaircir une vraie possibilité même si

On est d'accord, c'est un peu extrême

je ne commente pas le reste (le code et la proposition d'une table supplémentaire inutile)

[lave_01]

Hello,

Voilà que je repasse enfin sur ce projet ^^'

Voici le code Delphi que j'ai implémenté pour avoir des valeurs multiples vu que cela ne passe pas :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
if param_id_type_ps12 = 1 then //Secondaire
        begin
          //Le paramètre ne prenant pas plusieurs valeurs, nous faisons un changement à la volée de la valeur
          param_query.SQL.Text := StringReplace(param_query.SQL.Text, ':niveau','''SI'',''SS''',[]);
          //param_query.ParamByName('niveau').AsString := 'SI,SS';
        end
      else if param_id_type_ps12 = 2 then //Supérieur
        begin
          //On remet le paramètre au cas où on est passé par le secondaire
          param_query.SQL.Text := StringReplace(param_query.SQL.Text, '''SI'',''SS''',':niveau',[]);
          param_query.ParamByName('niveau').AsString := 'SU';
        end
      else if param_id_type_ps12 = 3 then //Expert
        begin
          //On remet le paramètre au cas où on est passé par le secondaire
          param_query.SQL.Text := StringReplace(param_query.SQL.Text, '''SI'',''SS''',':niveau',[]);
          param_query.ParamByName('sit_adm').AsString := 'E';
        end;

Je me suis inspiré du code de SergioMaster, mais sans passer par la constante (quel est son utilité, car je ne l'ai pas vu?). Je n'ai pas utilisé la tstringlist (même si l'idée est retenue) car je n'avais que deux données qui ne bougeront pas beaucoup (on ne peut pas dire jamais)

Je reste encore perplexe sur le fait que Firebird puisse prendre plusieurs valeurs sur un paramètre. Même si DbBeaver y arrive (et je pense qu'il réécrit le Sql). J'ai réessayé sur EMS avec une query avec des integer pour paramètre (pour s'affranchir des quotes) et je n'y arrive pas non plus.
Je vais leur écrire pour avoir leur avis sur la question

En tout cas un tout grand merci pour votre aide et vos retours. Cela m'a bien fait avancer

[SergioMaster]

Bonjour,

Je me suis inspiré du code de SergioMaster, mais sans passer par la constante (quel est son utilité, car je ne l'ai pas vu?).

La constante est là pour pouvoir faire plusieurs fois la requête en repartant de "zéro". Imaginons que vous exécutiez plusieurs fois la requête une première fois avec deux paramètres.
Votre SQL ne contient plus :niveau donc vous ne pourrez reprendre le code pour y mettre 3 ou plus de paramètres.
Le fait de ne pas utiliser la stringlist vous oblige à faire les tests if param_id_type_ps12=1 etc.. que vous pourriez d'ailleurs remplacer par un

Code :

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

1
2
3
4
5
  Case param_id_type_ps12 of 
     1 :
     2 :
     3 :
  end;

Mais avec le stringlist vous auriez eu un code plus simple, sans besoin de ces tests, passer par ceci devient inutile

Code :

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

1
2
  param_query.SQL.Text := StringReplace(param_query.SQL.Text, '''SI'',''SS''',':niveau',[]);
          param_query.ParamByName('niveau').AsString := 'SU';

Une dernière chose, si j'ai mis un & pour indiquer la macro (cela aurait pu être une autre caractère comme !, %,$, etc. ) mais en aucun cas je n'aurais mis le : et ce pour deux raisons, la confusion possible pour quelqu'un qui reprendrai le code, la possibilité que la requête ouverte une première fois attende ensuite un paramètre.

Je reste encore perplexe sur le fait que Firebird puisse prendre plusieurs valeurs sur un paramètre.

Cela n'a strictement rien à voir avec Firebird, il s'agit d'un traitement en amont de la requête

[lave_01]

Hello,

J'avais pas vu sous cette angle là la constante. Cela me sera bien utile car je modifie souvent des query et je mets alors une variable pour récupérer le sql de base. La constante sera plus adéquate pour cela.

Dans mon exemple, les if permettent de connaître dans quel contexte je suis dans l'année N (type de ps12). En fonction de cela, je dois réaliser une condition particulière (:niveau) pour les années N-x. Comme vous l'avez dit, j'ai du refaire dans chaque cas le stringreplace pour avoir à chaque fois le paramètre au besoin dans la requête. La constante aurait été plus simple à ce niveau là et surtout plus modulable.

Merci et belle journée