Discussion :

[lilo415]

Bonjour,

J'utilise la version 7 de delphi, et j'ai un petit souci pour afficher le résultat d'une requête sql dans ma ComBoBox.

Voilà j'ai des contacts qui sont enregistrés dans la base de données et il sont organisés par groupe.
Par exemple pour le "groupe A"-> J'ai 4 Contacts "toto","test","titi", "youpi"

Donc l'application affiche la fiche contact, ici "test" avec nom, prenom, etc
Et je voudrais mettre dans ma ComboBox, la liste des contact appartenant à ce groupe sauf "Test".
Est-ce possible ?? j'ai essayer avec une requête mais ça ne marche pas.
Je pense que je ne sais pas trop où et comment mettre ma requête.

Merci d'avance pour votre aide.

Lilo

[Cl@udius]

Salut

Je dirais que ca doit être possible avec une requête !
Fais voir la requête que tu as essayé de mettre en place.

@+ Claudius

[lilo415]

Bonjour,

merci de répondre. Voilà ce que j'ai mis:

Code :

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

1
2
3
4
5
6
7
8
 
 procedure TForm.DBComboBox1Click(Sender: TObject);
begin
 
QueryMain.SQL.Clear;
QueryMain.SQL.Add('Select NOM, PRENOM from CONTACT where NOM <> NameContact');
QueryMain.Open;
end;

J'ai essayé de mettre la requête dans le sql de le ComboBox mais ça n'a pas marché.
Et j'ai meme essayé le datafield avec "NOM" mais il affiche que le nom "test" et rien d'autre

Voilà merci de ton aide.

Lilo

[Cl@udius]

Re,

Et je voudrais mettre dans ma ComboBox, la liste des contact appartenant à ce groupe sauf "Test".

La notion de groupe est absente de ta requête !

La requête pourrait être celle-ci:

SELECT nom, prenom FROM CONTACT
WHERE groupe = :Groupe and nom <> :NomContact
ORDER BY nom, Prenom;

ensuite pour l'appeler tu renseignes tes paramètres:

Code :

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

1
2
3
4
5
6
7
 
with QueryMain do begin
  Close;
  ParamByName('Groupe').Value := 'A'; // le groupe actuel 
  ParamByName('NomContact').Value := 'test'; // ton contact courant
  Open;
end;

@+

[lilo415]

Ok, merci

je vais testé ... mais ça ne marche pas, j'ai une erreur.

Logiquement ma reqête est :

Code :

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

1
2
3
 
SELECT CONTACTCLEUNIQ, NOM, PRENOM, CodeUser, GROUPE, NOMSOCIETE 
FROM VIEWCONTACT

Mais comme je change de nom ou le groupe sur chque fiche,je ne peux pas déclarer comme ça :

Cl@udius a écrit:
ensuite pour l'appeler tu renseignes tes paramètres:

with QueryMain do begin
Close;
ParamByName('Groupe').Value := 'A'; // le groupe actuel
ParamByName('NomContact').Value := 'test'; // ton contact courant Open;
end;

Est ce que je peux utiliser, quelque chose comme ça:

Code :

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

1
2
3
4
5
  ParamByName('NOM').Value := QueryMain.FieldByName('NOM').AsString; // ton contact courant
 
ou
 
  NameContact:= UpperCase(trim(DBNOM.EditText));

[aityahia]

si j'ai bien compri
vous voullez afficher dans le combobox les contacts d'un group

moi a votre place j'utiliserai une intégriter référencielle (avec la tabe group comme maitresse) et a DblookupCombobox.

[lilo415]

Bonjour,

Au départ j'avais utilisé un DbLookUpComboBox mais je ne sais pas m'en servir, donc j'ai utilisé un comboBox.

Si vous avez des explications à me donner pour que j'utilise un DbLookUpComboBox je suis prenante.

Merci d'avance

Lilo

[PadawanDuDelphi]

Salut,

Exemple: Tu relie ta Query à un TDatasource (appelons le Datasource1).
Tu pose ta DBLookUpComboBox, tu met le champs Source à la valeur datasource1, et la valeur keyfield au champs que tu veux afficher (ici "nom").

A+.

[lilo415]

Merci de ta réponse.

Je vais tester...

Bonne journée

Lilo

[PadawanDuDelphi]

De rien, c'est toujours un plaisir de rendre service.
Bonne journée à toi aussi,

A+.

[lilo415]

Re-bonjour,

Je viens de tester, j'ai fait comme tu me l'as dit mais rien ne s'affiche dans la DbLoopUpComboBox. Alors que les champs sont bien renseignées.

Auriez-vous une idée, pour résoudre ce problème??

Merci ...

Lilo

Ps: la fleche du DBLookupComboBox est grisé, comme si on ne pouvais rien affiché ou saisir

[PadawanDuDelphi]

Salut,

La première chose qui me viens à l'esprit c'est que ton ensemble de données est fermé.

As-tu pensé à faire:

Code :

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

QueryMain.Open;

A l'ouverture de ta form par exemple ? (En oubliant pas de la refermer à la sortie évidemment).

A+.

[Rayek]

Si c'est grisé, c'est que soit la source de données n'est pas connecté (open sur la requete) soit que la configuration du composant n'est pas la bonne.

Dans la il y a une QR qui explique la configuration du composant :

http://delphi.developpez.com/faq/?pa...omboboxcomment

[lilo415]

Merci de vos réponses...

Je vais essayer de me débrouiller avec tous vos conseils, en espèrant que ça marche

Merci bonne journée.

Lilo