使用vba建表时如何指定主键

Question

我已经根据下面给出的建议更新了代码，我已经对其进行了测试并且效果很好，供未来用户快速参考。

---

我正在使用以下代码创建链接表，而无需为每个用户设置 DSN，我如何指定主键，因为如果手动连接会询问您：

Dim sConnect    As String
Dim db          As DAO.Database
Dim tdf         As DAO.TableDef

Set db = CurrentDb

Set tdf = db.CreateTableDef
tdf.Name = "dbo_vwFeedback" ' - -- --- This is the Label that you see in Access...
tdf.Connect = "ODBC;DRIVER=SQL Server;SERVER=server01\serverinstance;DATABASE=db_name;Trusted_Connection=Yes"
tdf.SourceTableName = "vwFeedback" ' - -- --- This is the actual name in SQL Server, minus the owner.
db.TableDefs.Append tdf
CurrentDb.Execute "CREATE UNIQUE INDEX PK_dbo_vwFeedback_PrimaryKey ON dbo_vwFeedback (DataSetID, FeedbackRef) WITH PRIMARY"

注意：以上是针对 SQL Server VIEW 的，与 SQL Server TABLE 相同，但您不需要 CurrentDB.Execute 行（如果您的主键已在服务器上正确设置）。

代码用于链接表并手动指定主键。

如果您没有手动或使用上述方法指定为 SQL Server VIEW 创建索引，您将只能获得一个 READ ONLY 视图，并且您可能会遇到返回错误数据，请参阅下面的 cmets 示例。

Answer 1

将表格与您问题中的代码关联后，您需要执行以下操作：

CurrentDb.Execute "CREATE UNIQUE INDEX SomeIndex ON SomeTable (PrimaryKeyColumn) WITH PRIMARY"

完整示例请参见VBA Code to Add Linked Table with Primary Key。

请注意，如果您链​​接 表格，您确实不需要执行此操作 - Access 将自动检测主键（正如 Remou 在下面的评论中明确指出的那样）。

但是当您在 Access 中链接 SQL Server 视图时，在 Access 中为视图指定正确的主键是非常重要。
如果您指定了错误的键（= 您选择了不标识唯一记录的列）或根本没有键，Access 会将视图链接为只读表（正如您已经注意到的那样）。

另外，它会弄乱显示的行 - 请参阅 Why does linked view give different results from MS Access vs SQL Manager? 以获得更多解释。
（阅读我的答案，和我的 cmets 在另一个答案下）