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

[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

[freeman35]

select * from guncel_maliyet

[harezmi]

nasıl kullanacağım bu sorguyu?

[jakarta2]

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

[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.