Question

我遇到了一些奇怪的事情，我不确定为什么它会这样做。在for a循环中，我将行添加到表中以进行交叉引用。使用以下代码：

For Each cp In pCheckPoints
    If cp <> String.Empty Then
        Dim insertSQL As New StringBuilder
        With insertSQL
            .Append("INSERT INTO [CheckpointMessage] ( ")
            .Append(" [MessageID] ")
            .Append(", [CheckPoint] ")
            .Append(" ) VALUES ( ")
            .Append(" @MessageID ")
            .Append(", @Checkpoint ")
            .Append(" ) ")
        End With
        Using objCommand As New SqlCommand(insertSQL.ToString, MySQLConnection)
            With objCommand.Parameters
                .AddWithValue("@MessageID", pMessageID)
                .AddWithValue("@Checkpoint", cp)
            End With
            objCommand.ExecuteNonQuery()
            objCommand.CommandText = String.Empty
        End Using
    End If
Next

如果没有objCommand.CommandText = String.Empty行，CommandText会附加insertSQL，但这对我没有任何意义，因为我希望objCommand的commandText为空，因为它在using块中。

Answer 1

您的命令文本每次都是相同的。不要重建它。试试这个：

Dim insertSql As String = _
    "INSERT INTO [CheckpointMessage] " & _
        "([MessageID], [CheckPoint]) " & _
        "VALUES " & _
        "(@MessageID, @ChceckPoint)"

Using cmd As New SqlCommand(insertSql, MySQLConnection)
    cmd.Parameters.Add("@MessageID", SqlDbType.Int).Value = pMessageID
    cmd.Parameters.Add("@CheckPoint", SqlDbType.NVarChar, 255) ''# I had to guess at this type

    For Each cp As String In pCheckPoints.Where(Function(c) Not String.IsNullOrEmpty(c))
        cmd.Parameters("@CheckPoint").Value = cp
        cmd.ExecuteNonQuery()
    Next cp
End Using

最好有很多原因：

编译器可以优化你的字符串连接，其中StringBuilder强制它在运行时执行该工作
明确输入的参数可以避免一些边缘情况，它们可以真正破坏sql server中的性能，甚至可以破坏你的查询。
这只会创建您的插入查询字符串一次，而不是每个检查点
这只会创建一个SqlCommand对象

Answer 2

除了原始问题之外，以下几行不必在循环中

Dim insertSQL As New StringBuilder

        With insertSQL
            .Append("INSERT INTO [CheckpointMessage] ( ")
            .Append(" [MessageID] ")
            .Append(", [CheckPoint] ")
            .Append(" ) VALUES ( ")
            .Append(" @MessageID ")
            .Append(", @Checkpoint ")
            .Append(" ) ")
        End With

        Using objCommand As New SqlCommand(insertSQL.ToString, MySQLConnection)

您可以使用字符串一次创建带参数化查询的命令，并在循环中使用相同的objCommand实例。循环中唯一属于动态值的东西。

SQLCommand不在循环中清除commandtext

2 个答案: