Question

我正在使用SqlBulkCopy将数据复制到同一数据库中的2个单独的表中。

obj_Command.CommandText = "Select * from  tmpInvDtlMast where InvNo='111'"



Using bulkCopy As SqlBulkCopy = New SqlBulkCopy(con1)
                        bulkCopy.DestinationTableName = "tmpInvDtlMast"

                        Try

                            bulkCopy.WriteToServer(obj_Command.ExecuteReader())
                            Application.DoEvents()

                        Catch ex As Exception
                            Console.WriteLine(ex.Message)
                        Finally
                            bulkCopy.Close()

                        End Try
                    End Using


                        Using bulkCopy As SqlBulkCopy = New SqlBulkCopy(con1)
                            bulkCopy.DestinationTableName = "InvDtlMast"

                            Try

                                bulkCopy.WriteToServer(obj_Command.ExecuteReader())
                                Application.DoEvents()

                            Catch ex As Exception
                                Console.WriteLine(ex.Message)
                            Finally
                                bulkCopy.Close()
                            End Try
                        End Using

在第二次批量上传中发生此错误

已经有一个与此命令关联的开放DataReader

我试过＆＃34; MultipleActiveResultSets = true＆＃34;用我的连接字符串

con1.ConnectionString = "Data Source=" & SqlServer & ";Initial Catalog=" & Database & ";Persist Security Info=True;User ID=" & User & ";Password=" & Pass & ";MultipleActiveResultSets=true"

在谷歌搜索更多解决方案后，我知道MultipleActiveResultSets = true不支持MSSql 2000.在Sql2000中有什么可以解决这个问题。请帮忙

我正在使用vb.net 2008

Answer 1

作为一种解决方法，请尝试复制连接和命令：

obj_Command.CommandText = "Select * from  tmpInvDtlMast where InvNo='111'"

Using bulkCopy As SqlBulkCopy = New SqlBulkCopy(con1)
    bulkCopy.DestinationTableName = "tmpInvDtlMast"

    Try
        bulkCopy.WriteToServer(obj_Command.ExecuteReader())
        Application.DoEvents()

    Catch ex As Exception
        Console.WriteLine(ex.Message)
    Finally
        bulkCopy.Close()

    End Try
End Using


Using bulkCopy As SqlBulkCopy = New SqlBulkCopy(**con2**)
    bulkCopy.DestinationTableName = "InvDtlMast"

    Try
        bulkCopy.WriteToServer(**obj_Command2**.ExecuteReader())
        Application.DoEvents()

    Catch ex As Exception
        Console.WriteLine(ex.Message)
    Finally
        bulkCopy.Close()
    End Try
End Using

Answer 2

我自己解决了我的问题。我做的是删除

objCommand.ExecuteReader（）

使用新的SqlDataReader实例。

obj_Command.CommandText = "Select * from  tmpInvDtlMast where InvNo='111'"
Dim dr as SqlDataReader()
dr=obj_Command.ExecuteNoneQuery()

               Using bulkCopy As SqlBulkCopy = New SqlBulkCopy(con1)
                    bulkCopy.DestinationTableName = "tmpInvDtlMast"

                    Try

                        bulkCopy.WriteToServer(dr)
                        Application.DoEvents()

                    Catch ex As Exception
                        Console.WriteLine(ex.Message)
                    Finally
                        dr.Close()

                    End Try
                End Using


                    Using bulkCopy As SqlBulkCopy = New SqlBulkCopy(con1)
                        bulkCopy.DestinationTableName = "InvDtlMast"

                        Try

                            bulkCopy.WriteToServer(dr)
                            Application.DoEvents()

                        Catch ex As Exception
                            Console.WriteLine(ex.Message)
                        Finally
                            dr.Close()
                        End Try
                    End Using

如何避免错误“MSSql 2000中已存在与此命令关联的打开DataReader”

2 个答案: