이 명령과 관련된 DataReader가 이미 열려 있습니다. 먼저 닫아야합니다

Question

일부 값을 테이블에 삽입하려고 시도했지만이 오류가 발생합니다.이 명령과 관련된 DataReader가 이미 열려 있습니다. 그것은 첫째 를 폐쇄해야 이것은 당신이 적어도 SQL 서버 2005에서 다음 연결 문자열에

MultipleActiveResultSets=True 

를 추가 사용하는 경우

Public Function AddDB(ByVal codeP As String, ByVal exigence As String, ByVal nomE As String, ByVal Dt As String) 
    OpenCn() 
    Dim paramID As New SqlParameter("@id", SqlDbType.Int) 
    paramID.Value = 10 
    Dim paramText As New SqlParameter("@text", SqlDbType.VarChar, 50) 
    paramText.Value = "Ceci est un test" 
    Dim paramDate As New SqlParameter("@date", SqlDbType.DateTime) 
    paramDate.Value = DateTime.Now 
    Dim paramFloat As New SqlParameter("@float", SqlDbType.Float) 
    paramFloat.Value = 12.199999999999999 

    Dim Sql As String = String.Format("INSERT INTO DossierBleu(CodeP, Exigences, NomE, Date) VALUES (@codeP, @exigence, @nomE, @date)", 
     paramText.ParameterName, 
      paramText.ParameterName, 
      paramText.ParameterName, 
      paramText.ParameterName, 
      paramDate.ParameterName 
     ) 


    Dim Cmd = New SqlCommand(Sql.ToString(), Cn) 
    Cmd.Parameters.Add(New SqlParameter("@codeP", codeP)) 
    Cmd.Parameters.Add(New SqlParameter("@exigence", exigence)) 
    Cmd.Parameters.Add(New SqlParameter("@nomE", nomE)) 
    Cmd.Parameters.Add(New SqlParameter("@date", Dt)) 
    'Cmd.Parameters.Add(paramDate) 
    Return Cmd.ExecuteNonQuery() 
    CloseCn() 
End Function 

당신에게

Answer 1

감사의 코드를입니다.