第一种：压缩数据库
用过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.MoveFile strNewDB, strOldDB Response.Write "数据库压缩完毕!" Else Response.Write "找不到指定的数据库文件!" End If Set fso = NothingEnd Sub%>我们可以很轻松地使用<%Call CompactDB("yourdb.mdb")%>完成调用。
第二种：SQL语句
如果你了解SQL里ALTER TABLE的用法，这一切将变得非常简单：
ALTER TABLE — 更改表属性
ALTER TABLE table [ * ] ADD [ COLUMN ] column typeALTER TABLE table [ * ] ALTER [ COLUMN ] column { SET DEFAULT value | DROP DEFAULT }ALTER TABLE table [ * ] RENAME [ COLUMN ] column TO newcolumnALTER TABLE table RENAME TO newtable
输入
- 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等，当我们重命名这些数据库时有可能会出现数据库体积增大的情况，而这种情况亦有可能导致上面的ALTER TABLE语句无法正常工作，这种异常我曾经在改名后的Access数据库的SQL特定查询中遇到过，当时报错情况是：无效的字段数据类型。后来反复尝试了几遍，发现利用“压缩和修复数据库”也可以修复这个异常，大家可以自己注意一下^_^
