منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
جلب بيان من حقل فارغ - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : جلب بيان من حقل فارغ (/showthread.php?tid=32820)

جلب بيان من حقل فارغ - mr_hso - 06-01-20

السادة الزملاء الافاضل
اتمني ان تكونوا بصحة جيدا 

لدي مشروع فيجوال بيسك 2015 مرتبط بقاعدة بيانات اكسس

لدي فورم للستعلام يتم جلب بياناته (ملء الـ TEXTBOX الذي به من جدول اسمه LETTERS

وكود الجلب

كود :
Dim da As New OleDbDataAdapter("Select * from LETTERS", con)

Dim dt As New DataTable

da.Fill(dt)

TextBox17.Text = dt.Rows(BindingContext(dt).Position).Item(3)

لكن المشكلة ان بعض الحقول تكون فارغة وعند جلبها الى الفورم يحدث خطاء
هل يوجد كود يقوم بتجاهل الحقول الفارغة واظهار ال TEXTBOX  فارغ
شكراً

RE: جلب بيان من حقل فارغ - عبد العزيز البسكري - 06-01-20

السّلام عليكم و رحمة الله و بركاته
حاول أخي الكريم .. إضافة شرط و جرّب ..
كود :
     Dim da As New OleDbDataAdapter("Select * from LETTERS", con)
       Dim dt As New DataTable
       da.Fill(dt)
       If dt.Rows.Count > 0 Then
           TextBox17.Text = dt.Rows(BindingContext(dt).Position).Item(3)
       End If

تحياتي


RE: جلب بيان من حقل فارغ - mr_hso - 06-01-20

استاذ عبد العزيز ادام الله عليك الصحة والعافية 
وذاك الله علم

المشكلة استاذ عبد العزيز ما زالت قائمة


لان الصف به بيانات فقط هي بعض الحقول الفارغة 

لكنى فى النهاية جربة الكود لكنه اظهر خطاء ايضاً

اسف اذا كنت باثقل عليك

RE: جلب بيان من حقل فارغ - عبد العزيز البسكري - 06-01-20

و لك بمثل ما دعوت أخي الغالي و زيادة ..
ما هي رسالة الخطأ التي تظهر لديك لو سمحت ..
تحياتي


RE: جلب بيان من حقل فارغ - جميل - 06-01-20

استخدم IsDBNull لتتأكد من وجود قيمة قبل وضعها في الأداة مثل
PHP كود :
Dim v = dt.Rows(BindingContext(dt).Position).Item(3)
TextBox17.Text=If(IsDBNull(v),"",v) 


RE: جلب بيان من حقل فارغ - mr_hso - 06-01-20

شكرا لسرعة ردك استاذ عبد العزيز
وهذه ثقتي بك


صورة الخطاء






RE: جلب بيان من حقل فارغ - عبد العزيز البسكري - 06-01-20

جرب أخي الكريم ما تم طرحه من الأخ الكريم جميل و ان شاء الله تضبط معك .. لاني جربته مع حقل نصي فارغ و كله تمام
تحياتي


RE: جلب بيان من حقل فارغ - mr_hso - 06-01-20

(06-01-20, 12:02 PM)جميل كتب : استخدم IsDBNull لتتأكد من وجود قيمة قبل وضعها في الأداة مثل
PHP كود :
Dim v = dt.Rows(BindingContext(dt).Position).Item(3)
TextBox17.Text=If(IsDBNull(v),"",v) 

تمام استاذ جميل الكود قام بعمل اللازم
لكن بعد اذنك ان كده مضطر اني اكتبه فى كل عنصر عندي (كل تسكت بوكس) هل يمكن تعديله حتى يتم وضع اسماء العناصر كلها
وشكرا لذوقك

RE: جلب بيان من حقل فارغ - جميل - 06-01-20

جرب تضع ToString للقيم النصية والرقمية (غير التاريخ) مثل
PHP كود :
TextBox17.Text=dt.Rows(BindingContext(dt).Position).Item(3).ToString 


RE: جلب بيان من حقل فارغ - mr_hso - 06-01-20

تمام استاذ جميل الكود شغال 

اشكر لك ذوقك ومجهودك
وكذلك استاذي الفاضل عبد العزيز البسكري

جزاكم الله خيراً