كيف أمنع رسالة التكرار عند التعديل

الخطأ في جملة sql

select name from tb1

عدلها

select * from tb1

جزاك الله خيراً

لم تحل المشكلة

ارفق المثال واعدل عليه أفضل .. تحياتي

هذا المشروعCopy of WindowsApplication1.rar

المشكلة أنك حددت أنه لو كان الاسم = textbox1.text فيجب أن يقوم بإخراج الرسالة ولم تحدد له أن ذلك في حالة التعديل في خانة الاسم فقط

فلذلك يقوم بعمل نفس الإجراء على جميع الخانات

ولتفادي هذه المشكلة

قم أولا بعمل متغير عام من النوع النصي وليكن x

dim x as string

وفي حدث Enter ل TextBox1 اكتب الكود التالي

x = TextBox1.text

ثم ضع الكود داخل جملة الشرط التالية

If TextBox1.text <> x Then

End If

ليصبح الكود كالتالي

If TextBox1.text <> x Then
Dim SqlStr As String
        Dim DR As SqlDataReader
        Dim Cmd As SqlCommand
        SqlStr = "SELECT name FROM tb1 WHERE(name='" & TextBox1.Text & "')"
        Cmd = New SqlCommand(SqlStr, con)
        con.Open()
        DR = Cmd.ExecuteReader
        If DR.HasRows Then
            MsgBox("الإسم مكرر")
            con.Close()
        Else
            con.Close()
            BindingSource1.EndEdit()
            SQLDataAdapter1.Update(SQLDataSet1, "tb1")


            MsgBox("تمت عملية حفظ البيانات بنجاح", 64 + 524288, "نجاح الحفظ")
        End If
End If
 con.Close()
            BindingSource1.EndEdit()
            SQLDataAdapter1.Update(SQLDataSet1, "tb1")


            MsgBox("تمت عملية حفظ البيانات بنجاح", 64 + 524288, "نجاح الحفظ")

شكراً على المساعدة ... لم يتم عمل المطلوب حيث أن رسالة التكرار لا زالت تظهر ...

اخرج من الاجراء

بعد عملية الفحص

Exit Sub