错误关闭

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