• 0
مصطفى_ظيمة

ظهور رسالة خطأ فى كود إعادة الترقيم التلقائى

سؤال

بسم الله الرحمن الرحيم

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

عندى مشكلة فى كود الترقيم التلقائى 

حيث إنى عندما اقوم باستعادة الترقيم التلقائى لحقل ID يظهر الخطأ فى الصورة 

2020-04-17_15-54-29.png.8e0de4b31ba1c977

وهذا هو الكود المستحدم فى عملى استعادة الترقيم 

 If SQLBindingSource1.Count = 0 Then Beep() : Exit Sub


        
        Application.DoEvents()

        Dim cmd As New SqlCommand("", con)

        con.Open()

        'ID كود حذف المفتاح من حقل الترقيم التلقائي الي اسمه   

        cmd.CommandText = "ALTER TABLE Tab1 DROP CONSTRAINT PrimaryKey"
        cmd.ExecuteNonQuery()

        ' ID كود حذف حقل الترقيم التلقائي الي اسمه  

        cmd.CommandText = "ALTER TABLE Tab1 DROP COLUMN ID "
        cmd.ExecuteNonQuery()

        'مع وضع مفتاح له ID كود انشاء حقل الترقيم التلقائي الي اسمه  

        cmd.CommandText = "ALTER TABLE Tab1 ADD COLUMN ID COUNTER CONSTRAINT [PrimaryKey] Primary key "
        cmd.ExecuteNonQuery()

        'تغيير نوعية الحقل من ترقيم تلقائي الى رقم 
        cmd.CommandText = "ALTER TABLE Tab1 ALTER COLUMN ID Long"

        cmd.ExecuteNonQuery()

        con.Close()

        'تحديث قاعدة البيانات
        SQLDataSet1.Clear()
        SQLDataAdapter1.Fill(SQLDataSet1, "Tab1")

        DataGridView1.AllowUserToAddRows = False

        MsgBox("تم بنجاح استعادة تسلسل السجلات", "نجاح")

ولكم جزيل الشكر مقدماً

0

شارك هذا الرد


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

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

لاتوجد إجابات على هذا السؤال حتى الآن .

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

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



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

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

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