منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

عمور2016

ابراهيم ايبو