以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  Sqlcommand 循环执行问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=170363)

--  作者:z769036165
--  发布时间:2021/7/23 14:16:00
--  Sqlcommand 循环执行问题
以下这样操作,在昨天在内部函数里面可以执行,今天又不可以执行
Dim cmd As new SQLCommand
cmd.Connectio nName = "hh"
For Each dr As System.Data.DataRow In dt.Rows
    cmd.CommandText = "Insert Into pt(" & lb & ") Values(" & yw & ")"
    For Each ds As System.Data.DataColumn In dt.Columns 
        Select Case ds.ColumnName
            Case "LDATE"
                cmd.Parameters.Add("@" & ds.ColumnName ,dr(ds.ColumnName))
            Case Else
                cmd.Parameters.Add("@" & ds.ColumnName ,dr(ds.ColumnName).tostring)
        End Select
    Next
    cmd.ExecuteNonQuery
Next


---------------------------
版本:2021.5.29.1
---------------------------
代码执行出错,错误信息:

System.ArgumentException: 已添加了具有相同键的项。

   在 System.ThrowHelper.ThrowArgumentException(ExceptionResource resource)

   在 System.Collections.Generic.Dictionary`2.Insert(TKey key, TValue value, Boolean add)

   在 UserCode.Test()



结果出现如上的错误,但是cmd放在里面,如下:

For Each dr As System.Data.DataRow In dt.Rows
    Dim cmd As new SQLCommand
    cmd.Connectio nName = "hh"
    cmd.CommandText = "Insert Into pt(" & lb & ") Values(" & yw & ")"
    For Each ds As System.Data.DataColumn In dt.Columns 
        Select Case ds.ColumnName
            Case "LDATE"
                cmd.Parameters.Add("@" & ds.ColumnName ,dr(ds.ColumnName))
            Case Else
                cmd.Parameters.Add("@" & ds.ColumnName ,dr(ds.ColumnName).tostring)
        End Select
    Next
    cmd.ExecuteNonQuery
Next

这样就不报错了,这是什么情况?cmd.CommandText = “值”后,有时清空了之前的设置参数,有时又没有清空?
[此贴子已经被作者于2021/7/23 14:17:14编辑过]

--  作者:有点蓝
--  发布时间:2021/7/23 14:28:00
--  
添加的参数重复了
Dim cmd As new SQLCommand
cmd.Connectio nName = "hh"
For Each dr As System.Data.DataRow In dt.Rows
    cmd.CommandText = "Insert Into pt(" & lb & ") Values(" & yw & ")"
cmd.Parameters.clear
    For Each ds As System.Data.DataColumn In dt.Columns