[mr_hso]

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

لدي مشروع فيجوال بيسك 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  فارغ
شكراً

[عبد العزيز البسكري]

السّلام عليكم و رحمة الله و بركاته

حاول أخي الكريم .. إضافة شرط و جرّب ..

كود :

     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

تحياتي

[mr_hso]

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

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


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

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

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

[عبد العزيز البسكري]

و لك بمثل ما دعوت أخي الغالي و زيادة ..

ما هي رسالة الخطأ التي تظهر لديك لو سمحت ..

تحياتي

[جميل]

استخدم IsDBNull لتتأكد من وجود قيمة قبل وضعها في الأداة مثل

PHP كود :

Dim v = dt.Rows(BindingContext(dt).Position).Item(3)
TextBox17.Text=If(IsDBNull(v),"",v) 


[mr_hso]

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


صورة الخطاء

[عبد العزيز البسكري]

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

تحياتي

[mr_hso]

(06-01-20, 12:02 PM)جميل كتب : استخدم IsDBNull لتتأكد من وجود قيمة قبل وضعها في الأداة مثل

PHP كود :

Dim v = dt.Rows(BindingContext(dt).Position).Item(3)
TextBox17.Text=If(IsDBNull(v),"",v) 


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

[جميل]

جرب تضع ToString للقيم النصية والرقمية (غير التاريخ) مثل

PHP كود :

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


[mr_hso]

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

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

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