錯誤關閉

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