الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

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

بدأه ™Sn!p3R™ في 8 سبتمبر 2013 · 4 رد · 473 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم 

 

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

    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

#2

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

#3

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

        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 & "'"

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

 

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

#4

up

#5

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

    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

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

مواضيع مشابهة