منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
المساعد - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : المساعد (/showthread.php?tid=48254)

المساعد - رشاد حبيب - 16-04-24

السلام عليكم اخواني الكرام كل عام وحضراتك بخير
اريد المساعده
عندي فاتوره برقم ID  والفاتوره تحمل رقم مثلا B3 وبها عدة سطور وانا اريد ان اعدل سطر واحد في الفاتوره والمشكله عند تعديل سطر واحد اجد جميع السطور تم تعديلها بنفس البيانات يعني البيانات تكررت في جميع السطور التي تحمل رقم الفاتوره 
ارجوا التعديل علي هذا الكود فيجوال بيسك 2017 وقاعدة بيانات SQLITE
 ولكم جزبل الشكر

Try
            Using conn As SQLiteConnection = DatabaseConnection.GetConnection()
                conn.Open()

                Dim query As String = "UPDATE amel_21_d SET weight = @weight, wit18 = @wit18, many = @many, tota_am = @tota_am, name = @name, noty = @noty, type = @type WHERE inon_f = @inon_f"

                Using cmd As New SQLiteCommand(query, conn)
                    cmd.Parameters.AddWithValue("@weight", Txtwazn.Text)
                    cmd.Parameters.AddWithValue("@wit18", Txtch1.Text)
                    cmd.Parameters.AddWithValue("@many", TXTMANY.Text)
                    cmd.Parameters.AddWithValue("@tota_am", TextBox1.Text)
                    cmd.Parameters.AddWithValue("@name", Com_AMEL.Text)
                    cmd.Parameters.AddWithValue("@noty", Txtnoty.Text)
                    cmd.Parameters.AddWithValue("@type", Txtpye.Text)

                    cmd.Parameters.AddWithValue("@inon_f", Txtno.Text)

                    Dim rowsAffected As Integer = cmd.ExecuteNonQuery()

                    If rowsAffected > 0 Then
                        MsgBox("تم تحديث  بنجاح ")
                    Else
                        MsgBox("لم يتم العثور على الخلية المحددة ")
                    End If
                End Using
            End Using
        Catch ex As Exception
            MsgBox("خطأ: " & ex.Message)
        End Try

RE: المساعد - Taha Okla - 16-04-24

وعليكم السلام ورحمة الله وبركاته

أنت في الكود وضعت شرط التعديل :
كود :
WHERE inon_f = @inon_f

فلما تضع شرط للتعديل هو متوفر بكل سطر من سطور الفاتورة فإنه سوف يتم تعديل كل السطور التي تتوافر فيها هذا الشرط..

فعليك أن تختار شرط يكون موجود بهذا السطر وليس في غيره .. كي يتم تعديل هذا السطر دون غيره..

فكر كيف راح تخلي لكل سطر شرط مختلف عن غيره فلما تختار تعدله ما يتعدل غيره ..
البرنامج بين يديك وأنت أدرى ماذا ستضع وماذا ستغير .. و كيف ستحتال على الأمر ..