每年如何将ID重置为001？

Question

每年如何将ID重置为001，自动生成的ID是001-19，其中19是当前年份。以下是代码：

Dim idnumber As Integer

con.Open()

Dim command As SqlClient.SqlCommand = con.CreateCommand()
command.CommandText = "select MAX([CCLA File Number]) as id from tblLegalAidCaseFile"

objdatareader = command.ExecuteReader()

While objdatareader.Read
    idnumber = Val(objdatareader.Item("id").ToString()) + 1
End While

Me.CCLA_File_NumberTextBox.Text = Format(idnumber, "000") + "-" + Format(Now, "yy")

谢谢

Answer 1

重置身份字段一些链接

Reset identity seed after deleting records in SQL Server

https://docs.microsoft.com/en-us/sql/t-sql/database-console-commands/dbcc-checkident-transact-sql?view=sql-server-2017

如果要重新设置种子以使第一个记录为ID 1，则必须重新设置种子命令为0，以使下一个记录为ID 1。

Use SampleCode
DBCC CHECKIDENT (KeyWords, RESEED, 13)

数据库名称为SampleCode。 表名称是关键字 最后一个有效ID的值为13。 运行此代码后，ID的下一个值是14。