+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=28067)
مشكلة في كود الصورة - Adata - 29-12-18
السلام عليكم ....ارجو مساعدة في كود الصورة ...اريد عندما لا يوجد صورة يعطي رسالة لا يوجد صورة ..بمعني عندما يكون نوع الحقل صورة Null يعطي رسالة لا يوجد صورة ...اختبار حقل الصورة كيف
PictureBox3.BackgroundImage = Nothing"
Dim sql As String
sql = " select pic from Categories where Num=" & Text_Num.Text.Trim
Dim adp As New SqlDataAdapter(sql, con)
Dim ds As New DataSet
( adp.Fill(ds
If ds.Tables(0).Rows.Count <> 0 Then
(() Dim imageData() As Byte = CType(ds.Tables(0).Rows(0).Item("pic"), Byte
(Dim ms As New IO.MemoryStream(imageData
( PictureBox3.BackgroundImage = Image.FromStream(ms
End If
RE: مشكلة في كود الصورة - a.wagdi - 29-12-18
وعليكم السلام ورحمة الله
رجاء وضع الأكود في وسم php
قبل التعامل مع بيانات الصورة يتم التأكد من وجود بيانات فعلا عن طريق IsDBNull
تفضل التعديل
PHP كود :
PictureBox3.BackgroundImage = Nothing
Dim sql As String
sql = " select pic from Categories where Num=" & Text_Num.Text.Trim
Dim adp As New SqlDataAdapter(sql, con)
Dim ds As New DataSet
adp.Fill(ds)
If Not IsDBNull(ds.Tables(0).Rows(0).Item("pic")) Then
If ds.Tables(0).Rows.Count <> 0 Then
Dim imageData() As Byte = CType(ds.Tables(0).Rows(0).Item("pic"), Byte())
Dim ms As New IO.MemoryStream(imageData)
PictureBox3.BackgroundImage = Image.FromStream(ms)
End If
End If
RE: مشكلة في كود الصورة - Adata - 29-12-18
بارك الله فيك ...اشتغلت معايا كما انت كتبت ولكن لم افهم
كيف يجب ان اضع الكود في وسم php