Discussion :

[fveto]

Bonjour à tous,

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

Code sql :

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

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

[SergioMaster]

Bonjour,

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

Code sql :

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

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

extrairai les produits interdits du Site 1

[fveto]

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 :

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

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

[SergioMaster]

Re,

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

il faudrait faire quelque chose du genre :

Code :

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

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

pour que le code proposé fonctionne

[fveto]

Merci Sergio

ça Fonctionne !!!

[SergioMaster]

ça Fonctionne !!!

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