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