Access数据库“自动编号”数据类型是一个非常实用的类型,它可以很方便地帮助我们完成标识不同记录ID的工作。但是由于JET引擎的特性(SQL server使用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.MoveFile strNewDB, strOldDB
- Response.Write "数据库压缩完毕!"
- Else
- Response.Write "找不到指定的数据库文件!"
- End If
- Set fso = Nothing
- End Sub
- %>
我们可以很轻松地使用
- <%Call CompactDB("yourdb.mdb")%>
完成调用。
第二种:SQL语句
如果你了解SQL里ALTER TABLE的用法,这一切将变得非常简单:
ALTER TABLE — 更改表属性
ALTER TABLE table [ * ]
ALTER TABLE table [ * ]
ALTER TABLE table [ * ]
ALTER TABLE table
输入
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特定查询中遇到过,当时报错情况是:无效的字段数据类型。后来反复尝试了几遍,发现利用“压缩和修复数据库”也可以修复这个异常,大家可以自己注意一下^_^