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とSharePoint2013も使用していただきありがとうございます

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 に答える