Access种子清零方法

2012-04-01 金城 2003

Access种子清零(或重置)的的方法 (方法三最简单)

方法一：重建表

<% '' ASP程序演示片段
conn.execute "DROP TABLE [MyTable]"
conn.execute "CREATE TABLE [MyTable]([id] LONG NOT NULL IDENTITY PRIMARY KEY,[title] string(66) NOT NULL,[content] TEXT NULL)"
%>

或者进入MS Access 2003/2007软件，打开数据库，选择要操作的表，按CTRL+C或右键点复制，然后CTRL+V或空白处右键点粘贴，选着只粘贴结构。

方法二：重建Key字段，缺点，

<% '' ASP程序演示片段
conn.execute "ALTER TABLE [MyTable] DROP COLUMN [id]"
conn.execute "ALTER TABLE [MyTable] ALTER COLUMN [id] LONG IDENTITY(1,1)"
%>

或者进入MS Access 2003/2007软件，打开数据库，修改表，删除id列，保存，再添加id列，指定自动编号。

方法三：重置Key字段

<% '' ASP程序演示片段
conn.execute "DELETE FROM [MyTable]"
conn.execute "ALTER TABLE [MyTable] ALTER COLUMN [id] LONG"
conn.execute "ALTER TABLE [MyTable] ALTER COLUMN [id] COUNTER (1,1)"
%>

方法四：压缩数据库

<% '' ASP程序演示片段
Function CompactDatabase(MDB_Path)
  dim fso,tmpMDB,mPath,orgMDB
  Set FSO = Server.CreateObject("Scripting.FileSystemObject")
  orgMDB=getFileAbsolutePath(MDB_Path)
  mPath=getFileAbsolutePath(getFilePath(MDB_Path))
  tmpMDB=mPath &"\tmp_mdb_"&getRndName() &".asa"
  ''FSO.CopyFile MDB_Path,bakDB,true
  Set Engine = Server.CreateObject("JRO.JetEngine")
  prov = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
  Engine.CompactDatabase prov &orgMDB,prov &tmpMDB
  set Engine = nothing
  FSO.DeleteFile orgMDB
  FSO.MoveFile tmpMDB,orgMDB
  set FSO = nothing
End Function

CompactDatabase "/_data/mydb.asa"
%>

或者进入MS Access 2003/2007，打开表，清空表，关闭。再在工具菜单中找到数据库实用工具--压缩和修复数据库

种子清零种子重置 access 数据库