Access种子清零方法

2012-04-01  金城  1937

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,打开表,清空表,关闭。再在工具菜单中找到 数据库实用工具--压缩和修复数据库