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é.
Etant debutant avec l'ADO , je vous prie de me montrer mon erreur , Mes remerciment d'avance .
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;
Partager