Access数据库“自动编号”数据类型是一个非常实用的类型，它可以很方便地帮助我们完成标识不同记录ID的工作。但是由于JET引擎的特性（SQLserver使用T-SQL），当我们在Access数据库某张表中执行了删除所有数据的操作后，被用来标识唯一ID的字段将不再归零（从头开始计数），而是会继续延续上次ID递增计数，我们可以用若干种方法解决这样的问题，以下结合ASP推荐两种方法（以下方法都是建立在空数据表的“自动编号”归零的前提下）：
第一种：压缩数据库
用过Access的朋友应该都知道在Access的工具栏上我们可以通过：
点击“工具”=>“数据库实用工具”=>“压缩和修复数据库”来完成对数据库的压缩和修复工作，当这项工作完成时，Access各空数据表的“自动编号”字段也会做归零操作。
而我们也可以用ASP来完成这项工作，以下是压缩数据库主要SUB：
Sub CompactDB(strDBFileName)
Set fso =CreateObject("Scripting.FileSystemObject")
Dim strOldDB
strOldDB = Server.MapPath(strDBFileName)
Dim strNewDB
strNewDB = Server.MapPath("New"& strDBFileName)
If fso.FileExists(strOldDB) Then
'压缩数据库
Set jro=Server.CreateObject("JRO.JetEngine")
strPvd ="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
jro.CompactDatabase strPvd & strOldDB , strPvd& strNewDB
set jro=Nothing
'删除旧的数据库文件
fso.DeleteFile strOldDB
'将压缩好的数据库文件拷贝回来
fso.MoveFilestrNewDB, strOldDB
Response.Write "数据库压缩完毕!"
Else
Response.Write "找不到指定的数据库文件!"
End If
Set fso = Nothing
End Sub
%>
我们可以很轻松地使用完成调用。
第二种：SQL语句
如果你了解SQL里ALTER TABLE的用法，这一切将变得非常简单：
ALTER TABLE — 更改表属性
ALTER TABLE table [ * ]
ADD [ COLUMN] column type
ALTER TABLE table [ * ]
ALTER [COLUMN ] column { SET DEFAULT value | DROP DEFAULT }
ALTER TABLE table [ * ]
RENAME [COLUMN ] column TO newcolumn
ALTER TABLE table
RENAME TOnewtable
输入
table
试图更改的现存表的名称．
column
现存或新的列名称．
type
新列的类型．
newcolumn
现存列的新名称．
newtable
表的新名称．
输出
ALTER
从被更名的列或表返回的信息．
ERROR
如果一个列或表不存在返回的信息．
我们解决Access数据库“自动编号”字段自动归零可以这样完成：
ALTER TABLE tableName ALTER COLUMN OrderId COUNTER (1, 1)
其中COLUMN关键字可以省略，下面这样也是可以的：
ALTER TABLE tableName ALTER OrderId COUNTER (1, 1)
剩下的交给ASP执行SQL语句完成就可以了，这里不再赘述。
值得注意的一点：有些程序员喜欢保存Access数据库为其它后缀名如.asp、.asa等，当我们重命名这些数据库时有可能会出现数据库体积增大的情况，而这种情况亦有可能导致上面的ALTERTABLE语句无法正常工作，这种异常我曾经在改名后的Access数据库的SQL特定查询中遇到过，当时报错情况是：无效的字段数据类型。后来反复尝试了几遍，发现利用“压缩和修复数据库”也可以修复这个异常，大家可以自己注意一下^_^
Access数据库“自动编号”数据类型是一个非常实用的类型，它可以很方便地帮助我们完成标识不同记录ID的工作。但是由于JET引擎的特性（SQLserver使用T-SQL），当我们在Access数据库某张表中执行了删除所有数据的操作后，被用来标识唯一ID的字段将不再归零（从头开始计数），而是会继续延续上次ID递增计数，我们可以用若干种方法解决这样的问题，以下结合ASP推荐两种方法（以下方法都是建立在空数据表的“自动编号”归零的前提下）：
第一种：压缩数据库
用过Access的朋友应该都知道在Access的工具栏上我们可以通过：
点击“工具”=>“数据库实用工具”=>“压缩和修复数据库”来完成对数据库的压缩和修复工作，当这项工作完成时，Access各空数据表的“自动编号”字段也会做归零操作。
而我们也可以用ASP来完成这项工作，以下是压缩数据库主要SUB：
Sub CompactDB(strDBFileName)
Set fso =CreateObject("Scripting.FileSystemObject")
Dim strOldDB
strOldDB = Server.MapPath(strDBFileName)
Dim strNewDB
strNewDB = Server.MapPath("New"& strDBFileName)
If fso.FileExists(strOldDB) Then
'压缩数据库
Set jro=Server.CreateObject("JRO.JetEngine")
strPvd ="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
jro.CompactDatabase strPvd & strOldDB , strPvd& strNewDB
set jro=Nothing
'删除旧的数据库文件
fso.DeleteFile strOldDB
'将压缩好的数据库文件拷贝回来
fso.MoveFilestrNewDB, strOldDB
Response.Write "数据库压缩完毕!"
Else
Response.Write "找不到指定的数据库文件!"
End If
Set fso = Nothing
End Sub
%>
我们可以很轻松地使用完成调用。
第二种：SQL语句
如果你了解SQL里ALTER TABLE的用法，这一切将变得非常简单：
ALTER TABLE — 更改表属性
ALTER TABLE table [ * ]
ADD [ COLUMN] column type
ALTER TABLE table [ * ]
ALTER [COLUMN ] column { SET DEFAULT value | DROP DEFAULT }
ALTER TABLE table [ * ]
RENAME [COLUMN ] column TO newcolumn
ALTER TABLE table
RENAME TOnewtable
输入
table
试图更改的现存表的名称．
column
现存或新的列名称．
type
新列的类型．
newcolumn
现存列的新名称．
newtable
表的新名称．
输出
ALTER
从被更名的列或表返回的信息．
ERROR
如果一个列或表不存在返回的信息．
我们解决Access数据库“自动编号”字段自动归零可以这样完成：
ALTER TABLE tableName ALTER COLUMN OrderId COUNTER (1, 1)
其中COLUMN关键字可以省略，下面这样也是可以的：
ALTER TABLE tableName ALTER OrderId COUNTER (1, 1)
剩下的交给ASP执行SQL语句完成就可以了，这里不再赘述。
值得注意的一点：有些程序员喜欢保存Access数据库为其它后缀名如.asp、.asa等，当我们重命名这些数据库时有可能会出现数据库体积增大的情况，而这种情况亦有可能导致上面的ALTERTABLE语句无法正常工作，这种异常我曾经在改名后的Access数据库的SQL特定查询中遇到过，当时报错情况是：无效的字段数据类型。后来反复尝试了几遍，发现利用“压缩和修复数据库”也可以修复这个异常，大家可以自己注意一下^_^