[رمنس الشوق]

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

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

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

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

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

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

كود :

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