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 :Malheureusement, j'ai des erreurs suivantes:
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;Qu'est qui me manque les amis ?[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'
Partager