Office中国论坛/Access中国论坛

标题: access链接后台SQL数据库，表中的自动编号ID如何回到1 [打印本页]

作者: pq318 时间: 2012-5-8 15:32
标题: access链接后台SQL数据库，表中的自动编号ID如何回到1
如题所示，access链接表中的自动编号没有办法回到从1开始，找到代码，有个地方不知怎么修改才对啊
模块
Sub 自动编号(tbname As String, MyID As String)
Dim strsql As String
strsql = "ALTER TABLE " & tbname & " DROP COLUMN " & MyID & ""
CurrentDb.Execute strsql
strsql = "ALTER TABLE " & tbname & " ADD COLUMN " & MyID & " Counter"
CurrentDb.Execute strsql
End Sub
窗体按钮单击代码
Private Sub Command99_Click()
Me.form5查询子窗体1.Form.RecordSource = ""
Call 自动编号("form5", "Lable25")
Me.form5查询子窗体1.Form.RecordSource = "form5"
End Sub
关键是模块中的CurrentDb报出错
应该是要连接SQL的语言，无法使用，帮帮小子，谢谢了！

作者: todaynew 时间: 2012-5-8 16:32
本帖最后由 todaynew 于 2012-5-8 17:02 编辑

SQL SERVER的自增数据类型应该不是Counter，应该是int类型，并将其设置为标识字段。
1、删除标识列
alter table 阁下的表名称 drop column 阁下的标识列名称
2、重新增加标识列
alter table 阁下的表名称 add 阁下的标识列名称 int identity(1,1)
其中 identity(1,1)定义标识，参数1为种子（即从数字几开始编号），参数2为增量（即相邻两条记录的数字差）。
3、手工设置的方法，参见以下视频：
http://school.itzcn.com/video-vid-1957-spid-48.html

作者: pq318 时间: 2012-5-8 17:29
版主，非常感谢，已经在SQL2005管理界面设置，修改完毕，呵呵，都是打印标签搞得，数字多了，使用人员就有意见了,谢谢!

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)