تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
بحاجة لتعديل كود Update query
#1
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        Dim cmd As New OleDbCommand
        cmd = New OleDbCommand("update table1 set where info = user_idinfo ='" & TextBox1.Text & "'user_fornameinfo ='" & TextBox2.Text & "'user_ genderinfo = '" & TextBox2.Text & "')", con)
        con.Open()
        cmd.ExecuteNonQuery()
        con.Close()
    End Sub
الرد }}}
تم الشكر بواسطة:
#2
ضع أسماء أعمدة الجدول و اسم العامود الذي تعتمد عليه في البحث عن القيمة المراد تعديلها .
الرد }}}
تم الشكر بواسطة:
#3
تفضل الكود بعد التعديل ولكن يتوقف على تاكيد المسميات لديك
كود :
       Dim cmd As New OleDbCommand
       cmd = New OleDbCommand("UPDATE info SET user_fornameinfo ='" & TextBox2.Text & "', user_ genderinfo = '" & TextBox3.Text & "' WHERE user_idinfo =" & TextBox1.Text & ")", con)
       con.Open()
       cmd.ExecuteNonQuery()
       con.Close()

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}}
تم الشكر بواسطة:
#4
اولا اشكرك جداااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااا صديقى العزيز 
ثانيا الكود مش شغال 
بيعطى خطأ فى جملة الكود

 Dim cmd As New OleDbCommand
       cmd = New OleDbCommand("UPDATE info SET user_fornameinfo ='" & TextBox2.Text & "', user_ genderinfo = '" & TextBox3.Text & "' WHERE user_idinfo =" & TextBox1.Text & ")", con)
       con.Open()
       cmd.ExecuteNonQuery()
       con.Close()
ممكن تعديل على هذا الكود لانه لايعمل اكون شاكر
الرد }}}
تم الشكر بواسطة:
#5
كود :
If Conn.State = ConnectionState.Closed Then
               Conn.Open()
           End If

           Dim cmd As New OleDb.OleDbCommand
           cmd.Connection = Conn
           cmd.CommandType = CommandType.Text
           cmd.CommandText = "UPDATE info SET user_fornameinfo=@user_fornameinfo, genderinfo= @genderinfo WHERE user_idinfo= @user_idinfo"
cmd.Parameters.AddWithValue("@user_fornameinfo", TextBox2.Text.Trim)
           cmd.Parameters.AddWithValue("@genderinfo", TextBox3.Text.Trim)
           cmd.Parameters.AddWithValue("@user_idinfo", TextBox1.Text.Trim)
           cmd.ExecuteScalar()
           Conn.Close()
الرد }}}
تم الشكر بواسطة:
#6
الكود مش شغال
الرد }}}
تم الشكر بواسطة:
#7
ارفق المشروع
الرد }}}
تم الشكر بواسطة: elgokr , احمد خطاب , asemshahen5 , asemshahen5



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


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