2 replies to this topic

[ka@]

Bom dia Pessoal

Alguém sabe como resolvo esse erro?
Microsoft VBScript runtime error '800a01a8'

Object required

/conteudo/dia_namorados/2005/mensagem1.asp, line 36


Eis o trecho do código:

'salva e incrementa o contador de mensagens no BD.
Set vCursor = Server.CreateObject("ADODB.RecordSet")

vSql = "Select * From CARTAO"
vCursor.Open vSql, vConn, adOpenStatic

vContador = vCursor("CART_ID_CONT") + 1

Set vCursor = Nothing
vSql = "Update CARTAO Set CART_ID_CONT = " & vContador
vConn.BeginTrans
vConn.Execute vSql
vConn.CommitTrans
vCursor.Close --- linha 36

Grata, Kátia

[Worm]

Bom dia Pessoal

Alguém sabe como resolvo esse erro?
Microsoft VBScript runtime error '800a01a8'

Object required

/conteudo/dia_namorados/2005/mensagem1.asp, line 36


Eis o trecho do código:

'salva e incrementa o contador de mensagens no BD.
Set vCursor = Server.CreateObject("ADODB.RecordSet")

    vSql = "Select * From CARTAO"
    vCursor.Open vSql, vConn, adOpenStatic

vContador = vCursor("CART_ID_CONT") + 1
       
    Set vCursor = Nothing         
vSql = "Update CARTAO Set CART_ID_CONT = " & vContador
    vConn.BeginTrans
    vConn.Execute vSql
    vConn.CommitTrans
    vCursor.Close --- linha 36

Grata, Kátia

VC está fechando um obj que já está "destruido".

' aqui vc distruiu ele
    Set vCursor = Nothing 

Faça assim.

    vCursor.Close
    Set vCursor = Nothing 

Isso resolver seu problema.

Até.

Edição feita por: Worm, 02/06/2005, 14:05.

[ka@]

Muito Obrigada!