Discussion :

[kroma23]

salut
jai une table paradox qui contient comme champs(nom,date,prix_unit,poid);
jai un label qui va afficher le total de tout les montant

Code :

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

1
2
3
4
5
6
7
 
table1.first;
s:=0;
while not table1.eof do
begin
s:=s+table1.(fieldvalues['prix_unit']*table1.fieldvaluies['poid']);
table1.next;

et finalement ce total sera afficher dans un label.
mon probleme est au moment de calcul tu te sent que ton programme plante
car jai nombre elver d'enregistrement.
est ce qu'il ya une solution dans le kel je peut eviter ce probleme est et ce que la mauvaise configuration du pc(vitesse du processeur,la ram) r'entre dans ce probleme.
merci

[mdordenart]

Bonjour,

Pourquoi ne fais tu pas le calcul dans ta requete ?

[kroma23]

re
mais jai pas comprie bien ta reponce.
merci

[mdordenart]

je suppose que pour lire ta table, il y a un select * from table qui est fait.

pourquoi ne fais tu pas plutot un
select sum(prix_unit*poid) from table. Cela doit etre possible en paradox

[kroma23]

re
est ce que si je utilise des requete sql la vitesse de calcul sera augmenter.
merci

[kroma23]

re
jai esseyé ta requete

Code :

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

1
2
 
query1.sql.add('select sum(prix_unit*poid) from matable');

mais mon probleme comment je puisse affecter le resultas de cette requete dans un label.caption.
merci

[Franck SORIANO]

re
est ce que si je utilise des requete sql la vitesse de calcul sera augmenter.
merci

Si tu travaillais avec un vrai SGBD, la réponse serait oui.
Mais avec Paradox, j'ai bien peur que non. J'imagine que tu dois aussi utiliser le BDE.
Avec BDE+Paradox, la manipulation directe des tables est plus rapide que les requêtes SQL.

Par contre, tu peux améliorer les performances en définissant des variables pour accéder directement au TField au début de la boucle :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
var
  PrixUnit, Poid : TField;
  s : double;
begin
  PrixUnit := table1.FieldByName('prix_unit');
  Poid := table1.FieldByName('poid');
  Table1.First;
  s := 0;
  while not Table1.eof do
  begin
    s := s + PrixUnit.AsFloat * Poid.AsFloat;
    Table1.Next;
  end;

De cette façon, tu évites que le TTable doivent rechercher le TField correspondant à chaque lecture du champ.
De plus en passant par AsFloat, tu évites de faire les calculs sur des variants qui vont encore ralentir le traitement.

Ensuite, si tu peux te le permettre, tu peux aussi essayer de passer la table en accès exclusif (ce qui interdira à tout autre utilisateur de la lire en même temps). Ca permet au BDE se s'affranchir d'une partie de la gestion des verrous et ça permet d'accélérer un peu les performances de lecture de la table.