Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionwhile not QAccessData.Eof do begin list1:=ListView1.Items.Add; list1.Caption:=QAccessData.FieldByName('nom').Text+', '+QAccessData.FieldByName('prenom').Text; list1.SubItems.Add(QAccessData.FieldByName('mail').Text); DataPTX.QAdresseC.Next; end;