30-04-18, 11:19 PM
السلام عليكم ورحمة الله وبركاته
استخدم هذا الكود لاظهار بعض بيانات الجدول من قاعدة بيانات اكسس الى اداة الليبل
المطلوب اظهار الصورة مع هذه البيانات الي اداة الصورة
أمل التكرم بكيفية التعديل على هذا الكود لاظهار الصورة والبيانات معاً
المشكلة في هذا السطر
Me.PictureBox1.Image = DataSet1.Tables(0).Rows(i)("EmployeePhoto").FormattedValue
استخدم هذا الكود لاظهار بعض بيانات الجدول من قاعدة بيانات اكسس الى اداة الليبل
المطلوب اظهار الصورة مع هذه البيانات الي اداة الصورة
أمل التكرم بكيفية التعديل على هذا الكود لاظهار الصورة والبيانات معاً
كود :
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