使用SqlBulkCopy进行批量数据插入

 Dim dt As DataTable = New DataTable()
             dt.Columns.Add("DtCostProductRuleGUID", GetType(Guid))
             dt.Columns.Add("RecollectGUID", GetType(Guid))
             dt.Columns.Add("ProjCode", GetType(String))
             dt.Columns.Add("ProductGUID", GetType(Guid))
             dt.Columns.Add("CostCode", GetType(String))
             dt.Columns.Add("CostShortName", GetType(String))
             dt.Columns.Add("ParentCode", GetType(String))
             dt.Columns.Add("CostLevel", GetType(Integer))
             dt.Columns.Add("IfEndCost", GetType(Integer))
             dt.Columns.Add("DtCost", GetType(Decimal))
             dt.Columns.Add("IsAttend", GetType(Integer))
             Dim row As DataRow
             Using scope As ConnectionScope = New ConnectionScope
                 For Each xmlNode In xmlNodeList
                     strCostCode = xmlNode.Attributes("CostCode").Value
                     strCostShortName = xmlNode.Attributes("CostShortName").Value
                     strParetnCode = xmlNode.Attributes("ParentCode").Value
                     iCostLevel = CInt(xmlNode.Attributes("CostLevel").Value)
                     iIfEndCost = CInt(xmlNode.Attributes("IfEndCost").Value)
                     decDtCost = CDec(xmlNode.Attributes("DtCost").Value)
                     For i =  To iProductCount -
                         row = dt.NewRow()
                         row("DtCostProductRuleGUID") = Guid.NewGuid()
                         row("CostCode") = strCostCode
                         row("CostLevel") = iCostLevel
                         row("CostShortName") = strCostShortName
                         row("DtCost") = decDtCost
                         row("IfEndCost") = iIfEndCost
                         row("IsAttend") = xmlNode.Attributes(dtProduct.Rows(i).Item("Product")).Value.ToString()
                         row("ParentCode") = strParetnCode
                         row("ProductGUID") = dtProduct.Rows(i).Item("ProductGUID").ToString()
                         row("ProjCode") = sProjCode
                         row("RecollectGUID") = sRecollectGUID
                         dt.Rows.Add(row)
                     Next
                 Next
                 '保存金蝶业态
                 xmlNode = xmlDOM.SelectSingleNode("/data/jdRow")
                 For i =  To iProductCount -
                     strSQL = "update cb_JdProductRule set  JdProductName='" & xmlNode.Attributes(dtProduct.Rows(i).Item("Product")).Value.ToString() & _
                             "' where RecollectGUID=@RecollectGUID and ProductGUID='" & dtProduct.Rows(i).Item("ProductGUID").ToString() & "';"

                     sbStr.Append(strSQL)
                 Next
                 CPQuery.From(sbStr.ToString(), param).ExecuteNonQuery()

                 Dim bulkCopy As SqlBulkCopy = scope.CreateSqlBulkCopy(SqlBulkCopyOptions.FireTriggers)
                 bulkCopy.DestinationTableName = "cb_DtCostProductRule"
                 bulkCopy.WriteToServer(dt)
             End Using