Discussion :

[Ice-tea]

Bonjours a tous,
j'ai 2 question pour vous,

1) je cherche un moyen de lister dans un ComboBox les valeurs (sans doublons) des entrées de ma base de données (ex si dans le champs 'language' j'ai delphi php delphi C et bien je voudrais retrouver ces valeurs dans le combo), puis-je le faire avec un combobox ordinaire ? dois je utiliser un DBcombobox ? par ou débuter ? quelle est le principe ?

2) j'ai un datasource relié au clientdataset relié au clientsetprovider relié au query relié a la connection, quand je lance mon application les champs de DBGrid sont bien remplis néanmoins la seul requete que j'arrive a faire c'est celle que je tape a la main dans la propriété SQL du composant SQLquery (si je met rien dans cette propriété, delphi rale des le début me disant qu'il attend quelquchose, (j'ai essayer sqlquery1.sql.add('ma requete'); puis un open ou Execsql mais sa a pas l'air de fonctionner , voila si quelqu'un peut m'aiguiller un peu

mercii )
Ice Tea FrEsH

[qi130]

Pour le 1/ : tu peux effectivement faire avec un simple TCombobox:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
MonComboBox.Clear;
     With CustomerData do begin
        IBQueryG.Transaction:=IBTransaction1;
        IBQueryG.SQL.Clear;
        IBQueryG.SQL.Text:='SELECT DISTINCT LANGAGE as LANG FROM MaTable';
        IBQueryG.Active:=True;
        if (IBQueryG.RecordCount > 0) then begin
           IBQueryG.FetchAll;
           IBQueryG.First;
           While not IBQueryG.Eof do begin
             MonComboBox.Items.Add(IBQueryG.FieldByName('LANG').AsString);
             IBQueryG.Next;
           end;
        end;
 end;

A adapter selon tes besoins.

[Ice-tea]

Merci de ta réponse (je debut) et il ya a quelques points que je ne comprend pas pourrais tu m'expliquer rapidement :

-le CustomerData je ne sais pas a quoi il correspond pour moi

-LE IBqueryD jl'ai remplacer par SQLQuery (IBqueryD = composant pour les bases interbase ? ou c'est juste un SQLquery que tu as renomé ?

et :
IBQueryG.FetchAll;
IBQueryG.First

Voila merci de ton aide
(je sais pas si ca change quelques choses (donc c'est p-e un peu tard pour le dire) mais j'utilise une base sur un serveur MySql)

[qi130]

Le customerdata est une unité sans composant graphique servant à héberger les composants non graphiques utilisés par les autres unités, ainsi que des variables globales de l'appli.
On y trouve les composants database, query etc... mais on peut faire sans pour de petites applis

IBQueryG est un TIBQuery (Interbase donc), le G signifiant Général.

Dans le traitement que je t'ai donné, tu peux le remplacer par un simple TSQL puisque qu'on n'a pas besoin de se déplacer en arrière de le "Result-set".

Le FetchAll demande l'acquisition complète des lignes correspondant à la requète. Il me semble que cette méthode n'existe pas pour les simples TSQL car l'acquisition est complète dès l'ordre exécuté.

le First demande de se positionner sur la première occurrence retournée dans le result-set.

Quant à l'utilisation d'un serveur MySQL, je pense qu'il vaut mieux utiliser les composants dbExpress.

[Ice-tea]

j'ai adapter ton code comme ca :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
  SQLQuery1.SQL.Clear;
  SQLQuery1.SQL.Text:='SELECT DISTINCT NOM FROM personne';
  SQLQuery1.Active:=True;
  if (SQLQuery1.RecordCount > 0) then begin
    SQLQuery1.First;
    While not SQLQuery1.Eof do begin
      ComboBox1.Items.Add(SQLQuery1.FieldByName('LANG').AsString);
      SQLQuery1.Next;
      end;
  end;
end;

SQLQuery1.SQL.Text:='SELECT DISTINCT NOM as LANG FROM personne';
=> je ne sais pas As lang correspond, quand jexecute la requete il me dis qu'il y a une erreur dans la syntax SQL. (si j'enleve le As LANG il me dit opération non suporté).

ComboBox1.Items.Add(SQLQuery1.FieldByName('LANG').AsString); (fieldByName il sert a koi ? )

[qi130]

Oui, dans ton contexte, le "as lang" est de trop.

Quant à l'erreur, elle doit se produire sur le RecordCount...

Il y a aussi le FieldByName qui n'est plus "LANG", mais NOM"

[Ice-tea]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
begin 
 SQLQuery1.SQL.Clear;
  SQLQuery1.SQL.Text:='SELECT DISTINCT AGENCE FROM personne';
  SQLQuery1.Active:=True;
  SQLQuery1.First;
    While not SQLQuery1.Eof do begin
      ComboBox1.Items.Add(SQLQuery1.FieldByName('AGENCE').AsString);
      SQLQuery1.Next;
      end;
end;

Merci ca marche bien comme ca,
j'ai enlever if sqlqueryRecord > 0 enlevé et le SQLQury1.first ca risque pas de me poser des pbs par la suite ?