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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=24731)

كود اظهار الصورة من قاعدة البيانات الى اداة الصورة - aftfm - 30-04-18

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


استخدم هذا الكود لاظهار بعض بيانات الجدول من قاعدة بيانات اكسس الى اداة الليبل

المطلوب اظهار الصورة مع هذه البيانات الي اداة الصورة 

أمل التكرم بكيفية التعديل على هذا الكود لاظهار الصورة والبيانات معاً

كود :
Dim DataSet1 As New DataSet

            DataSet1.Clear()
            'البحث والفلترة
            Dim MYFilter As String = ""
            If Me.cmbUserName.Text.Trim.Length > 0 Then
                If MYFilter.Length = 0 Then
                    MYFilter = "WHERE(UserName LIKE '" & Me.cmbUserName.Text.Trim & "')"
                Else
                    MYFilter &= " AND (UserName LIKE '" & Me.cmbUserName.Text.Trim & "')"
                End If
            End If
            Using MYDataAdapter As New OleDbDataAdapter("SELECT * FROM tblEmployees " & MYFilter & "", Con)
                Call MYDataAdapter.Fill(DataSet1, "tblEmployees")
                If Me.BindingContext(DataSet1, "tblEmployees").Count <> 0 Then
                    Call MYDataAdapter.Fill(DataSet1, "UserNameTable")
                    For i = 0 To DataSet1.Tables(0).Rows.Count - 1
                        Me.lblRank.Text = DataSet1.Tables(0).Rows(i)("Rank").ToString
                        Me.lblFunc_Num.Text = DataSet1.Tables(0).Rows(i)("Func_Num").ToString

                        Me.PictureBox1.Image = DataSet1.Tables(0).Rows(i)("EmployeePhoto").FormattedValue

                    Next
                    'Else

                End If

            End Using
المشكلة في هذا السطر

Me.PictureBox1.Image = DataSet1.Tables(0).Rows(i)("EmployeePhoto").FormattedValue

RE: كود اظهار الصورة من قاعدة البيانات الى اداة الصورة - عبدالله الدوسري - 30-04-18

استبدلة بالكود التالي :
كود :
Me.PictureBox1.Image = Image.FromStream(New System.IO.MemoryStream(DataSet1.Tables(0).Rows(i)("EmployeePhoto")))


RE: كود اظهار الصورة من قاعدة البيانات الى اداة الصورة - aftfm - 30-04-18

ظهرت رسالة خطأ
مع ملاحظة 

احتمالية عدم وجود صورة في حقل الصورة

بمعنى بعض الاشخاص تم اضافة صورة له 
والبعض لم تتم اضافة الصورة