15-04-20, 04:33 PM
السلام عليكم ورحمة الله وبركاته
أتمنى أن تكونوا جميعا في أتم صحه وعافيه
عندي مشكلة في كود إضافة الصورة مرفق لكم الكود
أتمنى ايجاد حل حيث تتم العملية ولكن لا يتم إضافة صورة في قاعدة البيانات sql مرفق لكم صورة لمعلومات الجدول
كود فتح نافذة لجلب الصورة
أتمنى أن تكونوا جميعا في أتم صحه وعافيه
عندي مشكلة في كود إضافة الصورة مرفق لكم الكود
أتمنى ايجاد حل حيث تتم العملية ولكن لا يتم إضافة صورة في قاعدة البيانات sql مرفق لكم صورة لمعلومات الجدول
كود :
Dim Cmd As New SqlClient.SqlCommand
With Cmd
.Connection = con
.CommandType = CommandType.Text
.CommandText = "Insert Into Staff (PRN,Name)values(@PRN,@Name)"
.Parameters.Clear()
.Parameters.AddWithValue("@PRN", SqlDbType.Int).Value = txt_prn.Text
.Parameters.AddWithValue("@Name", SqlDbType.NVarChar).Value = txt_Name.Text
Dim ms As New MemoryStream
Dim bmpImage As New Bitmap(Pic_Staff.Image)
bmpImage.Save(ms, System.Drawing.Imaging.ImageFormat.Jpeg)
Dim data As Byte() = ms.GetBuffer
Dim p As New SqlParameter("@Pic_Staff", SqlDbType.Image)
p.Value = data
.Parameters.Add(p)
End With
If con.State = 1 Then con.Close()
con.Open()
Cmd.ExecuteNonQuery()
con.Close()
MsgBox("Done")
Cmd = Nothing
txt_prn.Text = Nothing
txt_Name.Text = Nothing
Pic_Staff.Image = Nothing
DgvLoad()
كود :
Try
Dim ofd As New OpenFileDialog
With ofd
.Filter = ("images |*.png; *.bmp; *.jpg; *.jpeg; *.gif;")
.FilterIndex = 4
End With
ofd.FileName = ""
If ofd.ShowDialog() = DialogResult.OK Then
Pic_Staff.Image = Image.FromFile(ofd.FileName)
End If
Catch ex As Exception
MsgBox(ex.ToString())
End Try