标准答案来了
说明:为了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
您可以使用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