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

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
Berdem
Üye
Mesajlar: 431
Kayıt: 28 Tem 2003 12:28

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

Mesaj gönderen 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. :cry: 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;
Kullanıcı avatarı
mussimsek
Admin
Mesajlar: 7586
Kayıt: 10 Haz 2003 12:26
Konum: İstanbul
İletişim:

Mesaj gönderen 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.
Cevapla