Parametre girerek UPDATE ile MSSQL de düzeltme yapmak

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
izmirlikemal
Üye
Mesajlar: 155
Kayıt: 10 Oca 2014 01:08
Konum: izmir/Buca

Parametre girerek UPDATE ile MSSQL de düzeltme yapmak

Mesaj gönderen izmirlikemal »

Merhabalar!
Sayın arkadaşlarım
Delphi 10.2 , windows 10 ve MSSQL server Management Studio 17 kullanıyorum.
Aşağıdaki kodlar ile veritabanında düzeltme yapmak istiyorum ama başarılı olamadım. Yanlışım nerede bilgi veren arkadaşlarıma sonsuz teşekkür ederim.
NOT: MusNo--> Musteri_ID (edit10 dan alıyorum)

Kod: Tümünü seç

procedure TMusteriFormu.Duzeltme;
Var
musno:Integer;
begin
  musno:=StrToInt(Edit10.Text);
  ADOQuery_Musteri.SQL.Clear;
  with ADOQuery_Musteri do
  begin
  SQL.Text:='UPDATE MusteriBilgileri SET Musteri_ADI=:Mus_ADI , Musteri_SOYADI=:Mus_SOYADI , Musteri_VERGIDAIRESI=:VergiDA WHERE Musteri_ID=:musno';
  Parameters.ParamByName('Mus_ADI').Value:= Edit1.Text;
  Parameters.ParamByName('Mus_SOYADI').Value:= Edit2.Text;
  Parameters.ParamByName('VergiDA').Value:= Edit14.Text;
  ExecSQL;
  Close;
  sql.text:='select * from MusteriBilgileri';
  Open;
  end;
  end;
ertank
Kıdemli Üye
Mesajlar: 1650
Kayıt: 12 Eyl 2015 12:45

Re: Parametre girerek UPDATE ile MSSQL de düzeltme yapmak

Mesaj gönderen ertank »

izmirlikemal yazdı: 19 Haz 2018 11:43 NOT: MusNo--> Musteri_ID (edit10 dan alıyorum)
MusNo query parametresine değer ataması yapmıyorsunuz. Diğer parametreler gibi aşağıdaki şekilde kullanmalısınız:

Kod: Tümünü seç

procedure TMusteriFormu.Duzeltme;
var
  MusNo: Integer;
begin
  MusNo := StrToInt(Edit10.Text);

  with ADOQuery_Musteri do
  begin
    SQL.Text := 'UPDATE MusteriBilgileri SET Musteri_ADI=:Mus_ADI , Musteri_SOYADI=:Mus_SOYADI , Musteri_VERGIDAIRESI=:VergiDA WHERE Musteri_ID=:MusNo';
    Parameters.ParamByName('Mus_ADI').AsString := Edit1.Text;
    Parameters.ParamByName('Mus_SOYADI').AsString := Edit2.Text;
    Parameters.ParamByName('VergiDA').AsString := Edit14.Text;
    Parameters.ParamByName('MusNo').AsInteger := MusNo;
    ExecSQL();
    SQL.Text := 'select * from MusteriBilgileri';
    Open();
  end;
end;
izmirlikemal
Üye
Mesajlar: 155
Kayıt: 10 Oca 2014 01:08
Konum: izmir/Buca

Re: Parametre girerek UPDATE ile MSSQL de düzeltme yapmak

Mesaj gönderen izmirlikemal »

ertank dostum merhaba, ilgine teşekkür ederim.
Ben Musno yu parametresiz direk yazıyordum. Olmuyordu program hata vermiyor ama düzeltmede yapmıyordu. Sizin öneriniz doğrultusunda düzenledim ve düzeltme işlemini gerçekleştirm. Hoşça kalın , işlerinizde başarı temennisiyle.
Cevapla