Discussion :

[nguema]

Bonjour,

Voici un problème que je ne sais par quel bout prendre, d'autant plus que je n'ai aucun message d'erreur mais juste un plantage.
Si quelqu'un pouvait m'éclairer, ça me rendrait grand service.

Extrait de 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
15
16
17
 
    dmParam.qryPlanningCapa.Parameters.ParamByName('usine').Value := 'test1';
    dmParam.qryPlanningCapa.Parameters.ParamByName('sem_min').Value := DteDebut[0];
    dmParam.qryPlanningCapa.Parameters.ParamByName('annee_min').Value := DteDebut[1];
    dmParam.qryPlanningCapa.Parameters.ParamByName('sem_max').Value := DteFin[0];
    dmParam.qryPlanningCapa.Parameters.ParamByName('annee_max').Value := DteFin[1];
    OuvrirTable(DTS_Gestion.DataSet); // Fonction conteanant Open
    DTS_Gestion_Charges.DataSet.DisableControls;
    while not(DTS_Gestion.DataSet.Eof) do
    begin
      DTS_Gestion.DataSet.Edit;
      DTS_Gestion.DataSet.FieldByName('charge').AsInteger :=
        DTS_Gestion_Charges.DataSet.FieldByName('id').AsInteger;
      DTS_Gestion.DataSet.Next;  // PLANTAGE ICI
    end;
    DTS_Gestion.DataSet.Edit; 
    DTS_Gestion.DataSet.Post;

DTS_gestion et DTS_Gestion_Charges sont des datasets pointant vers des TADOQuery
Le SQL de la query du DTS_gestion est de la forme

Code :

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

1
2
3
4
5
 
SELECT * FROM planning_capa
WHERE annee >= :annee_min AND semaine >= :sem_min
    AND annee <= :annee_max AND semaine <= :sem_max
    AND usine = :usine

On plante sur le next qui appelle post (en fait toute méthode appelant post placé à cet endroit fait planter)

Merci.

[aliwassem]

Code :

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

1
2
3
4
5
6
7
8
9
10
 
    while not(DTS_Gestion.DataSet.Eof) do
    begin
      DTS_Gestion.DataSet.Edit;
      DTS_Gestion.DataSet.FieldByName('charge').AsInteger :=
        DTS_Gestion_Charges.DataSet.FieldByName('id').AsInteger;
      DTS_Gestion.DataSet.Next;  // PLANTAGE ICI
    end;
    DTS_Gestion.DataSet.Edit; 
    DTS_Gestion.DataSet.Post;

Merci.

qu'est ce que je pense il faut changer la place de post et pourquoi la 2em Edit

Code :

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

1
2
3
4
5
6
7
8
9
    while not(DTS_Gestion.DataSet.Eof) do
    begin
      DTS_Gestion.DataSet.Edit;
      DTS_Gestion.DataSet.FieldByName('charge').AsInteger :=
        DTS_Gestion_Charges.DataSet.FieldByName('id').AsInteger;
      DTS_Gestion.DataSet.Post;
      DTS_Gestion.DataSet.Next;  // PLANTAGE ICI
    end;

[evarisnea]

@ aliwassem

Code :

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

1
2
3
4
5
6
7
8
9
    while not(DTS_Gestion.DataSet.Eof) do
    begin
      DTS_Gestion.DataSet.Edit;
      DTS_Gestion.DataSet.FieldByName('charge').AsInteger :=
        DTS_Gestion_Charges.DataSet.FieldByName('id').AsInteger;
      DTS_Gestion.DataSet.Post;
      DTS_Gestion.DataSet.Next;  // PLANTAGE ICI
    end;

détrompe moi mais la méthode Next appelle implicitement si besoin est la méthode Post non ?

[nguema]

Merci de vos réponses

En effet next appelle post, et le plantage en question se produit avec n'importe quelle fonction appelant post, y compris bien sûr post lui-même.

@ aliwassem: tu as raison, les deux dernières lignes semblent bien inutiles

Le problème est toujours d'actualité

[evarisnea]

as-tu un code dans les évènements OnBeforePost et/ou OnAfterPost ?

[aliwassem]

Code :

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

1
2
3
4
5
6
7
8
 
    while not(DTS_Gestion.DataSet.Eof) do
    begin
      DTS_Gestion.DataSet.Edit;
      DTS_Gestion.DataSet.FieldByName('charge').AsInteger :=
        DTS_Gestion_Charges.DataSet.FieldByName('id').AsInteger;
      DTS_Gestion.DataSet.Next;  // PLANTAGE ICI
    end;

je sais s'il faut aussi met le

Code :

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

DTS_Gestion_Charges.DataSet.Next

ou non

[Rayek]

Ca ne serait pas plus simple d'utiliser une requete Update ??