منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم

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

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

كود :

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

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

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

كود :

   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]

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

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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

محمد اسماعيل

princelovelorn

محمد اسماعيل

princelovelorn