تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] مشكلة في كود إضافة الصورة في sql
#1
السلام عليكم ورحمة الله وبركاته
أتمنى أن تكونوا جميعا في أتم صحه وعافيه 

عندي مشكلة في كود إضافة الصورة مرفق لكم الكود 
أتمنى ايجاد حل حيث تتم العملية ولكن لا يتم إضافة صورة في قاعدة البيانات 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
   
   
الرد }}}
تم الشكر بواسطة:
#2
عدل الاستعلام ليكون :

PHP كود :
.CommandText "Insert Into Staff (PRN,Name,Pic_Staff)values(@PRN,@Name,@Pic_Staff)" 
الرد }}}
#3
بارك الله فيك
وجدة كود ويعمل بشكل صحيح أتمنى أن يفيد الجميع
كود :
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
الرد }}}



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم