[aminesori]

السلام عليكم ممكن حل لي اعادة الترقيم في قاعدة بيانات من نوع اكسس

جربت هذا يقوم بحذف الاضافة من جديد

 لا اعرف اين الخطا

كود :

Try

           Dim cmdDatabase As New OleDb.OleDbCommand("", con)
           con.Open()
           cmdDatabase.CommandText = "ALTER TABLE LIST1 DROP CONSTRAINT PrimaryKey"
           cmdDatabase.ExecuteNonQuery()
           cmdDatabase.CommandText = "ALTER TABLE LIST1 DROP COLUMN ID "
           cmdDatabase.ExecuteNonQuery()
           cmdDatabase.CommandText = "ALTER TABLE LIST1 ADD COLUMN ID COUNTER CONSTRAINT [PrimaryKey] Primary key "
           cmdDatabase.ExecuteNonQuery()
           con.Close()

           DataGridView1.AllowUserToAddRows = False

       Catch ex As Exception
           MsgBox(ex.Message)
       End Try
       con.Close()