原文地址：http://access911.net/index.asp?board=4&mode=3&recordid=76FAB61E16DC
问题：
回答：
|
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
录入：changechange(CSDN) 责任编辑：cg1 |
| 
|站长邮箱|小黑屋|手机版|Office中国/Access中国
( 粤ICP备10043721号-1 ) 