[محمد اسماعيل]

السلام عليكم

استخدم الكود التالي لاستعادة الترقيم التلقائي والكود يعمل ولكن تحدث مشكلة ان عمود الترقيم التلقائي يصبح رقمي  اريد التعديل علي الكود بحيث يرجع العمود الي نفس خصائصة ترقيم تلقائي

 

PHP كود :

Dim cmd As New OleDb.OleDbCommand("", con)

        con.Open()
        cmd.CommandText = "ALTER TABLE Table1 DROP CONSTRAINT PrimaryKey"
        cmd.ExecuteNonQuery()
        cmd.CommandText = "ALTER TABLE Table1 DROP COLUMN ID "
        cmd.ExecuteNonQuery()
        cmd.CommandText = "ALTER TABLE Table1 ADD COLUMN ID COUNTER CONSTRAINT [PrimaryKey] Primary key "
        cmd.ExecuteNonQuery()
        cmd.CommandText = "ALTER TABLE Table1 ALTER COLUMN ID COUNTER CONSTRAINT"
        cmd.ExecuteNonQuery()
        con.Close()
        DataSet1.Clear()
        DataAdapter1.Fill(DataSet1, "Table1")
        count()
        DataGridView1.AllowUserToAddRows = False
        MsgBox("تم بنجاح استعادة تسلسل السجلات", 64 + 524288, "نجاح")