j'ai une boucle qui exécute autant de requetes que d'éléments dans la boucle..

je voudrais instaurer un mécanisme propre pour l'exécution des requêtes.. voila mon code:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
for j := 0 to myList.count-1 do
begin
maCommandeInsert := ' insert into myTable (champ1, champ2, champ3) VALUES (' +
   quotedstr(Edit1.Text) + ' , '  +
   quotedstr(Edit2.Text) + ' , '  +
   quotedstr(myList[j]) + ')'; // myList est une TStringList
 
//commande execQuery que j'ai écrite qui retourne un boolean  
if execQuery(ADOConnection1, cmd_Insert) then counter := counter +1;
  end;
end;
 
if counter = myList.count - 1 then showmessage('Tous les enregistrements ont été ajoutés');
comment afficher les enregistrements (en l'occurrence les éléments de myList) qui n'ont pas été ajoutés (pour des contraintes d'intégrité par exemple...)..
et puis deja, la dernière ligne que j'ai écrite est fausse car dans le cas ou j'ai un seul enregistrement (1 seul élément de myList), et que son insertion ait échoué, j'aurai quand même le message de confirmation..

Merci