السادة الزملاء الافاضل
اتمني ان تكونوا بصحة جيدا
لدي مشروع فيجوال بيسك 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
تحياتي
استاذ عبد العزيز ادام الله عليك الصحة والعافية
وذاك الله علم
المشكلة استاذ عبد العزيز ما زالت قائمة
لان الصف به بيانات فقط هي بعض الحقول الفارغة
لكنى فى النهاية جربة الكود لكنه اظهر خطاء ايضاً
اسف اذا كنت باثقل عليك
و لك بمثل ما دعوت أخي الغالي و زيادة ..
ما هي رسالة الخطأ التي تظهر لديك لو سمحت ..
تحياتي
استخدم IsDBNull لتتأكد من وجود قيمة قبل وضعها في الأداة مثل
PHP كود :
Dim v = dt.Rows(BindingContext(dt).Position).Item(3)
TextBox17.Text=If(IsDBNull(v),"",v)
شكرا لسرعة ردك استاذ عبد العزيز
وهذه ثقتي بك
صورة الخطاء
جرب أخي الكريم ما تم طرحه من الأخ الكريم جميل و ان شاء الله تضبط معك .. لاني جربته مع حقل نصي فارغ و كله تمام
تحياتي
(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
تمام استاذ جميل الكود شغال
اشكر لك ذوقك ومجهودك
وكذلك استاذي الفاضل عبد العزيز البسكري
جزاكم الله خيراً