Использование DataReader в VB.NET

Question

Я получил сообщение об ошибке There is an open data reader associated with this command which needs to be closed first, используя следующий код:

myCommand = New SqlCommand("SELECT BookCode FROM tblBook",myConnection)
 myReader = myCommand.ExceuteReader
 While myReader.Read
   If myReader(0).ToString <> txtBookCode.Text Then
      myCommand = New SqlCommand("INSERT INTO tblBook VALUES(@BookCode, @BookTitle)",myConnection)
      myCommand.Parameters.AddWithValue("@BookCode", txtBookCode.Text)
      myCommand.Parameters.AddWithValue("@BookTitle", txtBookTitle.Text)
      myCommand.ExecuteNonQuery()
   Else
      MsgBox("There is already a book name '"& txtTitle.Text "'. Please try another code.",vbOkOnly,"BookCode Exists")
   End If
 End While

Пожалуйста, помогите.

Answer 1

Не используйте переменную myCommand повторно.Создайте новый.

myCommand должен быть также расположен в конце (как и читатель).

Реальная причина исключения - более вероятно, что вы пытаетесь выполнить две команды на одном соединениив то же время.Сначала прочитайте все данные, которые вам нужны от читателя, а затем сделайте все вставки.Не оба одновременно (я полагаю, вы не хотите создавать два соединения. Это было бы отстой)

Answer 2

похоже, что вы пытаетесь использовать одну переменную myCommand более одного раза - в первой строке кода и в цикле WHILE. лучше объявить еще одну переменную AdoCommand, чтобы использовать ее в LOOP