SQL Function(Scalar) / Dönen Değer

   Özel
ekran da SQL Function(Scalar) Nasıl Çağırılır ? 
Dönen değer nasıl alınır?

Adım 1: Form üzerinde değeri almak ve sonucu
görsel olarak görmek üzere iki adet TBtEdit yerleştirilir.

var         

  QryFunction :  TBtQuery;

begin                 

  QryFunction := TBtQuery.create(nil);

Try                                                

    with QryFunction do

    begin

      SQL.BeginUpdate;  

      SQL.Text := 'SELECT
dbo.PrgFn_StokKoduRecIDBul(' + STOK_KODU.SQLText + ') AS RESULT';

      SQL.EndUpdate; 

      DisableControls;

Open;                                                                              

      If
FieldByName('RESULT').AsInteger > 0 then SONUC.Text :=
FieldByName('RESULT').AsString;    

    end;                                       

  Finally QryFunction.Free; End;

end;

Yazar	Mesaj Konu Arama Topic Seçenekleri Yanıt Yaz Yeni Konu Oluştur Konuyu Yazdır Çeviri Konu
mervenur.demic Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Yeni Üye Kayıt Tarihi: 25 Ekim 2018 Durum: Aktif Değil Puanlar: 262	Mesaj Seçenekleri Yanıt Yaz Alıntı mervenur.demic Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Konu: SQL Function(Scalar) / Dönen Değer Gönderim Zamanı: 30 Ekim 2018 Saat 14:44
	Özel ekran da SQL Function(Scalar) Nasıl Çağırılır ? Dönen değer nasıl alınır? Adım 1: Form üzerinde değeri almak ve sonucu görsel olarak görmek üzere iki adet TBtEdit yerleştirilir. var QryFunction : TBtQuery; begin QryFunction := TBtQuery.create(nil); Try with QryFunction do begin SQL.BeginUpdate; SQL.Text := 'SELECT dbo.PrgFn_StokKoduRecIDBul(' + STOK_KODU.SQLText + ') AS RESULT'; SQL.EndUpdate; DisableControls; Open; If FieldByName('RESULT').AsInteger > 0 then SONUC.Text := FieldByName('RESULT').AsString; end; Finally QryFunction.Free; End; end;