[asmarsou]

(19-07-22, 06:58 PM)أبو خالد الشكري كتب : السلام عليكم أخوني الأعزاء

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

المثال المرفق هو من هذا المنتدى ، ولكني أريد منكم فقط تعديله ليتناسب مع متطلباتي !


وشكرا لكم مقدما .

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

كود :

Private Sub button2_Click(sender As Object, e As EventArgs) Handles button2.Click

       '--------------------------------------
       ' PictureBox1 المطلوب عرض الصورة في
       '--------------------------------------

       ' التحقق اذا كان الداتا جريد ممتلئة ام فارغة لتنفيذ كود فتح الملف
       If (dataGridView1.RowCount > 0) Then
           ' تحويل الكود المسجل بقاعدة البيانات الى ملف
           Dim ff() As Byte = CType(dt.Rows(DgId)(3), Byte())
           Dim FPath = Application.StartupPath & "\" & dt.Rows(DgId)(1).ToString() & dt.Rows(DgId)(2).ToString()
           Dim FFS As FileStream = New FileStream(FPath, FileMode.Create, FileAccess.Write)
           FFS.Write(ff, 0, ff.Length)
           FFS.Close()
           ' تنفيذ فتح الملف بعد انشائه بالكود السابق
           ''Process.Start(FPath)
           PictureBox1.Image = Image.FromFile(FPath)
       Else
           ' رسالة تنبيه بان الداتا جريد فارغة
           MsgBox("Please Add Any Data So You Can Open File Selected.")
       End If
   End Sub