Discussion :

[nefertari]

Bonjour,

Voici le code que j'ai utilisé pour sauvegarder des données, le temps de valider l'ensemble des modifications ou en cas d'annulation je peux restorer.

Code :

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

1
2
3
4
5
6
7
8
9
10
 with sps_Commande do
  begin
    Close;
    Parameters.ParamByName('@idCde').Value := idCde;
    if not Prepared then Prepared := True;
    Open;
    sNomFileTempCommande := 'C:/temp_Commande_'+Securite.getUser+'_' + IntToStr(iNumCde);
    SaveToFile(sNomFileTempCommande, pfADTG);
    Close;
  end;

Mais une fois de temps en temps, il bloque sur Close. Et après j'ai plein de message d'erreur "Exception ".

Est-ce que quelqu'un pourrais me dire comment résoudre ça ??

[ALWEBER]

Peut être remplacer

Code :

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

C:/temp_Commande

par

Code :

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

C:\temp_Commande

Voici une solution :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
with sps_Commande do
begin
  Close;
  Parameters.ParamByName('@idCde').Value := idCde;
  if not Prepared then Prepared := True;
  Open;
  sNomFileTempCommande := 'C:\temp_Commande_'+Securite.getUser+'_' + IntToStr(iNumCde);
  if FileExists(sNomFileTempCommande) then 
    DeleteFile(sNomFileTempCommande);
  SaveToFile(sNomFileTempCommande, pfADTG);
  Close;
end;

[nefertari]

Merci.

Mais malgré la correction, j'ai toujours le problème. Mais que occassionellement.

Donc si quelqu'un a une idée

[ALWEBER]

Tu peux dans ce cas utiliser un bloc "try ..." pour englober les instructions qui peuvent poser problème.
Autre piste - Si tu est en application Internet, vérifie que ton instruction ne se répète pas plusieurs fois

[nefertari]

Merci pour tes réponses.

[nefertari]

Exacte j'avais bien tout un bloc d'instruction qui se repettait.

Merci pour l'aide apporter