VB.NET报错：传入含新行DataRow集合时需有效InsertCommand

问题背景 #

你遇到的这个错误，是在代码的else分支（也就是新增用户数据行的时候）调用ta.Update()时触发的。先把你的代码贴出来方便参考：

Using ta As New dsUsersTableAdapters.wsm_Contact_UserTableAdapter
    ta.FillByContactID(dsContactUser.wsm_Contact_User, p_User.ContactID)
    If dsContactUser.wsm_Contact_User.Rows.Count > 0 Then
        dsContactUserrow = dsContactUser.wsm_Contact_User.Rows(0)
        With dsContactUserrow
            .Active = p_User.Active
            .UserType = p_User.UserType
            .UserID = p_User.UserID
            .Answer = p_User.Answer
            .QuestionID = p_User.QuestionID
            .ExtUser = p_User.ExtUser
            .Locked = p_User.Locked
        End With
    Else
        dsContactUserrow = dsContactUser.wsm_Contact_User.Newwsm_Contact_UserRow
        With dsContactUserrow
            .ContactID = p_User.ContactID
            .UserID = p_User.UserID
            .Active = p_User.Active
            .UserType = p_User.UserType
            .Password = p_User.Password
            .Answer = p_User.Answer
            .QuestionID = p_User.QuestionID
            .ExtUser = p_User.ExtUser
            .Locked = p_User.Locked
        End With
        dsContactUser.wsm_Contact_User.Addwsm_Contact_UserRow(dsContactUserrow)
    End If
    ta.Update(dsContactUser.wsm_Contact_User)
End Using

错误原因 #

这个错误的核心原因很明确：当你调用TableAdapter.Update()提交包含新增DataRow的数据集时，TableAdapter需要一个有效的InsertCommand来执行数据库插入操作，但你的wsm_Contact_UserTableAdapter并没有配置这个命令。

通常出现这种情况的场景有两种：

• 你用Visual Studio数据集设计器生成TableAdapter时，用来生成命令的SELECT语句没有包含表的主键，导致设计器无法自动生成Insert/Update/Delete命令；
• 你手动创建的TableAdapter，但没有手动配置InsertCommand属性。

解决方法 #

方法一：通过Visual Studio数据集设计器修复（如果是自动生成的TableAdapter）

1. 打开你的数据集文件dsUsers.xsd；
2. 找到wsm_Contact_UserTableAdapter，右键它选择「配置」；
3. 在配置向导中，检查你的SELECT语句是否包含表的主键字段（比如ContactID或者UserID，取决于你的表结构）；
4. 确保向导里的「生成Insert、Update和Delete语句」选项是勾选状态，然后完成配置；
5. 保存数据集，重新编译项目后再测试。

如果向导里没有这个选项，可能是因为你的SELECT语句没有主键或者是一个复杂查询（比如多表关联），这时候你需要调整SELECT语句，让它基于单表且包含主键，这样设计器才能自动生成所需的命令。

方法二：手动配置InsertCommand（适合自定义TableAdapter的场景）

如果是手动管理TableAdapter的命令，你需要在调用Update()之前，给ta.InsertCommand赋值一个有效的SqlCommand（假设你用的是SQL Server），示例代码如下：

Using ta As New dsUsersTableAdapters.wsm_Contact_UserTableAdapter
    ta.FillByContactID(dsContactUser.wsm_Contact_User, p_User.ContactID)
    ' ... 你的新增/更新行代码 ...
    
    ' 手动配置InsertCommand
    If ta.InsertCommand Is Nothing Then
        Dim insertSql As String = "INSERT INTO wsm_Contact_User (ContactID, UserID, Active, UserType, Password, Answer, QuestionID, ExtUser, Locked) " &
                                  "VALUES (@ContactID, @UserID, @Active, @UserType, @Password, @Answer, @QuestionID, @ExtUser, @Locked)"
        ta.InsertCommand = New SqlCommand(insertSql, ta.Connection)
        ' 添加参数，注意参数类型要和数据库字段匹配
        ta.InsertCommand.Parameters.Add("@ContactID", SqlDbType.Int).SourceColumn = "ContactID"
        ta.InsertCommand.Parameters.Add("@UserID", SqlDbType.VarChar, 50).SourceColumn = "UserID"
        ta.InsertCommand.Parameters.Add("@Active", SqlDbType.Bit).SourceColumn = "Active"
        ta.InsertCommand.Parameters.Add("@UserType", SqlDbType.Int).SourceColumn = "UserType"
        ta.InsertCommand.Parameters.Add("@Password", SqlDbType.VarChar, 100).SourceColumn = "Password"
        ta.InsertCommand.Parameters.Add("@Answer", SqlDbType.VarChar, 200).SourceColumn = "Answer"
        ta.InsertCommand.Parameters.Add("@QuestionID", SqlDbType.Int).SourceColumn = "QuestionID"
        ta.InsertCommand.Parameters.Add("@ExtUser", SqlDbType.Bit).SourceColumn = "ExtUser"
        ta.InsertCommand.Parameters.Add("@Locked", SqlDbType.Bit).SourceColumn = "Locked"
    End If
    
    ta.Update(dsContactUser.wsm_Contact_User)
End Using

这样就能确保新增行时，TableAdapter有正确的命令去执行插入操作了。

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