Access数据库“自动编号”字段归零
2008-06-16 08:39
302 查看
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 — 更改表属性
试图更改的现存表的名称.
column
现存或新的列名称.
type
新列的类型.
newcolumn
现存列的新名称.
newtable
表的新名称.
从被更名的列或表返回的信息.
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特定查询中遇到过,当时报错情况是:无效的字段数据类型。后来反复尝试了几遍,发现利用“压缩和修复数据库”也可以修复这个异常,大家可以自己注意一下^_^
第一种:压缩数据库
用过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 [ * ] ADD [ COLUMN ] column type ALTER TABLE table [ * ] ALTER [ COLUMN ] column { SET DEFAULT value | DROP DEFAULT } ALTER TABLE table [ * ] RENAME [ COLUMN ] column TO newcolumn ALTER 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特定查询中遇到过,当时报错情况是:无效的字段数据类型。后来反复尝试了几遍,发现利用“压缩和修复数据库”也可以修复这个异常,大家可以自己注意一下^_^
相关文章推荐
- Access数据库“自动编号”字段归零
- Access数据库“自动编号”字段归零
- Access数据库“自动编号”字段归零
- Access数据库“自动编号”字段归零
- Access数据库中自动编号字段重置为1
- Access数据库中自动编号字段重置为1
- ACCESS数据库重新编号自动编号字段
- PostgreSQL 字段自动编号
- vb与sql数据库下下给access创建一个有自动编号字段的表
- SQL SERVER 中自动编号的字段
- Oracle 自动生成编号(实现sqlserver自增长字段)
- <转载>OleDb操作Access数据库:新增记录时获取自动编号的主键值
- SQLSERVER中字段为自动编号类型的重置
- vba 自动编号字段 row_number counter
- Access中出现改变字段“自动编号”类型,不能再改回来!(已解决)
- 解析SQL Server中如何得到自动编号字段
- 八步解决ACCESS自动编号问题,SERVER 2000数据库,转换为ACCESS数据库
- 如何用JET SQL DDL创建自动编号GUID字段
- SQLSERVER自动编号字段的插入
- 不用自动编号使某1字段值先进算法该写