+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : اعتماد قيمة فارغة لحقل صورة ole في Access [مجابة] (/showthread.php?tid=4115)
اعتماد قيمة فارغة لحقل صورة ole في Access [مجابة] - kslawy - 16-09-12
السلام عليكم ورحمة الله وبركاته
أخواني واجهتني هذه المشكلة وقد بحثت في الانترنت دون فائدة
الكود أدناه لتعديل صورة في حقل من نوع Ole في قاعدة بيانات آكسس :
PHP كود :
With FrmMain
If .pic.Image IsNot Nothing Then
Dim ms As New MemoryStream
.pic.Image.Save(ms, Imaging.ImageFormat.Jpeg)
Dim arrimg As Byte() = ms.GetBuffer
ms.Close()
CmdUPDate.Parameters.AddWithValue("@Img", OleDbType.Binary).Value = arrimg
Else
CmdUPDate.Parameters.AddWithValue("@Img", OleDbType.Binary).Value = Nothing
End If
* كما تلاحظون الكود يتحقق إذا كانت الصورة موجودة يتم حفظ التعديلات
* وإذا كانت غير موجودة فإنه يسند للباراميتر تبع الصورة Nothing وهنا تمكن المشكلة حيث تظهر رسالة مفادها (لا توجد قيمة إفتراضية للمعلمة Img@ ) أي لن تحفظ قيمة فارغة في هذا الحقل ...
* في واحدة من المحاولات أسندت للحقل قيمة (سالب واحد) أو (صفر) فعلاً يتم حفظها ولكنها طبعاً طريقة غير محبذة لأنني في مكان آخر أقوم بحساب عدد الاستمارات التي بها صور ، فيشمل الحساب أيضاً الحقل المسندة له قيمة (الصفر أو السالب) علي الرغم من عدم احتوائه علي صورة .
والسؤال هنا .. كيف أحفظ قيمة فارغة في حقل OLE ؟؟؟؟؟؟
الإجابة :
استبدل Nothing بـ DBNull.Value
[COLOR="#008000"]****
***
**
*[/COLOR]
اعتماد قيمة فارغة لحقل صورة ole في Access [مجابة] - mamas1 - 17-09-12
[SIZE=4]شكرا جزيلا لك
جزاك الله خيرا[/SIZE]
اعتماد قيمة فارغة لحقل صورة ole في Access [مجابة] - m.sami.ak - 17-09-12
طريقتك في التعبير جميلة جداً وشكراً للفائدة
اعتماد قيمة فارغة لحقل صورة ole في Access [مجابة] - kslawy - 17-09-12
يعطيك العافية أخي وشكراً جزيلاً
RE: اعتماد قيمة فارغة لحقل صورة ole في Access [مجابة] - honest - 27-10-14
الله يزيدك ابداع