Discussion :

[Abou Zar]

Bonjour,
Je veux récupérer les données d'une colonne de ma table dans un Combobox.
Et dans mon code ci dessous, il ya des dysfonctionnement.
Souvent il récupère les 2 première valeurs seulement (or il ya plusieurs valeurs) ou bien souvent il répète les mêmes valeurs plusieurs fois.

Merci de m'aider à le corriger.

Code :

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

1
2
3
4
5
  for i := 0 to DataModule1.IBTable1.RecordCount -1 
    begin
  edit_interne.Combo1.items.add(DataModule1.IBTable1.fieldbyname('LIBELLE').asString);
    DataModule1.IBTable1.next;
    end;

[Cl@udius]

Salut

Ce n'est pas conseillé d'utiliser la propriété RecordCount car elle peut ne pas correspondre au nombre d'enregistrements de la table.

Comme ceci, peut-être:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
var
  Fld: TField;
begin
  with DataModule1.IBTable1 do
  begin
    Fld := FieldByName('LIBELLE');
    First;
    while not Eof do
    begin
      edit_interne.Combo1.Items.Add(Fld.AsString);
      Next;
    end;
  end;
end;

J'ai extirpé le FieldByName de la boucle while. Inutile de rechercher constamment le même champ, une fois suffit

@+ Claudius.

[Gwenou]

tu pourrais pas faire plutôt un truc du genre (le code n'est pas forcément bon, mais c'est l'idée):

Code :

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

1
2
3
4
5
6
7
8
 
DataModule1.IBTable1.first;//se placer sur le premier élément de la table
//Itération sur chacun des éléments du tableau
while not DataModule1.IBTable1.eof do
begin
   edit_interne.Combo1.items.add(DataModule1.IBTable1.fieldbyname('LIBELLE').asString);
    DataModule1.IBTable1.next;
end;

parce que là avec ton index i et ton IBTable1.next j'ai l'impression que tu mélange les choux et les carottes? . en fait c'est quoi comme composant le ibTable1? c'est lié à un datasource?

[Gwenou]

Salut

Ce n'est pas conseillé d'utiliser la propriété RecordCount car elle peut ne pas correspondre au nombre d'enregistrements de la table.

Comme ceci, peut-être:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
var
  Fld: TField;
begin
  with DataModule1.IBTable1 do
  begin
    Fld := FieldByName('LIBELLE');
    First;
    while not Eof do
    begin
      edit_interne.Combo1.Items.Add(Fld.AsString);
      Next;
    end;
  end;
end;

J'ai extirpé le FieldByName de la boucle while. Inutile de rechercher constamment le même champ, une fois suffit

@+ Claudius.

Ok je viens de voir qu'on a répondu en parallèle ;-) ça me rassure l'idée est la même

[Cl@udius]

Salut

en fait c'est quoi comme composant le ibTable1?

IBTable est composant IBX (Interbase Express) fourni avec Delphi. C'est un DataSet de type TTable classique destiné à Interbase.

c'est lié à un datasource?

Ca peut, bien entendu, comme tout descendant de TDataSet, mais ce n'est pas nécessaire dans le cas présent.

@+

[Abou Zar]

Merci bien à vous! Mon problème est resolu.
Je veux souvent cliquer sur resolu pour dire que mon probleme est resolu mais je cherche le bouton en vain . Je ne sais pas où se trouve le bouton?
Si c'est le premier message je vois le bouton mais s'il ya eu des reponses je ne vois plus le bouton.

Comment ça se passe?

[Cl@udius]

Le bouton est situé juste en dessous du dernier message de la discussion.

[Gwenou]

en bas à droite .. après le dernier message ... ARRGGRRR Cl@udius tu réponds trop vite !!!