Discussion :

[Leesox]

Bonjour,

Je suis en test des composants UIB avec une base Firebird.

Je remplis un 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
procedure TfrmCreationCpte.MiseAJourComboBanque;
begin
  cbxBanque.Items.Clear;
  DM.qryBanqueSelect.Execute;
  With DM.qryBanqueSelect do
    begin
    First;
    While not eof do
      begin
      cbxBanque.Items.Add(Fields.ByNameAsString['BQE_NOMBANQUE']);
      next;
      end;
    end;
end;

Dans la table Banque, j'ai 3 enregistrements. (Banque 1 ; Banque 2et Banque 3).
Ce qui est bizarre, c'est que j'ai 4 passages de la boucle "While not eof do"

Le premier enregistrement est toujours une propriété d'un composant présent sur la fiche.
exemple :
- Calendar.StatusAppearance.Fill.GradientMirrorType
- Banque1
- Banque2
- Banque3

Là je bloque sur cette inchoérence.

[SergioMaster]

bonsoir,
plutôt qu'un execute mettre un Open ou un active:=True

[Ph. B.]

Bonsoir,

bonsoir,
plutôt qu'un execute mettre un Open ou un active:=True

Et puis aussi un DM.qryBanqueSelect.Close(etmCommit); après avoir alimenté la combobox. Cf. le help de UIB...

[Leesox]

Merci pour vos réponses

J'ai encore beaucoup de choses à apprendre moi.

Depuis 8 ans, j'utilisais ADO pour me connecter à une base Access, donc çà me change un peu de mes habitudes là

[SergioMaster]

la 'bonne habitude' à prendre c'est :
une query qui ne renvoie pas de données (i.e. update) -> execute
une query qui renvoie un ensemble de données (i.e. Select) -> Open

[Leesox]

Oui, de plus, dans le fichier "help" du répertoire UIB, tout y est expliqué.

Désolé, j'aurais pu l'ouvrir avant de poster.

Merci à vous deux.