DAO动态建表加关键字

Question

DAO动态建表如何加关键字
Set oField = toUserInputTable.CreateField("iYear", dbInteger)
toUserInputTable.Fields.Append oField

Answer 1

Function AddPrimaryKey()
    '添加主键到[编号]字段
    Dim strSQL As String
    strSQL = "ALTER TABLE 表1 ADD CONSTRAINT PRIMARY_KEY  " _
        & "PRIMARY KEY (编号)"
    CurrentProject.Connection.Execute strSQL
End FunctionFunction DropPrimaryKey()
    '删除主键
    Dim strSQL As String
    strSQL = "ALTER TABLE 表1 Drop CONSTRAINT PRIMARY_KEY "
    CurrentProject.Connection.Execute strSQL
End Function

Answer 2

不好意思，我基本没有用过dao
经常用ADO
但，我想只要与数据库建立连接后，不管是删除表，还是更改表，其实都是纯SQl了，应该不涉及其他！
修改表：
alter table 表名 add 列名 数据类型/drop 完整性约束条件/modify 列名 数据类型