您现在的位置是：首页 > 站长 > 正文

站长

Access数据库“自动编号”字段归零最佳解决办法

happyfhb2009-02-21站长1797

Access数据库“自动编号”数据类型是一个非常实用的类型，它可以很方便地帮助我们完成标识不同记录ID的工作。但是由于JET引擎的特性（SQL server使用T-SQL），当我们在Access数据库某张表中执行了删除所有数据的操作后，被用来标识唯一ID的字段将不再归零（从头开始计数），而是会继续延续上次ID递增计数，我们可以用若干种方法解决这样的问题，以下结合ASP推荐两种方法（以下方法都是建立在空数据表的“自动编号”归零的前提下）：
第一种：压缩数据库
用过Access的朋友应该都知道在Access的工具栏上我们可以通过：

点击“工具”=>“数据库实用工具”=>“压缩和修复数据库”来完成对数据库的压缩和修复工作，当这项工作完成时，Access各空数据表的“自动编号”字段也会做归零操作。

现在很多CMS站中后台都带有备份和压缩数据库功能，大家爱不妨试验一下很好用。

而我们也可以用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")%>完成调用。