Requête dans un TlistBox

Bonjour,

J'ai cette requête :

Code:

---

1 2 3 4 5

Query_Role.sql.Clear; Query_Role.Sql.Add('Select granted_role as role from dba_role_privs'); Query_Role.Sql.Add('Where grantee = ' + QuotedStr(Edit1.text)); Query_Role.Open; ListBox2.Items.Add(Query_Role.FieldByName('role').AsString);

---

C'est juste le premier résultat de la requête qui est afficher. Comment faire afficher toutes les lignes de la requête dans un ListBox ?.
Merci.

une simple boucle while not EOF next ne suffit pas ?

Citation:

---

Query_Role.sql.Clear;
Listbox2.Items.Clear;
Query_Role.Sql.Add('Select granted_role as role from dba_role_privs');
Query_Role.Sql.Add('Where grantee = ' + QuotedStr(Edit1.text));
Query_Role.Open;
While not Query_Role.eof do
begin
ListBox2.Items.Add(Query_Role.FieldByName('role').AsString);
Query_role.next;
end;

---

Oui ça suffit. Merci beaucoup SergioMaster.:king: