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

استطعت فتح الملفات ، ولكن البرنامج لم يتعرف على الصنف : Microsoft.Reporting.WinForms.ReportViewer

كما أني لم أستطع فهم الأكواد ..

سأكتب أكوادي التي استعملتها هنا ، وأتمنى من فضلكم إخباري إن كانت صحيحة أم لا ، سواء في إدخال الصورة أم في عرضها .

1- فورم إدخال الصورة :

أولا : الجدول في السيكوال tabel1:
ID int
img image

ثانيا: البروسيجر للإضافة:

كود :

create procedure add_image

(

@id int,
@Statuse_photo image
)

AS
insert into tabale1 (ID,img)
values (@ID, @img)

RETURN

ثالثا : الكود في البرنامج:
(بإضافة مربع صورة ، ومربع حوار لفتح الصورة ، وزر )
تحت زر فتح الملف

كود :

''كود فلترة الملفات التى يمكن تحميلها وهى هنا صور فقط
        OpenFileDialog1.Filter = "JPEG files (*.jpeg)|*.jpg|JPG files (*.jpg)|*.jpg|BITMAP files (*.bmp)|*.bmp|GIF files (*.gif)|*.gif"
        ''كود فتح أداة إختيار الملفات
        OpenFileDialog1.ShowDialog()

تحت زر حفظ:

كود :

Try

            con1.Open()

   Dim file_path As String
            file_path = txt_file_path.Text

            ''يختبر تحميل صورة من الكمبيوتر
            If txt_file_path.Text.Trim <> "" Then
                ''يقوم بعمل متغير من النوع صورة ويحفظ بداخله الصورة المحملة
                Dim picture As Image = Image.FromFile(file_path)
                ''يقوم بتعريف متغير من نوع ذاكرة
                Dim stream As New IO.MemoryStream
                ''يقوم بحفظ متغير الصورة والذى يحتوى على الصورة داخل متغير الذاكرة
                picture.Save(stream, Imaging.ImageFormat.Jpeg)
                ''تمرير قيمة متغير الذاكرة إلى البارامتر
                com_add.Parameters("@img").Value = stream.GetBuffer()
            End If
       com_add.ExecuteNonQuery()
            MessageBox.Show("تم الحفظ بنجاح")


        Catch ex As Exception
            MessageBox.Show(ex.Message)
        Finally


            con1.Close()

        End Try