+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] مشكلة في كود إضافة الصورة في sql (/showthread.php?tid=34334)
مشكلة في كود إضافة الصورة في sql - محمد العامر - 15-04-20
السلام عليكم ورحمة الله وبركاته
أتمنى أن تكونوا جميعا في أتم صحه وعافيه
عندي مشكلة في كود إضافة الصورة مرفق لكم الكود
أتمنى ايجاد حل حيث تتم العملية ولكن لا يتم إضافة صورة في قاعدة البيانات 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[attachment=24430]
RE: مشكلة في كود إضافة الصورة في sql - asemshahen5 - 15-04-20
عدل الاستعلام ليكون :
PHP كود :
.CommandText = "Insert Into Staff (PRN,Name,Pic_Staff)values(@PRN,@Name,@Pic_Staff)"
RE: مشكلة في كود إضافة الصورة في sql - محمد العامر - 20-04-20
بارك الله فيك
وجدة كود ويعمل بشكل صحيح أتمنى أن يفيد الجميع
كود :
Dim pos As Integer
pos = DataGridView1.CurrentRow.Index
Dim EemployeID = DataGridView1.Rows(pos).Cells(1).Value
Dim EemployeName = DataGridView1.Rows(pos).Cells(2).Value
If MsgBox("هل تريد تعديل البيانات للموظف: " & EemployeName & EemployeID, MsgBoxStyle.Question + vbYesNo, Title:="Warning") = vbYes Then
Dim cmd As New SqlCommand
With cmd
.Connection = con
.CommandType = CommandType.Text
.CommandText = "Update TB_Eemploye Set EemployeID=@EemployeID, EemployeName=@EemployeName, PicEemploye=@PicEemploye, EemployePosition=@EemployePosition, EemployeStatus=@EemployeStatus, Nationalty=@Nationalty, Mobilenumber=@Mobilenumber, GR=@GR, BasicSalary=@BasicSalary, DOA=@DOA, DirectorinthesystemSap=@DirectorinthesystemSap where EemployeID=@EemployeID"
.Parameters.Clear()
.Parameters.AddWithValue("@EemployeID", SqlDbType.NVarChar).Value = txt_prn.Text
.Parameters.AddWithValue("@EemployeName", SqlDbType.NVarChar).Value = txt_Name.Text
.Parameters.AddWithValue("@EemployePosition", SqlDbType.NVarChar).Value = ComboBoxPosition.Text
.Parameters.AddWithValue("@Nationalty", SqlDbType.NVarChar).Value = ComboBoxNationalty.Text
.Parameters.AddWithValue("@Mobilenumber", SqlDbType.NVarChar).Value = txt_Mobilenumber.Text
.Parameters.AddWithValue("@GR", SqlDbType.NVarChar).Value = txt_Grade.Text
.Parameters.AddWithValue("@BasicSalary", SqlDbType.NVarChar).Value = txt_Basic_Salary.Text
.Parameters.AddWithValue("@DOA", SqlDbType.NVarChar).Value = ComboBoxDate_Of_Employment.Text
.Parameters.AddWithValue("@DirectorinthesystemSap", SqlDbType.NVarChar).Value = txt_Director_in_the_system_Sap.Text
.Parameters.AddWithValue("@EemployeStatus", SqlDbType.NVarChar).Value = ComboBoxStatus.Text
Dim ms As New IO.MemoryStream
Dim bmpimage As New Bitmap(pbox.Image)
bmpimage.Save(ms, System.Drawing.Imaging.ImageFormat.Jpeg)
Dim data As Byte() = ms.GetBuffer()
Dim p As New SqlParameter("@PicEemploye", SqlDbType.Image)
p.Value = data
.Parameters.Add(p)
End With
If con.State = 1 Then con.Close()
con.Open()
cmd.ExecuteNonQuery()
con.Close()
TextValueClere()
dt.Clear()
DgvLoad()
MsgBox("تم إعتماد تعديل البيانات للموظف: " & EemployeName & EemployeID, MsgBoxStyle.Information)
Me.txt_prn.ReadOnly = False
Me.butt_new.Enabled = True
Me.butt_Save.Enabled = True
txt_Serch.Focus()
txt_Serch.Update()
Else
Return
End If