الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

كيفية استبعاد الخلايا ذات القيمة Null

بدأه الحلفاوي في 30 سبتمبر 2012 · 3 رد · 1,833 مشاهدة · في لغة Delphi
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم جميعاً

البرنامج : يقوم بتحويل نتائج الطلاب من ملف اكسل الى قاعدة البيانات

لدي برنامج استجلب فيه البيانات من ملف اكسل الى قاعدة البيانات بعد ان اقرأ محتوى ملف الاكسل الى AdoDataset المشكلة هو انني لا اجد الشرط المحدد الذي به يمكنني استبعاد الخلايا ذات القيمة Null عند عملية تحويل البيانات الى قاعدة البيانات فالذي اريده بالضبط تتبع السيناريو التالي

 
 While not(DataSource.Dataset.eof)
Begin
// Here for loop to post data into database according to Excel column count
For i := 0 to ExcelColumnCount - 1 do
// Here i need some condition depend on AdoDataset methods or functions to determine wether this cell value is null or not
if(SomeCondition)then
Begin
Continue;
End
else
Begin
// Go A head posting...
End;

//Go next row
AdoDataset.Next;
End;

لانني اتحدث عن 22 او يزيد من عدد الحقول لكل المساقات الدراسية مجتمعة فيما لكل طالب من 7 الى 10 مواد كاقصى حد ,من ذلك يبدو جلياً انني ساتمكن من تقليل عدد السجلات في قاعدة البيانات بنسبة الثلث تقريباً ولا حاجة لان يكون لكل طالب

اكثر مما يليه من عدد المواد الدراسية

#2

السلام عليكم...

إذا كنت تقرأ البيانات من Excel باستخدام DataSet أو ADODataSet فإن المكون TField التابع للـ TDataSet له وظيفة IsNull لاختبار ما إذا كانت قيمة الحقل NULL أم لا:

if not ExecelDataSet.FieldByName('fieldname').IsNull Then

أما إذا كان غير ذلك فهناك الدالة VarIsNull التي تتأكد ما إذا كان متغيراً أو تعبيراً من النوع Variant هو NULL أم لا:

if VarIsNull(excel_cell_name) then

* طبعاً excel_cell_name هو التعبير الذي تستعمله لتحديد خلية في جدول Excel.

و هناك أيضاً الدالة VarIsEmpty و التي يمكنك استعمالها مع VarIsNull:

if VarIsEmpty(excel_cell_name) or VarIsNull(excel_cell_name) then

نرجو الاستفادة و السلام.

وَ قُلِ اعْمَلُوا فَسَيَرَى اللهُ عَمَلَكُمْ وَ رَسُولُهُ وَ الْمُؤْمِنُونَ

صدق الله العظيم

#3
najy_zl كتب:

السلام عليكم...

إذا كنت تقرأ البيانات من Excel باستخدام DataSet أو ADODataSet فإن المكون TField التابع للـ TDataSet له وظيفة IsNull لاختبار ما إذا كانت قيمة الحقل NULL أم لا:

if not ExecelDataSet.FieldByName('fieldname').IsNull Then

أما إذا كان غير ذلك فهناك الدالة VarIsNull التي تتأكد ما إذا كان متغيراً أو تعبيراً من النوع Variant هو NULL أم لا:

if VarIsNull(excel_cell_name) then

* طبعاً excel_cell_name هو التعبير الذي تستعمله لتحديد خلية في جدول Excel.

و هناك أيضاً الدالة VarIsEmpty و التي يمكنك استعمالها مع VarIsNull:

if VarIsEmpty(excel_cell_name) or VarIsNull(excel_cell_name) then

نرجو الاستفادة و السلام.

وهل اكثر من ذلك فائدة ........... ربنا يحفظك ويجعله لك ذخراً ودمتم

تم تعديل هذه المشاركة بواسطة الحلفاوي في 1 أكتوبر 2012 في 11:19

#4

ابداع :clapping_80_anim_gif:

من جد وجد ومن زرع حصد

مواضيع مشابهة