Discussion :

[Jimmy_S]

Bonjour,

J'aimerai remplir une combobox avec des valeurs issus d'une requête SQL. J'arrive à faire cela (sauf qu'au niveau de l'objet qu'on doit passer en paramètre , j'ai mis un Tlabel qui ne sert à rien :p , car je n'avais pas d'objet relatif à ça).

Mes questions sont :

Y'a t'il un équivalent à la ComboBox mais sans la notion d'Objet , je veux juste des strings (pour ensuite récupérer celle qui est selectionnée) ?

Comment récupérer la string de la valeur selectionnée (uniquement la string , et non l'objet qui va avec).

En gros j'aimerai savoir si il n'y a pas un fonctionnement un peu comme HTML , avec une Value et une Caption.

merci d'avance.

[defluc]

Précise ta question:
Tu veux visualiser les résultats de ta requête dans une liste pour pouvoir sélectionner une ou des valeurs particulières ou simplement les stocker dans une liste pour pouvoir les récupérer par la suite.
Dance ce cas, il y a TStrings ou Array of String.

[fredraoul]

Si j'ai bien compris ton problème, je pense qu'il te suffit de faire une petite boucle :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Query1.sql.clear;
query1.sql.add('ta_requete');
query1.open;
 
ComboBox1.items.clear;
 
Query1.first;
while not Query1.eof do 
begin
  comboBox1.Items.add(query1.FieldByName('ton_champ').Value);
  query1.next;
end;

La comboBox ne contiendra alors que des strings, et pas d'objet correspondant (à moins que je ne me trompe), c'est comme ça que je l'ai toujours utilisée.
Tu accèdes à la valeur par ComboBox1.text.

[anapurna]

salut

euh la dblookupcombobox le fait tres bien direct avec les datasets ???

@+ Phil

[Jimmy_S]

J'ai trouvé la solution.

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
 
begin
 
mysql_select_db(mysql, pChar(dbname));
mysql_query(mysql, pChar('SELECT nom_type FROM type'));
Resultat:=mysql_use_result(MySQL);
if Resultat = nil then
  Compteurchamps := mysql_num_fields(Resultat);
  row:= mysql_fetch_row(Resultat);
    while Row <> nil do
     begin
      Combo_Type.Items.add(row[0]);
      Row := mysql_fetch_row(Resultat);
   end;
end;

Sinon , j'ai mis un petit topic ici , super important pour moi , si quelqu'un a la réponse :
http://www.developpez.net/forums/sho...d.php?t=243803