Discussion :

[heart100]

Salut mes amis ,
dans cette table je tente de faire des calcule en utilisant des variables (Dlphi 2010 + Sql server 2008)

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 :

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
 
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.........

[Michel.Priori]

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 :

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
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 :

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
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 :

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

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