ExecuteNonQuery внутри Reader

Как я могу решить эту проблему? Я не хочу использовать два подключения. ExecuteNonQuery работает, только если читатель закрыт.

oleCnn = New System.Data.OleDb.OleDbConnection
oleCnn.ConnectionString = ConnectionString
oleCmm = New OleDb.OleDbCommand()
oleCnn.Open()
oleStr = "SELECT ID_Process FROM MyProcessTable"
Dim reader As System.Data.OleDb.OleDbDataReader = oleCmm.ExecuteReader()
        While reader.Read()
            For i = 1 To NumExecutions
                    oleStr = "INSERT INTO MyOtherProcessTable(reader.getInt32(0))"           
                    oleCmm.ExecuteNonQuery()
            Next
        End While
reader.Close()
oleCnn.Close()

Спасибо


vb.net executenonquery oledbdatareader
person user2864338    schedule 10.10.2013    source источник

Ответы (1)


arrow_upward
2
arrow_downward

Используйте список для хранения ваших идентификаторов при чтении DataReader, затем для каждого элемента списка вы сможете выполнить свой запрос с тем же соединением:

oleCnn = New System.Data.OleDb.OleDbConnection
oleCnn.ConnectionString = ConnectionString
oleCmm = New OleDb.OleDbCommand()
oleCnn.Open()
oleStr = "SELECT ID_Process FROM MyProcessTable"

Dim ids As New List(Of Integer)

Dim reader As System.Data.OleDb.OleDbDataReader = oleCmm.ExecuteReader()
    While reader.Read()
    ids.Add(reader.GetInt32(0))
    End While
reader.Close()

For Each curr_id As Integer In ids
    For i = 1 To NumExecutions
        oleStr = "INSERT INTO MyOtherProcessTable(" & curr_id.ToString & ")"
        oleCmm.ExecuteNonQuery()
    Next
Next
oleCnn.Close()

P.S. Я не понимаю цикл For i = 1 To NumExecutions for, но я добавил его так, как вы написали

person Andrea    schedule 11.10.2013