Calcul dans un dataset en utilisant les Variables

Salut mes amis ,
dans cette table je tente de faire des calcule en utilisant des variables (Dlphi 2010 + Sql server 2008)
Pièce jointe 480330
je prépare le code suivante pour daclarer mes lignes de la colonne [Code] comme des variables quelque soit le nombre des lignes et apres leurs donner des valeurs selon les lignes montant ,puis faire un Update selon les formules de calcule pour avoir le resultat .Normalement le montant de la ligne R300=2+20385 et = 20387.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

procedure TForm1.Button1Click(Sender: TObject); var text,s:string; begin tab.First; while not tab.Eof do begin text:=''; text:=text + ' Declare @'+tab['code']+' float set @'+tab['code']+' = '+floattostr(tab['montant']) ; s:=''; if (tab['formule'] <> '') then begin s:=s+' update tab set montant ='+tab['formule']+' where code='+tab['code'] ; end;   tab.Next; end;   q.SQL.Clear; q.sql.Add(text); q.sql.Add(s); q.ExecSQL; end;

---

erreur:Must declare the scalar variable @2000.........

Salut à toi l'ami donc,

Désolé mais je ne sais pas lire ton script ; c'est ni du SQL ni du TRANSACT :(

En t'inspirant de ce modèle de code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

DECLARE @FORMULA VARCHAR(500); DECLARE @CHARSPLITER CHAR(1) = ' '; DECLARE @ELEMENT VARCHAR(MAX)=''; DECLARE @EXPR NVARCHAR(MAX)='';   SELECT @FORMULA=formule+@CHARSPLITER FROM tab WHERE Formule IS NOT NULL; WHILE CHARINDEX( @CHARSPLITER, @FORMULA )>0 BEGIN SET @ELEMENT=SUBSTRING( @FORMULA, 0, CHARINDEX( @CHARSPLITER, @FORMULA ) ); SELECT @EXPR+=CASE WHEN LEFT( @ELEMENT, 1 )='@' THEN (SELECT CAST( montant AS VARCHAR(MAX)) FROM dbo.tab WHERE Code=RIGHT( @ELEMENT, LEN( @ELEMENT )-1 ) ) WHEN @ELEMENT IN ('+', '-') THEN @ELEMENT ELSE NULL END; SET @FORMULA=SUBSTRING(@FORMULA, CHARINDEX(@CHARSPLITER, @FORMULA )+1, LEN(@FORMULA) ); END; SET @Expr='SELECT '+@Expr +' AS Résultat' ; SELECT * FROM tab; SELECT '{ ' + @expr +' }' as Ordre_SQL ; EXECUTE sp_executesql @stmt=@Expr;

---

Attention à la clause WHERE ...

Qui donne :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

id Code Name Formule montant ----------- -------------------------------------------------- -------------------------------------------------- ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- --------------------------------------- 1 R1000 JRS NULL 2.00 2 R2000 SBASE NULL 20385.00 3 R300 SB @R2000 + @R1000 NULL   (3*lignes affectées)   Ordre_SQL ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- { SELECT 20385.00+2.00 AS Résultat }   (1 ligne affectée)   Résultat --------------------------------------- 20387.00   (1 ligne affectée)

---

Tu pourras faire une proc-stock (ou un trigger) pour ensuite avoir un script du type :

Code:

---

1 2 3

declare @value int; exec @value = get_proc param; update table1 set field1 = @value;

---

Je te laisse ajouter toute la gestion des erreurs.

En espérant que ça réponde à ta demande ;)