Não Estou Conseguindo Fechar Meu Record Set

[ju_rezende]

Olá pessoal estou com um probleminha não estou conseguindo fechar meus recordset

vejam se está certo

rs.close

set rs=nothing

Valeu pela atenção

[fantasma]

objRS.Close

con.Close

Set objRS = Nothing

Set con = Nothing

[ju_rezende]

Poi é fiz exatamente assim mas dá o seguinte erro

ADODB.Recordset error '800a0e78'

Operation is not allowed when the object is closed.

/DeAaZmostra.asp, line 128

[fantasma]

coloque o script DeAaZmostra.asp , para olhar o cod

[ju_rezende]

Olhem o meu codigo

con.Close

  rs.Close

  rs1.Close

  rs2.Close

  set con= Nothing

  set rs = Nothing

  set rs1 = Nothing

  set rs2 = Nothing%>

[kuroi]

assim:

If rs.state <> 0 Then rs.close

pois o rs já esta fechado.

faca isso com todos.

[ju_rezende]

Assim?

con.Close

If rs.state <> 0 Then rs.close rs1.Close end if

If rs.state <> 0 Then rs2.close end if

If rs.state <> 0 Then rs1.close end if

set con= Nothing

set rs = Nothing

set rs1 = Nothing

set rs2 = Nothing%>

[kuroi]

quase:

<% if con.state <> 0 then con.Close
If rs.state <> 0 Then rs.close
If rs2.state <> 0 Then rs2.close
If rs1.state <> 0 Then rs1.close
set con= Nothing
set rs = Nothing
set rs1 = Nothing
set rs2 = Nothing %> 

[ju_rezende]

Agora não deu mais a mensagem de erro..você poderia me explicar este comando state

[kuroi]

state significa estado. ou seja, essa proprieade mostra o estado em q se encontra o recordset.

sei q se o state for igual a 0, significa q o rs esta fechado. se for igual a 1 significa q esta aberto.

no exemplo, você não conseguia fechar o recordset porque ele já estava fechado. então verificamos a propriedade state. se ela for diferente de 0, ou seja o rs não esta fechado, so então fechamos.

acho q alem de 0 e 1, outros valores podem ocupar a propriedade state do recordset, mas não conheco nenhum caso em q o rs tenha estado diferente de aberto ou fechado.

[ju_rezende]

Olá Kuori deu erro na linha 130

eroo

Microsoft VBScript compilation error '800a03f6'

Expected 'End'

/DeAaZmostra.asp, line 130

<% if con.state <> 0 then con.Close

If rs.state <> 0 Then rs.close

If rs2.state <> 0 Then rs2.close

If rs1.state <> 0 Then rs1.close

set con= Nothing

set rs = Nothing

set rs1 = Nothing

linha 130 set rs2 = Nothing %>

[kuroi]

... deve ser algum if ou while q ficou aberto. poste o codigo todo do arquivo pra gente dar uma olhada.

[ju_rezende]

Não sei o q houve mas agora funcionou>>>>>

valeu mesmo pela ajuda