问题：
如何用sql语句添加删除主键
回答：
Function AddPrimaryKey()
'添加主键到[编号]字段
Dim strSQL As String
strSQL = "ALTER TABLE 表1 ADD CONSTRAINT PRIMARY_KEY " _
& "PRIMARY KEY (编号)"
CurrentProject.Connection.Execute strSQL
End Function
Function DropPrimaryKey()
'删除主键
Dim strSQL As String
strSQL = "ALTER TABLE 表1 Drop CONSTRAINT PRIMARY_KEY "
CurrentProject.Connection.Execute strSQL
End Function
获取键名请用 "如何得到一个表的所有键？以及键的类型？" 为关键字搜索access911文章
或直接查看以下链接http://access911.net/index.asp?board=4&mode=3&recordid=72FAB21E11DC
责任编辑：小草
