Discussion :

[freestyler]

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

[tourlourou]

bonjour,

je vois qqch du style :

Code :

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

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

[freestyler]

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

Merci

[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.

@+.

[tourlourou]

Code :

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

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