Bonjour à tous,

Ca fait deux semaines que je planche sur un truc et jcommence vraiment à m'arracher les cheveux . Voila mon problème : J'ai une appli delphi simple pour l'instant avec un module de données qui interroge une base de données.

Structure de ma table THEME : id identity (1,1)
libelle char(20)

Dans mon interface : une combobox remplie sur un OnCreate

"procedure TfrmAjoutTheme.FormCreate(Sender: TObject);
var
i:integer;
begin
for i:=1 to 15 do
cbThemesExistants.Items.Add(dm.donneLibelleTheme());
end;"

Dans mon module : ma fonction qui est censé me retourner les libellés des thèmes.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
function tdm.donneLibelleTheme():string;
var
  req,theme:string;
  i:integer;
begin
  req:='select libelle from theme';
  dm.dsTmp.CommandText:=req;
  dm.dsTmp.Active:=true;
  for i:=1 to dm.dsTmp.RecordCount do
    theme:=dm.dsTmp.Fields[0].AsString;
  dm.dsTmp.Active:=false;
  result:=theme;
end;
Mon problème est que je n'arrive pas à afficher tous les thèmes dans ma combobox SANS UTILISER les id de thèmes. QUand je les utilise c'est facile j'ai juste ç changer ma requête dans la fonction et le tour est jouer mais JE NE SUIS PAS CENSÉ connaître ces ID puisqu'ils sont auto je ne dois pas m'en occuper.

Cordialement,
Merci d'avance.
GUillaume.