• 0
™Sn!p3R™

ما الخطأ فى هذا الكود

سؤال

السلام عليكم 

 

هذا الكود عبارة عن تعديل بيانات متشابهه فى اكثر من جدول ولكن عند الاستخدام يظهر خطأ

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click        Dim SavInto As New OleDb.OleDbCommand        Dim ConStr As String = _            "Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & _            Application.StartupPath & "\Database.mdb"        Dim Conn As New OleDbConnection(ConStr)        SavInto.Connection = Conn        SavInto.CommandType = CommandType.Text        SavInto.CommandText = "UPDATE Table1 SET  Name = '" & Trim(TextBox13.Text) & "' , Address= '" & Trim(TextBox14.Text) & "' , Mobile= '" & Trim(TextBox15.Text) & "', bill= '" & Trim(TextBox17.Text) & "', user_name= '" & Trim(TextBox18.Text) & "', pasword= '" & Trim(TextBox19.Text) & "', السنة= '" & Trim(ComboBox3.Text) & "', الشهر= '" & Trim(ComboBox2.Text) & "', اليوم= '" & Trim(ComboBox4.Text) & "', ملحوظة= '" & Trim(TextBox9.Text) & "' WHERE user_name ='" & TextBox7.Text & "'"        Conn.Open()        SavInto.ExecuteNonQuery()        cmd2 = New OleDbCommand("UPDATE into " & ComboBox3.Text & _                                "(" & "user_name," & "" & ComboBox2.Text & _                                        " ) values ('" & TextBox18.Text & "','" & _                                        ComboBox4.Text & "')", Conn)        cmd2.ExecuteNonQuery()        Conn.Close()        MsgBox("تمت عملية الاضافة والحفظ في قاعدة البيانات بنجاح")        Dim frm As New Form1        Me.Hide()        frm.Show()    End Sub

image.jpg

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

4 إجابة على هذا السؤال .

  • 0

السلام عليكم    الضاهر الخطأ موجود في جملة الاستعلام  تأكد منها

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

اخى انا توصلت لحل شكل الكود بقى كده و اشتغل بس فى مشكلة 

        Dim SavInto As New OleDb.OleDbCommand        Dim ConStr As String = _            "Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & _            Application.StartupPath & "\Database.mdb"        Dim Conn As New OleDbConnection(ConStr)        SavInto.Connection = Conn        SavInto.CommandType = CommandType.Text        SavInto.CommandText = "UPDATE Table1 SET  Name = '" & Trim(TextBox13.Text) & "' , Address= '" & Trim(TextBox14.Text) & "' , Mobile= '" & Trim(TextBox15.Text) & "', bill= '" & Trim(TextBox17.Text) & "', user_name= '" & Trim(TextBox18.Text) & "', pasword= '" & Trim(TextBox19.Text) & "', السنة= '" & Trim(ComboBox3.Text) & "', الشهر= '" & Trim(ComboBox2.Text) & "', اليوم= '" & Trim(ComboBox4.Text) & "', ملحوظة= '" & Trim(TextBox9.Text) & "' WHERE user_name ='" & TextBox7.Text & "'"        SavInto.CommandText = "UPDATE  " & ComboBox3.Text & "  SET  user_Name = '" & TextBox18.Text & "', " & ComboBox2.Text & "= '" & Trim(ComboBox4.Text) & "' WHERE user_name ='" & TextBox7.Text & "'"        Conn.Open()        SavInto.ExecuteNonQuery()        Conn.Close()        MsgBox("تمت عملية الاضافة والحفظ في قاعدة البيانات بنجاح")        Dim frm As New Form1        Me.Hide()        frm.Show()

انا عامل كودين تعديل 

الاول

        SavInto.CommandText = "UPDATE Table1 SET  Name = '" & Trim(TextBox13.Text) & "' , Address= '" & Trim(TextBox14.Text) & "' , Mobile= '" & Trim(TextBox15.Text) & "', bill= '" & Trim(TextBox17.Text) & "', user_name= '" & Trim(TextBox18.Text) & "', pasword= '" & Trim(TextBox19.Text) & "', السنة= '" & Trim(ComboBox3.Text) & "', الشهر= '" & Trim(ComboBox2.Text) & "', اليوم= '" & Trim(ComboBox4.Text) & "', ملحوظة= '" & Trim(TextBox9.Text) & "' WHERE user_name ='" & TextBox7.Text & "'"

و التانى 

        SavInto.CommandText = "UPDATE  " & ComboBox3.Text & "  SET  user_Name = '" & TextBox18.Text & "', " & ComboBox2.Text & "= '" & Trim(ComboBox4.Text) & "' WHERE user_name ='" & TextBox7.Text & "'"

المشكلة انهم مش بيشتغلوا مع بعض يعنى لو مسحت واحد منهم التانى يشتغل انما الاتنين سوا مش بيشتغل 

 

ارجوا المساعدة 

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

تم حل المشكلة و الكود بقى كده 

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click        Dim SavInto As New OleDb.OleDbCommand        Dim ConStr As String = _            "Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & _            Application.StartupPath & "\Database.mdb"        Dim Conn As New OleDbConnection(ConStr)        SavInto.Connection = Conn        SavInto.CommandType = CommandType.Text        SavInto.CommandText = "UPDATE Table1 SET  Name = '" & Trim(TextBox13.Text) & "' , Address= '" & Trim(TextBox14.Text) & "' , Mobile= '" & Trim(TextBox15.Text) & "', bill= '" & Trim(TextBox17.Text) & "', user_name= '" & Trim(TextBox18.Text) & "', pasword= '" & Trim(TextBox19.Text) & "', السنة= '" & Trim(ComboBox3.Text) & "', الشهر= '" & Trim(ComboBox2.Text) & "', اليوم= '" & Trim(ComboBox4.Text) & "', ملحوظة= '" & Trim(TextBox9.Text) & "' WHERE user_name ='" & TextBox7.Text & "'"        Conn.Open()        SavInto.ExecuteNonQuery()        cmd2 = New OleDbCommand("UPDATE  " & ComboBox3.Text & "  SET  user_Name = '" & TextBox18.Text & "', " & ComboBox2.Text & "= '" & Trim(ComboBox4.Text) & "' WHERE user_name ='" & TextBox7.Text & "'", Conn)        cmd2.ExecuteNonQuery()        Conn.Close()        MsgBox("تمت عملية الاضافة والحفظ في قاعدة البيانات بنجاح")        Dim frm As New Form1        Me.Hide()        frm.Show()    End Sub

وظيفة الكود يقوم بتعديل بيانات متشابهه فى جدولين 

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .