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 08:03

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

Mesaj gönderen harezmi »

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: 2356
Kayıt: 12 Haz 2003 04:05
Konum: merkez camii yanı

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

Mesaj gönderen freeman35 »

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 08:03

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

Mesaj gönderen harezmi »

nasıl kullanacağım bu sorguyu?
jakarta2
Üye
Mesajlar: 74
Kayıt: 20 Nis 2015 06:51
İletişim:

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

Mesaj gönderen jakarta2 »

query'nin içinde kullanabilirsin, clientdataset ile commandtext'te kullanabilirsin her türlü kullanabilirsin.
Kullanıcı avatarı
sabanakman
Kıdemli Üye
Mesajlar: 3077
Kayıt: 17 Nis 2006 08:11
Konum: Ah bi Antalya olaydı keşke (Ankara)

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

Mesaj gönderen sabanakman »

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