SQL Server查询对象已关闭时出错

Question

我想知道为什么我的查询返回错误3704。在线

If Not rsRisks.EOF Then 

代码：

Conn.ConnectionString = sConexaoProjectServer Conn.Open

strSql = "SELECT RiskID, Title " & _
         "FROM [WebCarioca-ProjectWebApp].[dbo].[MSP_WssRisk]"

rsListRisksID.Open strSql, Conn

strSql = "SELECT " & _
            "RiskID as Id," & _
            "Title as Titulo," & _
          "FROM    [WebCarioca-ProjectWebApp].[dbo].[MSP_WssRisk]"

Dim iLinha As Integer
iLinha = 2

If Not rsRisks.EOF Then
   While Not rsRisks.EOF
       PPT_Slide.Shapes(2).Table.Cell(iLinha, 1).Shape.TextFrame.TextRange.Text = TrimNull(rsRisks("Id"))
       PPT_Slide.Shapes(2).Table.Cell(iLinha, 2).Shape.TextFrame.TextRange.Text = TrimNull(rsRisks("Titulo"))
       PPT_Slide.Shapes(2).Table.Cell(iLinha, 3).Shape.TextFrame.TextRange.Text = TrimNull(rsRisks("Atribuido"))
       PPT_Slide.Shapes(2).Table.Cell(iLinha, 4).Shape.TextFrame.TextRange.Text = TrimNull(rsRisks("Status"))
       PPT_Slide.Shapes(2).Table.Cell(iLinha, 5).Shape.TextFrame.TextRange.Text = TrimNull(rsRisks("Exposicao"))
       PPT_Slide.Shapes(2).Table.Cell(iLinha, 6).Shape.TextFrame.TextRange.Text = TrimNull(rsRisks("Categoria"))
       PPT_Slide.Shapes(2).Table.Cell(iLinha, 7).Shape.TextFrame.TextRange.Text = TrimNull(Format(rsRisks("DataVencimento"), "dd/mm/yyyy"))

       iLinha = iLinha + 1
       PPT_Slide.Shapes(2).Table.Rows.Add (-1)

       rsRisks.MoveNext

   Wend
   Else
       PPT_Slide.Shapes(2).Table.Cell(2, 1).Merge MergeTo:=PPT_Slide.Shapes(2).Table.Cell(2, 7)
       PPT_Slide.Shapes(2).Table.Cell(2, 1).Shape.TextFrame.TextRange.Text = "Não existem riscos cadastrados para este projeto."
   End If

   rsListRisksID.Close
   rsRisks.Close
   Conn.Close

   iSlideAcompanhamentoPendencias = iSlideAcompanhamentoPendencias + iDuplicateSlides - 1
   iSlideAcompanhamentoProblemas = iSlideAcompanhamentoProblemas + iDuplicateSlides - 1

   iSlideAcompanhamentoRiscos = 0

如果有人能帮助我，我将不胜感激。谢谢，我也在使用项目专业版2013和sharepoint 2013

Answer 1

在发布的代码中，任何地方都不能打开rsRisks。

您可以在此处打开rsListRisksID：

rsListRisksID.Open strSql, Conn

但不是rsRisks。我猜你的意思是：

strSql = "SELECT " & _
            "RiskID as Id," & _
            "Title as Titulo," & _
          "FROM    [WebCarioca-ProjectWebApp].[dbo].[MSP_WssRisk]"

rsRisks.Open strSql, Conn