[aftfm]

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


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

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

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

كود :

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

[عبدالله الدوسري]

استبدلة بالكود التالي :

كود :

Me.PictureBox1.Image = Image.FromStream(New System.IO.MemoryStream(DataSet1.Tables(0).Rows(i)("EmployeePhoto")))

[aftfm]

ظهرت رسالة خطأ

---

مع ملاحظة 

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

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