Discussion :

[thered]

bonjour,
voila une table qui se présente comme suite:

ref_client
ref_type_client

je veux imprimer tout les clients "ref_client" qui ont le meme " ref_type_client"

j'ai besoin de votre aide

[Just-Soft]

bonjour,
voila une table qui se présente comme suite:

ref_client
ref_type_client

je veux imprimer tout les clients "ref_client" qui ont le meme " ref_type_client"

j'ai besoin de votre aide

Salut;

la requête ne serait-elle pas comme ça : je veux lister tout les clients qui ont la même référence.

Code :

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

1
2
3
// Mode SQL
Select * From taTable
where ref_type_client =: type_client

que tu invoque comme cela :

Code :

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

1
2
3
4
5
Query1.Clear;
Query1.SQL := 'Select * From taTable ';
Query1.SQL := Query1.SQL + 'where ref_type_client =: type_client';
Query1.ParamByName('type_client').Value := EditTypeClient.Text;
Query1.ExecSQL;

[thered]

merci pour ta réponse;
je vois que j'ai pas bien posé mon probleme,
la table client qui contient 100 ref_type_client
et sous chaque ref_type_client il y a plus de 200 clients
je veux avoir un listing de tous les client d'une ref_type_client

[SergioMaster]

La réponse donnée est presque excellente pourtant
@justsoft une petite erreur dans le code

Code :

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

1
2
3
4
5
6
7
8
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('Select * From taTable ');
Query1.SQL.Add(Query1.SQL + 'where ref_type_client =:type_client);
Query1.ParamByName('type_client').Value := EditTypeClient.Text;
Query1.Open; // ou query1.active:=true

maintenant , s'il s'agit d'imprimer , il faudrait peut-être nous préciser quel est le générateur d'état utilisé , voir la version de Delphi

une bonne Question ouvre souvent la voie a une bonne réponse , une question floue obtient toujours une réponse floue

[thered]

merci encore de votre aide;
je trouve que c'est un travail pénible de saisir 100 fois la référence pour avoir les listing;
ce que je veux faire c'est de remplir une listebox avec toutes les ref_type_client; et apres
a chaque fois que je clic sur une référence j'aurai tous les clients qui appartient a cette référence

[SergioMaster]

Quel rapport avec l'impression ?
enfin rien de plus simple pour avoir les différents types , encore un SQL

Code :

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

1
2
 
SELECT DISTINCT TYPE_CLIENT FROM LATABLE

[thered]

bonjour, merci beaucoup pour vos réponses et je suis vraiment désolé;
voila ce que je veux réaliser:
j'ai deux table sql :
type_client:
ref_typ_cli
des_f (la désignation de la fonction du client ex: artisan,libririe....)

client
ref_cli
ref_typ_cli

je veux imprimer une liste de client en fonction de ref_typ_cli
alors au début j'ai voulu creer une liste box qui va contenir toute les des_f

et apres a chaque fois que je sélectionne un element de la liste; j'aurai sur un dbgrid ou sur un etat de sortie tous les clients de cet type

[SergioMaster]

l'utilisation d'un DBLookupCombo serait mieux qu'un ListBox

donc sur la form ,
un TTable sur la table type_client
un TDatasource lié a cette Table
un DBlookupCombo
propriété LookupSource = le Datasource lié à la table type_client
LookupField = ref_typ_cli
LookupDisplay = des_f
un TQuery
la query serait alors liée à au même Datasource (propriété datasource)
et de la forme :

Code :

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

1
2
 
SELECT * FROM CLIENTS WHERE REF_TYP_CLI=:REF_TYP_CLI

un Dataset sur la Query
un DbGrid
ne pas oublier les open des TTable et TQuery et le tour est joué

[thered]

voila le composant que j'ai trouvé : DBLookupComboBox1
mais je ne trouve pas les propriétés:
LookupSource,LookupDisplay

a la place de LookupField j'ai trouvé Listfield
es ce que tu peux m'aider encore ?

[SergioMaster]

voila ce que c'est de pas donner sa version de Delphi !
j'ai regardé le propriétés rapidement sur BDS2006

sous D7 on dira :
ListSource
ListField
et keyField

[thered]

ça marche bien, il me reste maintenant comment récupérer la valeur du field selectionné et l'utiliser sur Query..
je vais essayer de faire ça tout seul sinon j'espere que tu vas m'aider

[SergioMaster]

un TQuery :
la query serait alors liée à au même Datasource (propriété datasource)
et de la forme :

Code :

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

1
2
 
SELECT * FROM CLIENTS WHERE REF_TYP_CLI=:REF_TYP_CLI

je me cite et ne me dis pas que c'est complexe !

[thered]

sur la liste déroulante j'ai des champs de la table type_client voila a quoi se ressemble la table :
ref_typ_cli des_f
01 INSTITUTION
01A BOISSONS

je suis réussi a voir les des_f sur la liste déroulante;

maintenant je veux lorsque je sélectionne un element de la liste déroulante; je veux que recupere la valeur ref_typ_cli de la table type_client
et âpres utiliser ref_typ_cli pour selectionner les clients de la table client qui ont la meme ref_typ_cli

se table client se persente comme suite

ref_client rais_soc ref_typ_cli
**** ***** ***
****** **** ****
***** **** ****

[thered]

merci beaucoup SergioMaster je trouve des difficultés !! je suis débutant sur delphi,
je vais essayer ca et je vous tien au courant