Query sur une table paradox

Bonjour à tous,

j'applique un Query sur une table paradoxe/BDE/Delphi:

Code:

---

select produit,interdit from produits

---

Bien sûr ça fonctionne, sauf que le champs interdit (alpha de 10 caractères "NNNNNNNNNN") gère les produits interdits de plusieurs sites, je cherche à extraire (dans Query) du champs interdit un seul caractère (interdit [1] : ce qui correspond au site 1).

Pourriez vous m'aider SVP ?

Merci à tous

Bonjour,

je dirais sans le tester qu'il faut utiliser la fonction SUBSTRING , si j'ai bien compris quelque chose comme ça

Code:

---

1 2	SELECT Produit FROM PRODUITS WHERE SUBSTRING(interdit FROM 1 FOR 1)='O'

---

extrairai les produits interdits du Site 1

Merci Sergio

Effectivement, ça fonctionne en mettant 'O' ou 'N' !!!

Et si je veux afficher tous les produits avec le champs "Interdit" ("N" ou "O" ) d'un site, les produits interdits seront afficher en rouge dans le dbgrid :

Code:

---

1 2 3 4 5 6

TDBGrid(Sender).Canvas.Brush.Color := clWindow; TDBGrid(Sender).Canvas.Font.Color := clBlack; If FBD.Query.FieldByName ('Interdit').AsString = 'O' Then TDBGrid(Sender).Canvas.Brush.Color := clRed; TDBGrid(Sender).DefaultDrawColumnCell(rect,datacol,column,state);

---

Merci

Re,

Non, il y a au moins un problème dans le select

il faudrait faire quelque chose du genre :

Code:

---

1 2	SELECT Produit,SUBSTRING(interdit FROM 1 FOR 1) as Interdit FROM PRODUITS

---

pour que le code proposé fonctionne

Merci Sergio

ça Fonctionne !!!

Citation:

---

Envoyé par fveto

ça Fonctionne !!!

---

N'oubliez pas de :plusser: la solution retenue et de mettre la discussion comme :resolu: