0

我想知道为什么我的查询一直返回错误 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

4

1 回答 1

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
于 2012-11-13T16:36:10.370 回答