Discussion :

[liazidf]

Bonjour,
je doit faire la somme d'une liste de champs, dans une procedure OnCalcField et récupérer le résultat dans un champ calculé, voici le bout de code que j'utilise:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure TDM1.ADOPrimesCalcFields(DataSet: TDataSet);
var lasomme : TADOQuery;
    toto : Currency;
begin
LaSomme.Create(self);
LaSomme.Connection:=DM1.ADOConnection1;
Lasomme.SQL.Add('select sum(ADOprimes.prime) as toto');
Lasomme.SQL.Add('where ADOPrimes.N° materiel= ADOMateriels.N° materiels');
LaSomme.ExecSQL;
ADOPrimesXPnette.Value:= LaSommeToto.value;
end;

[Nono40]

Tel qu'il est je doute qu'il compile

- Ce n'est pas execsql mais Open qu'il faut faire
- LaSommetoto n'est pas défini pas la requète vu que tu ne peux pas petre en champs presistants dans ce cas.
- Il faut libérer l'objet créé pour le pas perdre de mémoire
- C'est quoi le ADOPrimes.N° materiel= ADOMateriels.N° materiels ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TDM1.ADOPrimesCalcFields(DataSet: TDataSet);
var lasomme : TADOQuery;
begin
LaSomme.Create(self);
Try
  LaSomme.Connection:=DM1.ADOConnection1;
  Lasomme.SQL.Add('select sum(ADOprimes.prime) as toto');
  Lasomme.SQL.Add('where ADOPrimes.N° materiel= ADOMateriels.N° materiels');
  LaSomme.Open;
  ADOPrimesXPnette.Value:= LaSomme.FieldByNale('Toto').AsFloat;
  LaSomme.Close;
Finally
  LaSomme.Free;
end;

[liazidf]

Tel qu'il est je doute qu'il compile

- Ce n'est pas execsql mais Open qu'il faut faire
- LaSommetoto n'est pas défini pas la requète vu que tu ne peux pas petre en champs presistants dans ce cas.
- Il faut libérer l'objet créé pour le pas perdre de mémoire
- C'est quoi le ADOPrimes.N° materiel= ADOMateriels.N° materiels ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TDM1.ADOPrimesCalcFields(DataSet: TDataSet);
var lasomme : TADOQuery;
begin
LaSomme.Create(self);
Try
  LaSomme.Connection:=DM1.ADOConnection1;
  Lasomme.SQL.Add('select sum(ADOprimes.prime) as toto');
  Lasomme.SQL.Add('where ADOPrimes.N° materiel= ADOMateriels.N° materiels');
  LaSomme.Open;
  ADOPrimesXPnette.Value:= LaSomme.FieldByNale('Toto').AsFloat;
  LaSomme.Close;
Finally
  LaSomme.Free;
end;

Bonjour,
Mercu de votre réponse Nono40, j'ai mis résolu, car j'ai conçu la requete sous access, ensuite j'ai fait copie coller dans ADOQuery, et ça marche tres bien, donc ça m'a éviter les erreurs de syntaxe.