Discussion :

[iam]

j'ai une boucle :

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
    ORATable.close;
    article.first;
    ORATable.TableName:='consolide.article';
    label2.Caption:='Article';
    ORATable.Open;
    progress2.PartsComplete:=0;
    progress2.TotalParts:=ARTICLE.RecordCount;
    progress2.Visible:=true;
    while not article.Eof do
      begin
        ORATable.Append;
        ORATable.FieldByName('ARTCOD').AsString:=article.FieldByName('ARTCOD').AsString;
        ORATable.FieldByName('MRQCOD').AsString:=article.FieldByName('MRQCOD').AsString;
        ORATable.FieldByName('UNICOD').AsString:=article.FieldByName('UNICOD').AsString;
        ORATable.FieldByName('MGSCOD').AsString:=article.FieldByName('MGSCOD').AsString;
        ORATable.FieldByName('ARTDES').AsString:=article.FieldByName('ARTDES').AsString;
        ORATable.FieldByName('ARTORG').AsString:=article.FieldByName('ARTORG').AsString;
        ORATable.FieldByName('ARTCAR').AsString:=article.FieldByName('ARTCAR').AsString;
        ORATable.FieldByName('ARTMAX').AsFloat:=article.FieldByName('ARTMAX').AsFloat;
        ORATable.FieldByName('ARTMIN').AsFloat:=article.FieldByName('ARTMIN').AsFloat;
        ORATable.FieldByName('ARTPRX').AsFloat:=article.FieldByName('ARTPRX').AsFloat;
        ORATable.FieldByName('ARTDEV').AsFloat:=article.FieldByName('ARTDEV').AsFloat;
        ORATable.FieldByName('ARTENTD').AsDateTime:=article.FieldByName('ARTENTD').AsDateTime;
        ORATable.FieldByName('ARTENTQ').AsInteger:=article.FieldByName('ARTENTQ').AsInteger;
        ORATable.FieldByName('ARTSORD').AsDateTime:=article.FieldByName('ARTSORD').AsDateTime;
        ORATable.FieldByName('ARTSORQ').AsInteger:=article.FieldByName('ARTSORQ').AsInteger;
        ORATable.FieldByName('ARTQTE').AsInteger:=article.FieldByName('ARTQTE').AsInteger;
        ORATable.FieldByName('ARTCAS').AsString:=article.FieldByName('ARTCAS').AsString;
        //ORATable.FieldByName('ARTTPV').AsString:=article.FieldByName('ARTTPV').AsString;
        //ORATable.FieldByName('ARTRTGD').AsDateTime:=article.FieldByName('ARTRTGD').AsDateTime;
        //ORATable.FieldByName('ARTRTGQ').AsInteger:=article.FieldByName('ARTRTGQ').AsInteger;
        //ORATable.FieldByName('ARTREFD').AsDateTime:=article.FieldByName('ARTREFD').AsDateTime;
        //ORATable.FieldByName('ARTREFQ').AsInteger:=article.FieldByName('ARTREFQ').AsInteger;
        ORATable.Post;
        progress.IncPartsByOne;
        progress2.IncPartsByOne;
        article.Next;
        Application.ProcessMessages;
      end;

quand le pourcentage de progression atteint 7% un message d'erreur qui apparait : (une opération en plusieurs etatpes a généré des erreurs, vérifier chaque valeur d'etat), quelqu'un peut m'expliquer qu'est ce que ça veut dire ce message dc'erreur, ça a marché avant sans pb

[qi130]

Quelle technique de connexion est-elle utilisée ?

N'y a-t'il pas d'autre(s) erreur(s) ? (SQL ?)

Combien d'itérations dans la boucle ?

Une bonne habitude : utiliser un try..except lors de l'écriture des données permettant de trapper une erreur éventuelle

[iam]

j'utilise le composant ADO pour se connecter à la base de données oracle installée dans le serveur base de données.

je pense pas qu'il y a une autre erreur SQL parceque j'ai la bar de progression qui s'arrete à 7%

la table article contient 28485 enregistrements donc 28485 itérations
comment je fais le try except dans ce cas là?