[محمد اسماعيل]

السلام عليكم

اريد عرض صورة موظف بواجهة اخري غير المحفوظ فيها جدول الداتا جريد
اريد عرض الصورة من الداتا سيت الي صندوق الصور

حاولت بالكود دة وفشلت

كود :

indx = DATAG_EMPLOYE.SelectedRows(0).Index
               fillDATASET(Me, DSDETAILS, "EMPLOYE_TB", "SELECT * FROM EMPLOYE_TB WHERE EMPLOYE_ID =" & DATAG_EMPLOYE(1, indx).Value.ToString() & "")
               If DSDETAILS.Tables("EMPLOYE_TB").Rows.Count > 0 Then
                   Dim img As Byte()

                 ' المشكلة هنا '  img = DSDETAILS.Tables("EMPLOYE_TB").Rows(0)("EMPLOYE_IMAGE").value
                   Dim ms As New MemoryStream(img)
                   FEMPLOYDETUPDAT.PIC_EMPLOYEE.Image = Image.FromStream(ms)

               End If

[princelovelorn]

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

جرب الكود التالي

كود :

   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

تمنياتي لك بالتوفيق والنجاح

[محمد اسماعيل]

اسال [b]الله ان يجعلة في ميزان حسناتك[/b]

[princelovelorn]

(15-02-19, 06:12 AM)محمد اسماعيل كتب : اسال [b]الله ان يجعلة في ميزان حسناتك[/b]

اللهم أمين وإياك