Sql et TStringList

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:

---

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.

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

Code:

---

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:

---

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

---

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:

---

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

---

Donc un truc du genre:

Code:

---

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:

---

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

Uuuuh, sympa ta fonction sjrd :king:

Merci Messieurs.