Discussion :

[sondo]

Bonjour,

J'ai cette requête :

Code :

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

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.

[SergioMaster]

une simple boucle while not EOF next ne suffit pas ?

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;

[sondo]

Oui ça suffit. Merci beaucoup SergioMaster.