Problème de graph

Bonjour tout le monde, :D
Etant débutante en Delphi, je fais donc appel à vos connaissances.
J’ai une première application qui me permet de modifier ma base de donnée (ajout, modification, suppression) , quand je modifie le pays d’un client et que je clic sur valider j’ai une procédure qui me permet de mettre à jour , dans une table à part, le nombre d’enregistrement concernant le pays. Par exemple, si j’ai, au début, dans ma table France=> 1 client, Hongrie=> 2 clients, et que je change le pays d’un client de Hongrie en France, j’obtiens dans ma table France=>2, Hongrie =>1. J’espère que vous me suivez. Le changement se fait bien.
Mais j’ai une deuxième qui me permet de sortir un graph sur les pays, le problème est qu’il ne prend pas en compte mon changement je suis obligée d’arrêter l’application entière et de la rouvrir si je veux obtenir le graph correspondant au changement et là je ne sais pas comment faire. :cry:
Merci d’avance et bonne journée.

bonjour madame :wink:

Visiblement, c'est un problème de mise à jour du composant...

Tu dois avoir, dans ton composant qui s'appelle TDataSource ou un truc comme ça (celui duquel tu tires tes données pour faire le graphique), une procédure Update ou même carrément une propriété qui met à jour la base de données à chaqwue modification...

Bonne chance :D

Pourrait on avoir le code de ta procédure de mise à jour de tes données, déjà ? Merci !

voici le code de la mise à jour:

procedure TForm1.maj;
var nompays, sql, sql2, sql3,x:string;
monenreg,t,m:enreg;
nombre:integer;
begin
monenreg:=enreg.Create(Self);
sql:='select * from Pays';
monenreg.initialiser(sql,1);
while not monenreg.fin do
begin
nompays:=monenreg.extraitvaleur('NomPays');
nombre:=compteenreg('Pays',nompays);
m:=enreg.Create(Self);
sql2:='update Pays set NbPays='+IntToStr(nombre)+' where NomPays='+#39+nompays+#39+';';

m.initialiser(sql2,3);
m.executer;
m.fermer;
monenreg.avancer;
end;

monenreg.fermer;
end;

avec
function TForm1.compteenreg(champ:string; valeur:string):integer;
var monenreg:enreg;
sql:string;
begin
monenreg:=enreg.Create(Self);
sql:='select count(*) as nb from Info where '+champ+'='+#39+valeur+#39+';';
monenreg.initialiser(sql,1);
compteenreg:=monenreg.extraitvaleur('nb');
monenreg.fermer;
end;
Merci de vous pemcher sur le sujet.

Pourrais tu s'il te plait, éditer ton post et mettre ton code entre balises [ code ], comme ceci

Code:

---

exemple de code

---

C'est généralement plus lisible !

Merci

Est ce qu'entre

Code:

---

m.executer

---

et

Code:

---

m.fermer

---

, tu valides ta mise à jour (m.commit, ou quelque chose de ce genre)

le code de m.executer est

Code:

---

1 2 3 4

procedure enreg.executer(); begin latable.ExecSQL; end;

---

[/code]

Tu n'as pas un

Code:

---

LaTable.commit

---

que tu pourrais insérer après ?

Si oui, est ce que ça change quelque chose ?

je ne peut qu'insérer un

Code:

---

latable.CommitUpdates;

---

mais ça me plante mon prog il me mais comme erreur quand je modifie pas en mode modification en cache :?: