23-10-17, 02:51 AM
السلام عليكم ورحمة الله وبركاته
اخواني انا كنت ابحث عن كود اضافه الصورة الى قاعده البيانات
يعني اضيف بيانات شخص واضع صورته ضمن البيانات
جميع الاكواد اخذتها من مواقع اجنبيه
طبعا يعطيني رساله تم الحفظ ولكن لايوجد شي في قاعدة البيانات
هذا كود الاستعراض الصور من الجهاز
كود :
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