14-02-19, 06:51 AM
وعليكم السلام ورحمة الله وبركاته
جرب الكود التالي
كود :
Sub show_Image()
Dim indx = DATAG_EMPLOYE.SelectedRows(0).Index
Dim sql = "select * from EMPLOYE_TB where EMPLOYE_ID ='" & indx & "'"
Dim adp As New SqlClient.SqlDataAdapter(sql, sqlcon)
Dim ds As New DataSet
adp.Fill(ds)
Dim dt = ds.Tables(0)
If dt.Rows.Count = 0 Then
MsgBox("لم يتم العثور على السجل", MsgBoxStyle.Exclamation, "رسالة تنبيه")
Else
Dim dr = dt.Rows(0)
On Error Resume Next
If IsDBNull(dr!EMPLOYE_IMAGE) = False Then
Dim imgbytearray() As Byte
imgbytearray = CType(dr!EMPLOYE_IMAGE, Byte())
Dim stream As New MemoryStream(imgbytearray)
Dim bmp As New Bitmap(stream)
FEMPLOYDETUPDAT.PIC_EMPLOYEE.Image = Image.FromStream(stream)
stream.Close()
End If
End If
End Subتمنياتي لك بالتوفيق والنجاح
لا إله إلا الله وحده لا شريك له له الملك وله الحمد وهو على كل شئ قدير
سبحان الله وبحمده سبحان الله العظيم
سبحان الله والحمد لله ولا إله إلا الله والله أكبر ولا حول ولا قوة إلا بالله العلى العظيم
رب أغفر لي
