Discussion :

[akli_agha]

Bonjour,

J'aimerais savoir comment récuperer des enregistrements dans une Query dans les clés sont contenues dans une StringList ( ou un tableau )?

Quelque chose comme :

Code :

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

1
2
3
 
SELECT * FROM myTABLE
WHERE myKey IN myList;

Ce code ne devrait pas marcher et je voudrais savoir si on peut l'exprimer autrement (et correct bien sûr !).

Merci.

[sjrd]

Tu dois de toutes façons générer une énumération SQL à partir de ta liste de chaînes :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
function ListToSQLEnum(List : TStrings; Strings : boolean) : string;
var I : integer;
    StrFormat : string;
begin
  Result := '';
  if Strings then
    StrFormat := '''%s'', '
  else
    StrFormat := '%s, ';
 
  for I := 0 to List.Count-1 do
    Result := Result + Format(StrFormat, [List[I]]);
  SetLength(Result, Length(Result)-2);
end;

Le paramètre Strings doit valoir True si tes clefs sont des chaînes, et False sinon (par exemples entiers).

Ca te renvoie une chaîne du type :

Code X :

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

1
2
1, 5, 10
'Clef 1', 'Clef 2', 'Clef 3'

[Cl@udius]

Salut

Je suppose que ta StringList contient les valeurs de ton critère IN, il suffit alors de faire un itération sur ta StringList pour constuire l'expression.

Exemple, ta StringList contient: Rouge, Vert et Bleu. Il faut constuire une expression qui sera:

Code :

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

1
2
 
  where myKey in ('Rouge', 'Vert', 'Bleu')

Donc un truc du genre:

Code :

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

1
2
3
4
5
6
7
 
  for i := 0 to MaStringList.Count - 1 do
  begin
    if MonCritere <> '' then 
      MonCritere := MonCritere + ',';
    MonCritere := MonCritere + QuotedStr(MaStringList.Items[i]);
  end;

Ensuite:

Code :

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

1
2
3
4
 
  SELECT * 
  FROM myTABLE
  WHERE myKey IN (' + MonCritere + ')';

Voilà, j'ai construit ça à la volée mais l'esprit est là.

@+ Claudius

[Cl@udius]

Uuuuh, sympa ta fonction sjrd

[akli_agha]

Merci Messieurs.