Null değerleri kontrol altına alma

 

 
Function uIsNull(pDeger, pNullDeger : Variant) : Variant;
Begin
If VarIsNull(pDeger) Then
Result := pNullDeger
Else
Result := pDeger;
End;

{Örneğin bir recordset içerisindeki herhangi bir alanın değeri bir değişkene atanıyor ise ve değişkenin o andaki değeri NULL olabilme ihtimali var ise programın atama hatası vermemesi için bu fonksiyon kullanılabilir.

ebUnvan.Text := uIsNull(rsPersonel.Fields['UnvanAdi'].Value, 'Unvanı Yok');

//eğer ünvan adı NULL ise ebUnvan.Text içerisine 'Unvanı Yok' değeri aktarılır.

yas := uIsNull(rsDegerler.Fields['Yas'].Value, 0);

// eğer Yas değeri NULL ise yas değişkenine 0 aktarılır.

 

Yorum Yapabilmek İçin Üye Girişi Yapmanız Gerekmektedir.

null değerleri kontrol altına alma