Discussion :

[the watcher]

Bonjour les amis,
Je voudrais remplir un combobox à l'aide de TIBSQL qui est beaucoup plus conseillé par rapport à TIBQUERY que j'utilise jusqu'à présent. Alors j'ai essayé de mettre en place quelque chose de ce genre :

Code :

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

1
2
3
4
5
DataModule1.IBSQLService.SQL.Add('select SERVICE from SERVICE');
    DataModule1.IBSQLService.ExecQuery;
    while not DataModule1.IBSQLService.Eof do begin
      ComboBox2.Items.Add(DataModule1.IBSQLService.Fields['SERVICE'].AsString;)
      DataModule1.IBSQLService.Next;

Malheureusement, j'ai des erreurs suivantes:

[Erreur] AdherentFrm.pas(313): Types incompatibles : 'Integer' et 'String'
[Erreur] AdherentFrm.pas(313): Instruction attendu(e) mais ')' trouvé(e)
[Erreur] AdherentFrm.pas(327): Instruction attendu(e) mais 'PROCEDURE' trouvé(e)
[Erreur fatale] PrevoyanceExpert.dpr(57): Impossible de compiler l'unité utilisée 'Forms\AdherentFrm.pas'

Qu'est qui me manque les amis ?

[Cl@udius]

Salut

Fields n'attends pas le nom du champ (string) mais l'index de celui-ci (integer), d'où la 1° erreur de compilation.

Code :

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

ComboBox2.Items.Add(DataModule1.IBSQLService.Fields[0].AsString);

@+ Claudius

[the watcher]

Après correction de toutes les erreurs, le code fonctionne parfaitement et je trouve le composant encore plus rapide.

PARFAIT, Merci Cl@udius