تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
السلام عليكم تصحيح الكود
#1
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



ما هو الحل بارك الله فيكم.
الرد
تم الشكر بواسطة: أسعد
#2
السلام عليكم ورحمة الله وبركاته
اخي عمورة جرب الكود هكذا
كود :
 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
اعمل الخير واجرك لاتنتظره فالله خير من اليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] السلام عليكم mbou5060 0 909 05-11-20, 01:49 AM
آخر رد: mbou5060
  شرح بالصور لطريقة استخدام و كتابة قصاصات الكود Code Snippet المرفقة مع VB.Net Mohamad Anan 4 4,544 07-12-18, 08:45 AM
آخر رد: محمد خرد
  تصميم الواجهات من أهم الامور بعد الكود في المشاريع viv 6 2,690 10-05-18, 03:33 AM
آخر رد: ملهمـ
  السلام عليكم اخواني محتاج مساعدة بسيطة اوس باسم عبد الحميد 2 1,693 15-05-17, 11:56 PM
آخر رد: اوس باسم عبد الحميد
  Conventers مجموعة برمج لتحويل الكود بين لغات البرمجه zinom 2 2,675 29-12-15, 01:30 AM
آخر رد: zinom
  كيفية تغيير خلفية محرر الكود في Visual Studio 2010 إلى صورة أبو عمر 0 3,209 06-09-15, 06:44 PM
آخر رد: أبو عمر
  معلومة :: الحل لمشكلة الخطأ في الكود For Each i As Button In Me.Controls Aly El-Haddad 2 2,740 10-11-12, 09:15 PM
آخر رد: Mr. DotNet
  جديد 2010- اكتب الكود الذي سيستخدم فئتك ثم قم بإنشائها RaggiTech 0 1,652 03-10-12, 12:27 PM
آخر رد: RaggiTech
  الدالة Environ العظيمه جميع بيانات الحاسب فى يدك بسطر واحد من الكود RaggiTech 0 1,879 02-10-12, 04:40 PM
آخر رد: RaggiTech

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


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