16-04-13, 03:46 PM
(آخر تعديل لهذه المشاركة : 16-04-13, 03:52 PM {2} بواسطة عبده الطوخى.)
السلام عليكم ورحمة الله وبركاته
عملت برنامج يقوم بحفظ الصورة من الجهاز إلى قاعدة البيانات sql ، وقد نجح بحمد الله الحفظ إلى الجدول
والآن أريد استدعاء الصورة من قاعدة البينات (يعني في عملية البحث عن البيانات ،
وهذه هي الأكواد التي استخدمتها لذلك (إلا أنها لم تنجح طريقة الاستدعاء)
كود الإجراء:
كود تحت الزر استخراج الصورة أو البحث عن الصورة بدلالة رقم الملف:
وضعت طبعا عنصر image في النموذج لعرض الصورة وtextbox لإدخال رقم الملف.
عملت برنامج يقوم بحفظ الصورة من الجهاز إلى قاعدة البيانات sql ، وقد نجح بحمد الله الحفظ إلى الجدول
والآن أريد استدعاء الصورة من قاعدة البينات (يعني في عملية البحث عن البيانات ،
وهذه هي الأكواد التي استخدمتها لذلك (إلا أنها لم تنجح طريقة الاستدعاء)
كود الإجراء:
كود :
ALTER PROCEDURE pc_image
(
@ID_file int,
@photo image output
)
AS
SELECT @ID_file= ID_file , @photo=photo
FROM full_data
where ID_file= @ID_file
RETURN
كود تحت الزر استخراج الصورة أو البحث عن الصورة بدلالة رقم الملف:
كود :
Try
con2.Open()
com_image.Parameters("@ID_file").Value = TextBox1.Text
com_image.ExecuteScalar()
Dim picture As Image = Nothing
Dim bytee = CType(com_image.Parameters("@Statuse_photo").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
وضعت طبعا عنصر image في النموذج لعرض الصورة وtextbox لإدخال رقم الملف.