Discussion :

[seremei]

Bonjour j'ai un problème. Je cherche à remplir une combobox avec les données d'une table de base Access (Table Editeur {N°auto, NomEditeur: string}), cependant je n'y arrive pas.
Voivi mon code :

Code :

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

1
2
3
4
5
6
7
8
9
 
//On remplit la combobox editeur
  Form1.Table4.Open;
  Form1.Table4.First;
  while (Form1.Table4.Eof) do
  begin
    Form2.CbEditeur.Items.Add(Form1.Table4.FieldByName('NomEditeur').AsString);
    Form1.Table4.Next;
  end;

Je ne vois pas pourquoi ça ne fonctionne pas. Est-ce qu'il me manque quelque chose ?

Je voudrais également gérer, le cas où un Editeur ne serait pas dans la base, que la personne utilisant le logiciel puisse ajouter en écrivant simplement son nom dans la combobox.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
while (Form1.Table4.Eof)do
    begin
      if (CbEditeur.Text = Form1.Table4.FieldByName('Editeur').AsString) then
      begin
        {Le code se trouvant ici fonctionne}
      end
      else
      begin
        Form1.Table4.insert;
        Form1.table4.FieldByName('NomEditeur').AsString:= CbEditeur.Text;
        Form2.Close;
      end;
    end;

Là aussi ça ne fonctionne pas, cela fait un moment que je potasse avec l'aide Delphi mais je n'arrive pas à corriger le problème.

Merci d'avance pour vos réponse.

Cordialement

[seremei]

désolé du double post problème résolu. Il me manquait le Not après chaque while