vérification à la sortie d'une boucle

Version imprimable

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:

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

bonjour,

je vois qqch du style :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
FailedList.Clear; // autre TStingList
 
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
 
if not execQuery(ADOConnection1, cmd_Insert) 
then FailedList.Add(myList[j]);
end;
 
if FailedList.Count=0 then // OK

10/10/2006, 14h10
freestyler

comment je pourrais afficher dans un seul showmessage tous les éléments de ma FailedList ??

Merci
10/10/2006, 14h19
PadawanDuDelphi

Bonjour,

Stocke tes erreurs dans une variable ansistring ou dans un tableau (ma solution préférée), et ajoute les erreurs au fur et a mesure que tu les détectes, et à la fin de ta boucle tu affiche ton showmessage.

Mais personnellement pour afficher les erreurs j'utilise une autre fiche dans laquelle je pose une listbox, et en cas d'erreur elle m'affiche le tableau d'erreur que j'ai précedemment créé.

En espérant que ça t'inspirera.

@+.
10/10/2006, 15h44
tourlourou

Code:

ShowMessage('Erreurs sur les enregistrements : '+FailedList.Text);