منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] اضافه الصور الى قاعدة البيانات - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم أسئلة قواعد البيانات تحت بيئة الـ.NET (http://vb4arb.com/vb/forumdisplay.php?fid=41)
+--- الموضوع : [VB.NET] اضافه الصور الى قاعدة البيانات (/showthread.php?tid=22215)



اضافه الصور الى قاعدة البيانات - رمنس الشوق - 23-10-17

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

اخواني انا كنت ابحث عن كود اضافه الصورة الى قاعده البيانات

يعني اضيف بيانات شخص واضع صورته ضمن البيانات 

جميع الاكواد اخذتها من مواقع اجنبيه 

طبعا يعطيني رساله تم الحفظ ولكن لايوجد شي في قاعدة البيانات

هذا كود الاستعراض الصور من الجهاز


كود :
Private Sub Browse_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Browse.Click
       Dim dialog As New OpenFileDialog()
       dialog.Title = "Browse Picture"
       dialog.Filter = "Image Files(*.BMP;*.JPG;*.GIF;*.PNG)|*.BMP;*.JPG;*.GIF;*.PNG"
       If dialog.ShowDialog() = Windows.Forms.DialogResult.OK Then
           PictureBox1.Image = Image.FromFile(dialog.FileName)
       End If
   End Sub


وهذا كود الحفظ 

كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles save.Click
       Try
           Dim ms As New System.IO.MemoryStream
           Dim bmpImage As New Bitmap(PictureBox1.Image)

           bmpImage.Save(ms, System.Drawing.Imaging.ImageFormat.Jpeg)
           bytImage = ms.ToArray()
           ms.Close()
       Catch ex As Exception
           MsgBox(ex.Message)
       End Try
       cn.Open()
       cm.Connection = cn
       cm.CommandType = CommandType.Text
       cm.CommandText = "INSERT INTO `tan` (pic) VALUES (@image)"
       cm.Parameters.AddWithValue("@image", bytImage)
       cm.ExecuteNonQuery()
       cn.Close()
       MsgBox("Image Saved.")
   End Sub



RE: اضافه الصور الى قاعدة البيانات - khodor1985 - 23-10-17

تابع الفيديوهات :
https://www.youtube.com/watch?v=utheGCVkvs0

https://www.youtube.com/watch?v=r0pLHP7x4R8