[Resolvido] .EOF e .BOF

[Edwilson Curti 0]

Bom Dia,

 

Pessoal, vejam o código abaixo:

 

i = 0 'Inicializa a Variável.

calculo_percent = 0

contgeral2 = 0

 

nregs3 = nregs3 - 1

 

'Redimensiona o Array, tornando-o dinâmico.

ReDim calculoperc_array(nregs3)

 

'Apura a ocorrencia das respostas na tabela.

Do While control4 = 0

For i = 0 To nregs3

codpergunta = codper_array(i)

resposta = resposta_array(i)

'Verifica ocorrências da resposta na tabela.

With cnnComando

.ActiveConnection = conexao_bd

.CommandType = adCmdText

.CommandText = "Select * From QUESTIONARIOS2 Where COD_PER = '" & codpergunta & "' And RESPOSTA_RESP = '" & resposta & "' ;"

Set rsSelecao = .Execute

End With

 

contgeral2 = rsSelecao.RecordCount

 

 

calculo_percent = ((contgeral2 / nregs) * 100) 'Acha o percentual da apuração.

 

calculoperc_array(i) = calculo_percent

 

Print i, contgeral2

 

If rsSelecao.EOF Then

rsSelecao.MoveFirst

End If

 

calculo_percent = 0

contgeral2 = 0

 

Next i

Exit Do

Loop

Set cnnComando = Nothing

Set rsSelecao = Nothing

 

Ele tem me apresentado o seguinte erro:

 

" BOF ou EOF são verdadeiros ou o registro atual foi excluído. A operação solicitada pelo aplicativo requer um registro atual."

 

Ele aponta sempre para a linha, rsSelecao.MoveFirst

 

Sei que algo há de errado pois o início ou fim foram encontrados. Tô meio crú neste negócio.

O que fazer neste caso? Se tenho que mudar

 

If rsSelecao.EOF Then

rsSelecao.MoveFirst

End If

 

como ela deve ficar então?

 

Por favor, me ajudem...

[Mário Monteiro 179]

tem algum registro?

[Edwilson Curti 0]

Tem sim, 5 registros.

[Mário Monteiro 179]

mas que atendam as condições do seu select?

[Edwilson Curti 0]

Ok Mário,

 

O Select é o que você vê no código postado por mim, acima, mas já consegui, veja abaixo o que fiz:

 

Troquei o

 

If rsSelecao.EOF Then

rsSelecao.MoveFirst

End If

 

por

 

If rsSelecao.RecordCount <> 0 then

rsSelecao.MoveFirst

End If

 

Obrigado pela atenção.

[Mário Monteiro 179]

tranquilo

 

Parabnes