이 명령과 관련된 열려있는 datareader가 이미 있습니다. 먼저 닫아야합니다. vb.net 2010

Question

CMD = New SqlCommand("Select * From Jenis where KodeJenis='" & CBjenis.Text & "'", CONN) 

RD = CMD.ExecuteReader() 
CONN.Open() 
RD.Read() 

If RD.HasRows = True Then 
    TextBox2.Text = RD.Item(1) 
Else 
    MsgBox("Kode jenis ini tidak terdaftar") 
End If 

무슨 문제입니까?

Answer 1

닫지 않은 연결을 피하려면 Using End Using 구문을 사용해보십시오.

Dim rd As SqlDataReader 
     Using CMD = New SqlCommand 
      CMD.CommandText = "Select * From Jenis where KodeJenis='" & CBjenis.Text & "'" 
      CMD.CommandType = CommandType.Text 
      CMD.Connection = CONN 
      CMD.Connection.Open() 
      rd = CMD.ExecuteReader 

      If rd.Read() Then 
       TextBox2.Text = rd.Item(1) 
      Else 
       MsgBox("Kode jenis ini tidak terdaftar") 
      End If 
     End Using 
    End Sub