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
% >
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 [ * ] 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特定查询中遇到过,当时报错情况是:无效的字段数据类型。后来反复尝试了几遍,发现利用“压缩和修复数据库”也可以修复这个异常,大家可以自己注意一下^_^