Discussion :

[jcaction]

Bonjour à tous,

Je commence à développer depuis peu de petites applications de base de données sous delphi 7 et et j'utilise Firebird 2 comme SGBD. Mon problème est le suivant:
je veux créer une requête qui va prendre en paramètre des Items qui sont cochés dans deux CheckListBox (Un pour la saison et un pour les marques) mais je ne sais pas en fait combien de choix l'utilisateur peut faire donc par mesure de securité j'utilise une requête avec 10 paramètres pour chaque attribut donc 20 au total.
Je penses que c'est pas assez efficace et je demande votre aide afin d'écrire une requête plus efficace.

Je vous remercie d'avance pour votre aide

Voici mon code SQL

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
select * from client ,commande,marque

where ((client.codecli = commande.codecli)and(commande.idmarque = marque.idmarque))

 /* Les P1  à P10 sont les champs que l'utilisateur aurra coché dan le CheckLisBox de la Saison*/
and ((commande.saison = :p1) or (commande.saison = :p2) or (commande.saison = :p3) or (commande.saison = :p4)
or (commande.saison = :p5)or (commande.saison = :p6)or (commande.saison = :p7)or (commande.saison = :p8)
or (commande.saison = :p9)or (commande.saison = :p10));

/* Les P1  à P10 sont les champs que l'utilisateur aurra coché dan le CheckLisBox de la marque*/
and ((commande.marque = p:1) or (commande.marque = :p2) or (commande.marque = :p3) or (commande.marque = :p4)
or (commande.marque = :p5)or (commande.marque = :p6)or (commande.marque = :p7)or (commande.marque = :p8)
or (commande.marque = :p9)or (commande.marque = :p10));

[SergioMaster]

La clause IN est la plus indiquée . Voici généralement comment je procède :

1° je prépare les strings de sélection . par exemple pour une checklistbox contenant les représentants de l'entreprise (listeReps) qui se présente ainsi

Code :

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

1
2
3
4
5
6
 
01 : TOTO
02 : TATA
AA : ALOIS ALZHEIMER
AE : ALBERT EINSTEIN
......

dans cet exemple (réel mais simplifié )ma string de selection s'appelle SelReps

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
 
var i,n : Integer;
begin
Screen.Cursor:=crHourGlass;
SelReps:='';
n:=0;  // compte le nombre de représentants selectionnés
for i:=0 to ListeReps.Items.Count-1 do
    begin
    if ListeReps.Checked[i] then
      begin
        if Length(SelReps)>0 then SelReps:=SelReps+',';
        // je récupére juste le code du representant coché
            SelReps:=SelReps+QuotedStr(Trim(Copy(ListeReps.Items[i],1,Pos(':',ListeReps.Items[i])-1)));
        inc(n);
      end;
    end;
// si tous les representants sont cochés alors pas de sélection je les prends tous
if n=ListeReps.Items.Count then SelReps:='';

si les deux premiers representants sont cochés selreps resemblera à ceci
''01','02''

2° je prépare le SQL de la Query ici VENTES (là je simplifie encore plus )

Fonction retournant un boolean à true si SQL ok (on ne sait jamais, pratique pour les tests )

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
19
20
21
22
23
24
 
var w : Boolean; // me sert pour savoir si la clause Where est mise
begin
w:=false;
// VENTES ----------------------------------------------------------------------
Ventes.SQL.Add('SELECT * FROM COMMANDES');
if length(SelReps)>0 then
 begin
   Ventes.SQL.Add('WHERE REPRESENTANT IN ('+SelReps+')');
   w:=true 
 end;
if length(selSaisons)>0 then 
  begin
    if w then Ventes.SQL.Add('AND SAISON IN ('+SelSaisons+')')
           else Ventes.SQL.Add('WHERE SAISON IN ('+SelSaisons+')');
  end;
try
  Ventes.Open;
  Result:=True
except
 on E:Message do
  MessageDlg('SQL Fichiers de Tri'#13+E.message,mtError,[mbOk],0);
  Result:=False;
 end;

@+

[jcaction]

Merci pour ta réponse j'essaie !

[SergioMaster]

j'ai manqué à tous mes devoirs .

je te souhaite la Bienvenue sur le forum

[jcaction]

j'ai manqué à tous mes devoirs .

Lol merci !

En fait votre proposition fonctionne nikel au niveau de la partie 1 mais ya un petit bug côté SQL. L'erreur est la suivante :

SQK code - 104

Que faire?
@+

[SergioMaster]

Salut,
déjà me montrer le code SQL . Je me suis de mon coté aperçu que mon copié/collé puis simplifié avait laissé quelques traces

et bien vérifier en mode debug (ou par un showmessage(Ventes.SQL.Text); ) la "phrase SQL" générée , il manque peut-être simplement une virgule ou un quote quelque-part

[jcaction]

Voici mon code sql:

L'appel mon composant IBSQL Client ici
selection est un String qui contient les noms des clients sélectionnés
selSaison est un String qui contient les saisons sélectionnées

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
Client.Active:=true;
Client.SQL.Add('select * FROM COMMANDE, CLIENT, SAISON');
 
if Length (selection)> 0 then
begin
  Client.SQL.Add('WHERE commande.nom=client.nom and commande.saison=saison.codesaison and CLIENT.NOM IN ('+selection+')');
  w:=True;
end;
 
if Length (selSaison)>0 then
begin
  if w then Client.SQL.Add('AND saison.CODESAISON IN ('+selSaison+')')
        else Client.SQL.Add('WHERE saison.CODESAISON IN ('+selSaison+')');
end;
Client.open;

j'ai rajouté de captures d'écran pour le texte généré par le SQL et l'erreur

Merci par avance et @ +

[qi130]

Les valeurs doivent être mises entre simples quotes

Code :

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

Where chaisplusquoi IN('MAGLOIRE','JC')

Le mieux est d'utiliser la fonction quotedStr pour "quoter" chaque élément du IN lors de la construction

[jcaction]

Merci à tous ça marche comme je souhaite now.

@ Bientot!

[SergioMaster]

petit nota : Dans ton cas tu n'avais pas l'utilité de rajouter le 'test de la clause where' en effet il te fallait de toute manière faire les jonctions.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Client.Active:=true;
Client.SQL.Add('select * FROM COMMANDE, CLIENT, SAISON');
Client.SQL.Add('WHERE commande.nom=client.nom and commande.saison=saison.codesaison');
 
if Length (selection)> 0 then
  Client.SQL.Add( and CLIENT.NOM IN ('+selection+')');
 
if Length (selSaison)>0 then
 Client.SQL.Add('AND saison.CODESAISON IN ('+selSaison+')')
 
Client.open;

sauf si tu avais utilisé la clause JOIN comme ceci

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
 
Client.Active:=true;
Client.SQL.Add('select * FROM COMMANDE JOIN CLIENT ON commande.nom=client.nom ');
Client.SQL.Add('JOIN SAISON ON commande.saison=saison.codesaison') 
 
if Length (selection)> 0 then
begin
  Client.SQL.Add('WHERE CLIENT.NOM IN ('+selection+')');
  w:=True;
end;
 
if Length (selSaison)>0 then
begin
  if w then Client.SQL.Add('AND saison.CODESAISON IN ('+selSaison+')')
        else Client.SQL.Add('WHERE saison.CODESAISON IN ('+selSaison+')');
end;
Client.open;