Discussion :

[Kaderovich]

Bonjour amis developpeurs(se) ,

Je vous expose mon probleme que j'ai rencontré avec delphi7 Entreprise et Access. Le but de mon programme et de ajouter des frais contenus dans db1 avec les ecritures associées (valeur 'piece' identique) contenus dans db.
j'ai le message " La ligne n'a pas pu etre trouvée pour la mise a jours, Certaines valeur on peut etre changée depuis leur dernière lecture ".

Voici le code associé.

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
procedure FusionFrais (var db,db1:Tadotable);
 var v,s:string;
 
begin
db1.First;
while not db1.Eof do
  begin
     v:=db1.FieldByName('montant').AsString;
     s:=db1.fieldbyname('piece').asstring;
     if (db.locate('piece',s,[])) then
 
       begin
       db.edit;
       db.FieldByName('frais').asstring:= v;
       db.Post ;
       end;
 
    db1.Next;
  end;
 
end;

Etant debutant avec l'ADO , je vous prie de me montrer mon erreur , Mes remerciment d'avance .

[aityahia]

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
procedure FusionFrais (var db,db1:Tadotable);
 var v,s:string;
 
begin
db1.First;
while not db1.Eof do
  begin
     v:=db1.FieldByName('montant').AsString;
     s:=db1.fieldbyname('piece').asstring;
     if (db.locate('piece',s,[])) then
 
       begin
       db.refrech // <--- ajoute sa  
       db.edit;
       db.FieldByName('frais').asstring:= v;
       db.Post ;
       end;
 
    db1.Next;
  end;
 
end;

[Rayek]

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
procedure FusionFrais (var db,db1:Tadotable);
 var v,s:string;
 
begin
db1.First;
while not db1.Eof do
  begin
     v:=db1.FieldByName('montant').AsString;
     s:=db1.fieldbyname('piece').asstring;
     if (db.locate('piece',s,[])) then
 
       begin
       db.refrech // <--- ajoute sa  
       db.edit;
       db.FieldByName('frais').asstring:= v;
       db.Post ;
       end;
 
    db1.Next;
  end;
 
end;

Ne surtout pas faire ce que propose aityahia
Car après un refresh, la table est repositionnée sur le premier enregistrement.
Le refresh est comme un Close/open donc ca ne remplira que le premier enregistrement avec le calcul.

[Kaderovich]

Merci a vous deux , ça marche impec

[aityahia]

Code :

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

1
2
3
4
 
Ne surtout pas faire ce que propose aityahia
Car après un refresh, la table est repositionnée sur le premier enregistrement.
Le refresh est comme un Close/open donc ca ne remplira que le premier enregistrement avec le calcul

Il fau essayer j'ai eu se probleme j'ai vraiment souffert et j'ai pu regler le problemme de cette maniere, en plus le refresh je position pas sur le premier enregistrement. c avant le edit qu'il a était appeler.