[عمور2016]

PHP كود :

     Sondoss_Connection()
        Dim Cmd As New SqlCommand()
        With Cmd
            '  Dim RX As New SqlConnection(Sondoss_Connection)

            Cmd.Connection = RX
            Cmd.CommandType = CommandType.Text
            'Cmd.CommandText = "INSERT INTO agsat_s3 Photo2=@Photo2 Where idz=@idz
            Cmd.CommandText = "UPDATE agsat_s3 SET Photo2=@Photo2 Where idz=@idz"
            Cmd.Parameters.Clear()

            'Update PictureBox
            Dim Ms_Photo As New MemoryStream()
            Dim bmpImage As New Bitmap(PictureBox2.Image)
            bmpImage.Save(Ms_Photo, System.Drawing.Imaging.ImageFormat.Jpeg)
            Dim Data_Photo As Byte() = Ms_Photo.GetBuffer()
            Dim PhotoPersonnelle As New SqlClient.SqlParameter("@Photo2", SqlDbType.Binary)
            PhotoPersonnelle.Value = Data_Photo
            Cmd.Parameters.Add(PhotoPersonnelle)

            Cmd.Parameters.AddWithValue("@idz", SqlDbType.Int).Value = TextBox9.Text

        End With
        Try
            If Conn.State = 1 Then Conn.Close()
            Conn.Open()
            Cmd.ExecuteNonQuery()
            Conn.Close()
            Cmd = Nothing
            MessageBox.Show("تمت بنجاح عملية حفظ الصورة و تعديل البيانات", "تعديل البيانات", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
        Catch ex As Exception
            Conn.Close()
            MsgBox(Err.Description, MsgBoxStyle.Information)
        Finally
            If Conn.State = ConnectionState.Open Then Conn.Close()
        End Try 


هنا الخطاء 
     Sondoss_Connection()
       Dim Cmd As New SqlCommand()
       With Cmd
           '  Dim RX As New SqlConnection(Sondoss_Connection)

           Cmd.Connection = RX
           Cmd.CommandType = CommandType.Text
           'Cmd.CommandText = "INSERT INTO agsat_s3 Photo2=@Photo2 Where idz=@idz
           Cmd.CommandText = "UPDATE agsat_s3 SET Photo2=@Photo2 Where idz=@idz"
           Cmd.Parameters.Clear()

تظهر رسالة  ExecuteNonQuery



ما هو الحل بارك الله فيكم.

[ابراهيم ايبو]

السلام عليكم ورحمة الله وبركاته
اخي عمورة جرب الكود هكذا

كود :

 Dim ByteImage() As Byte
       Dim Ms_Photo As New MemoryStream()
       PictureBox2.Image.Save(Ms_Photo, PictureBox2.Image.RawFormat)
       ByteImage = Ms_Photo.GetBuffer

       Dim Cmd As New SqlCommand()
       Cmd.Connection = RX
       Cmd.CommandType = CommandType.Text
       Cmd.CommandText = "UPDATE agsat_s3 SET Photo2=@Photo2 Where idz=@idz"
       Cmd.Parameters.Clear()
       Cmd.Parameters.Add(New SqlParameter("@Photo2", SqlDbType.Image)).Value = ByteImage
       Cmd.Parameters.Add(New SqlParameter("@idz", SqlDbType.Int)).Value = Convert.ToInt32(TextBox9.Text)

       Try
           If Conn.State = ConnectionState.Open Then Conn.Close()
           Conn.Open()
           Cmd.ExecuteNonQuery()
           Conn.Close()

           MessageBox.Show("تمت بنجاح عملية حفظ الصورة و تعديل البيانات", "تعديل البيانات", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
       Catch ex As Exception
           MessageBox.Show(ex.Message)
       Finally
           Conn.Close()
       End Try