[أم عبد العزيز]

ثانيا : عرض الصورة :

كود الإجراء:

كود :

create PROCEDURE view_img
(
@ID int,
@img image output
)

AS

SELECT         @ID= ID, @img=img
FROM           tabel1
where ID= @ID


RETURN

كود تحت الزرعرض:
وضعت عنصر image في النموذج لعرض الصورة وtextbox لإدخال رقم الملف.

كود :

Try
            con2.Open()

            com_image.Parameters("@ID").Value = TextBox1.Text




com_image.ExecuteScalar()


            Dim picture As Image = Nothing
            Dim bytee = CType(com_image.Parameters("@img").Value, Byte())
            Dim stream As New IO.MemoryStream(bytee)
            picture = Image.FromStream(stream)
            PictureBox1.Image = picture


        Catch ex As Exception
        Finally
            con2.Close()

        End Try