'逍遥浪子编程
'网志:http://blog.csdn.net/xiaoyaolz
'交个朋友,一起编程,学习,一生的朋友
标准答案来了
说明:为了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