VB.NET向MS Access添加数据报错：Dynamic SQL生成不支持无主键查询

这个异常的核心原因是：OleDbCommandBuilder无法自动生成SQL命令，因为它从DataAdapter的SelectCommand中获取不到主键列信息。以下是具体解决方案：

1. 确保Access表存在主键 #

打开你的MS Access数据库，找到Login表：

• 进入设计视图，选择一个适合作为主键的列（比如EnNo，要求该列值唯一且非空）
• 设置该列为主键，保存表结构。

2. 修正DataAdapter的查询语句 #

初始化OleDbDataAdapter时，必须确保查询语句包含主键列：

• 推荐使用SELECT * FROM Login（会包含所有列，包括主键）
• 若要指定列，必须明确列出主键列，比如SELECT EnNo, Username, Password FROM Login，不能遗漏主键。

3. 优化代码逻辑（可选但更清晰） #

你原代码中添加新行的方式可以简化，避免索引r可能带来的错误，修正后的代码示例：

' 假设da已正确初始化，且SelectCommand包含主键列
Dim cb As New OleDb.OleDbCommandBuilder(da)
Dim dsNewRow As DataRow = ds.Tables("Login").NewRow

' 直接为新行赋值（建议用列名而非索引，更易维护）
dsNewRow("EnNo") = txtEnNo.Text
dsNewRow("Username") = txtUsername.Text
dsNewRow("Password") = txtPassword.Text

ds.Tables("Login").Rows.Add(dsNewRow)

da.Update(ds, "Login")

替代方案：手动编写InsertCommand（无需依赖主键） #

如果不想设置主键或使用CommandBuilder，可以手动定义InsertCommand，绕开自动生成逻辑：

' 假设yourConnection是已配置好的OleDbConnection
da.InsertCommand = New OleDb.OleDbCommand("INSERT INTO Login (EnNo, Username, Password) VALUES (?, ?, ?)", yourConnection)
da.InsertCommand.Parameters.Add("@EnNo", OleDbType.VarChar, 50, "EnNo")
da.InsertCommand.Parameters.Add("@Username", OleDbType.VarChar, 50, "Username")
da.InsertCommand.Parameters.Add("@Password", OleDbType.VarChar, 50, "Password")

' 添加新行并更新
Dim dsNewRow As DataRow = ds.Tables("Login").NewRow
dsNewRow("EnNo") = txtEnNo.Text
dsNewRow("Username") = txtUsername.Text
dsNewRow("Password") = txtPassword.Text
ds.Tables("Login").Rows.Add(dsNewRow)

da.Update(ds, "Login")

内容的提问来源于stack exchange，提问作者Kalana Manusha