SQL SERVER'dan Delphi'ye parametre değerini göndermek

MS SQL Server veritabanı ve SQL komutlarıyla ilgli sorularınızı sorabilirsiniz. Delphi tarafındaki sorularınızı lütfen Programlama forumunda sorunuz.
Cevapla
harezmi
Üye
Mesajlar: 11
Kayıt: 20 Oca 2018 07:03

SQL SERVER'dan Delphi'ye parametre değerini göndermek

Mesaj gönderen harezmi » 25 May 2019 10:22

merhaba arkadaşlar.
başlıkta da yazdığım gibi ms sql serverdaki bir stored proceduredeki parametrenin değerini delphiye gönderip orada kullanmak istiyorum.
göndereceğim şey aşakğıdaki kodlarda @sonuc parametresi. yardımcı olursanız çok sevinirim. şimdiden teşekkürler

ALTER PROC [dbo].[guncel_maliyet](
@urunid int,
@tar1 date,
@tar2 date,
@tutaral real,
@tutarsat real,
@sonuc real output
)as
SET @tutaral=(select SUM(alis_tutar) from alis_tbl where alis_tarih_saat between @tar1 and @tar2 and alis_urunID=@urunid)
SET @tutarsat=(select SUM(satis_tutar) from satis_tbl where satis_tarih_saat between @tar1 and @tar2 and satis_urunID=@urunid)
SET @sonuc=@tutaral-@tutarsat

Kullanıcı avatarı
freeman35
Admin
Mesajlar: 2178
Kayıt: 12 Haz 2003 03:05
Konum: merkez camii yanı

Re: SQL SERVER'dan Delphi'ye parametre değerini göndermek

Mesaj gönderen freeman35 » 26 May 2019 09:40

select * from guncel_maliyet
ZAGOR TENAY TÜRK'tür... TÜRK kalacak...
Zoru başarırım, İmkansız zaman alır
FreeMan 35.5

Soru sormaya üşenmiyorsan, sorunun çözümünü yazmaya da üşenme !!!

harezmi
Üye
Mesajlar: 11
Kayıt: 20 Oca 2018 07:03

Re: SQL SERVER'dan Delphi'ye parametre değerini göndermek

Mesaj gönderen harezmi » 27 May 2019 08:08

nasıl kullanacağım bu sorguyu?

jakarta2
Üye
Mesajlar: 70
Kayıt: 20 Nis 2015 05:51
İletişim:

Re: SQL SERVER'dan Delphi'ye parametre değerini göndermek

Mesaj gönderen jakarta2 » 22 Şub 2020 04:29

query'nin içinde kullanabilirsin, clientdataset ile commandtext'te kullanabilirsin her türlü kullanabilirsin.

Kullanıcı avatarı
sabanakman
Kıdemli Üye
Mesajlar: 3051
Kayıt: 17 Nis 2006 07:11
Konum: Ah bi Antalya olaydı keşke (Ankara)

Re: SQL SERVER'dan Delphi'ye parametre değerini göndermek

Mesaj gönderen sabanakman » 23 Şub 2020 03:43

Stored Procedure kullanmanın bir çok yolu olduğu gibi direkt kullanmayı amaçlayan bileşenleri sorarsanız ADO seti için TADOStoredProc, FireDAC için TFDStoredProc, UniDAC için ise TUniStoredProc bileşenleridir. Aşağı yukarı her birisinin kullanım şekilleri aynıdır. Yukarıdaki örneğe göre FireDAC üzerinden ise...

Kod: Tümünü seç

function SonucHesapla(id: Integer; tar1, tar2: TDateTime; alis_tutari, satis_tutari: Double): Double;
var Sonuc: Variant; 
begin
  FDStoredProc1.StoredProcName := 'guncel_maliyet';
  FDStoredProc1.Prepare;
  FDStoredProc1.Params.ParamByName('@urunid').Value := id;
  FDStoredProc1.Params.ParamByName('@tar1').Value:= tar1;
  FDStoredProc1.Params.ParamByName('@tar2').Value:= tar2;
  FDStoredProc1.Params.ParamByName('@tutaral').Value:= alis_tutari;
  FDStoredProc1.Params.ParamByName('@tutarsat').Value := satis_tutari;
  FDStoredProc1.ExecProc;
  Sonuc := FDStoredProc1.Params.ParamByName('@sonuc').Value;
  if VarIsNull(Sonuc) then
    Result := 0
  else Result := Sonuc;
end;
şeklinde kullanılabilir.
Şaban Şahin AKMAN
_________________
Derin olan kuyu değil kısa olan iptir. - .

Cevapla