SQL dışardan bir parametre ve ya deger atamak istiyorum

[Berdem]

Table ücret adında bir alanım var.Burda sql de bu alana değişik oranlarda artış yapabilmek için bir formülüm var.Kolon+Kolon*x/100 gibi (%) bu degere sql dışardan bir parametre ve ya deger atamak istiyorum ne yazık ki yapamadım. Aşağıdaki kod da cevap vermiyor.Yardımlarınızı rica ediyorum.

Kod: Tümünü seç

procedure TForm1.SpeedButton2Click(Sender: TObject);
var
gun:integer;
begin
with Query1 do
begin
gun:=StrToInt(InputBox('Güncelenecek table','Artış miktarını yazınız.. :',''));
Close;
SQL.Clear;
SQL.Add('update employee.db set Salary=salary+salary*:guni/100');
ParamByName('guni').AsInteger:=gun;
Prepare;
ExecSQL;

Prepare;
SQL.Clear;
SQL.Add('Select * from employee.db');
Open;
end;
end;

[mussimsek]

Merhaba,

1. Bu giriş için InputBox kullanmayın. Kullanıcı yanlış karakterler girebilir veya bir anda dalıp 10 yerine 100'e bassa karışıklık olur.

2. Parametre yerine SQL'i dinamik olarak oluştur. SQL.Clear'dan sonraki satırı şöyle yap :

SQL.Add('update employee.db set Salary=salary+salary*' + IntToStr(gun) + '/100');

Bu durumda ParamByName'e de gerek yok.

Kolay gelsin.