**老问题：access数据库中如何增加一个自动编号的字段!**

如何在access数据库中增加一个自动编号的字段，或者改变现有字段为自动编号型。
说明：
  关于用DAO的方法我已经会了。
  用alter table语句与create table的方法已经测试成功!
问题是：
1.用adodb或adox如何实现
2.或者用sql语句如何实现

谢谢!

8 个解决方案

#1

或者用ADOX.Catalog的方法创建表时，字段类型应该设置为什么？没有找到：(

#2

关注~

#3

您可以使用Count关键字来设置字段的自动编号属性，例如：
CREATE TABLE sTable11 (Id COUNTER , MyText TEXT (10))

您可以参考以下文章学习Access中SQL语句的使用：
ACC2000: Create and Drop Tables and Relationships Using SQL DDL (Q209037)
http://support.microsoft.com/default.aspx?scid=kb;en-us;Q209037 

#4

adodb不能实现，ADOX可以，字段属性改为COUNTER就可以了，其它参数参照微软文档就可以的。

#5

由于不及喜欢用其它方法，(ctrea table,及alter table等方法)因此来问大家。

谢谢各位，问题已经解决!
我已经写了一个函数来得以实现，采用的是adox。

如果您需要，我可以给大家!

#6

to: softrain(秋雨) 
你的办法我试了，但是没有成功，不知道是怎么改的？

#7

贴子回复次数大于跟给分次数 ？

什么意思啊，怎么给不了分？

#8

标准答案来了
说明：为了access数据库DB.MDB中的表table1增加一个自动编号字段 ID
此外新建一个带自动编号字段的表的道理也是一样

关键之处："ALTER TABLE table1 ADD ID Counter"
自动编号字段用Counter
Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim cmd As ADODB.Command
Dim strsql As String

Private Sub Command1_Click()
  cmd.Execute
End Sub

Private Sub Form_Load()
  Set cnn = New ADODB.Connection
  cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\temp\db.mdb"
  Set cmd = New ADODB.Command
  cmd.ActiveConnection = cnn
  cmd.CommandText = "ALTER TABLE table1 ADD ID Counter"
End Sub