erro terrível

[nspriscila 0]

Pessoal já tentei de tudo e não consigo identificar este erro:

 

ADODB.Field (0x800A0BCD)

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

/programa_de_estagio/atualizar.asp, line 37

 

 

<%

Response.Buffer = true

Response.Expires = 0

session("excluir") = true

session("alterar") = true

 

Dim data_hoje

Dim cod

Dim local

Dim periodo_inicial

Dim periodo_final

Dim aluno

Dim matricula

Dim instituicao

Dim curso

Dim serie

Dim turno

Dim supervisor

Dim empresa

Dim area

Dim objetivos

Dim resumo

dim data_inclusao

 

cod    = request("cod")

 

sql = "select * from tb_estagio where cod = " & "'"  & cod & "'"

 

call executa_sql(sql,0)

 

linha 37 local    = rs_consulta("local")

periodo_inicial        = rs_consulta("periodo_inicial")

periodo_final          = rs_consulta("periodo_final")

aluno        = rs_consulta("aluno")

matricula      = rs_consulta("matricula")

instituicao        = rs_consulta("instituicao")

curso        = rs_consulta("curso")

serie        = rs_consulta("serie")

turno        = rs_consulta("turno")

supervisor        = rs_consulta("supervisor")

empresa        = rs_consulta("empresa")

area        = rs_consulta("area")

objetivos        = rs_consulta("objetivos")

resumo        = rs_consulta("resumo")

data_inclusao      = rs_consulta("data_inclusao")

 

call fechar_recordset()

 

SQL = "SELECT TOP 1 cod FROM tb_estagio ORDER BY cod DESC"

 

set rs_consulta= Conexao.Execute(SQL)

if NOT rs_consulta.EOF then

 

    codigo_atual = rs_consulta("cod")

else

    codigo_atual = 0

end if

rs_consulta.Close

set rs_consulta = nothing

 

 

Dim cod_estag

Dim atividade

Dim h1

Dim h2

 

 

For x = 1 to 5

If x = 1 then 

 

  cod_estag  =codigo_atual

  atividade  =rs_consulta("atv1")

  h1    =rs_consulta("h1")

  h2    =rs_consulta("h6") 

elseif x = 2 then

 

  cod_estag  =codigo_atual

  atividade  =rs_consulta("atv2")

  h1    =rs_consulta("h2")

  h2    =rs_consulta("h7") 

 

elseif x = 3 then

 

  cod_estag  =codigo_atual

  atividade  =rs_consulta("atv3")

  h1    =rs_consulta("h3")

  h2    =rs_consulta("h8")

 

elseif x = 4 then

 

  cod_estag  =codigo_atual

  atividade  =rs_consulta("atv4")

  h1    =rs_consulta("h4")

  h2    =rs_consulta("h9")

 

elseif x = 5 then

 

  cod_estag  =codigo_atual

  atividade  =rs_consulta("atv5")

  h1    =rs_consulta("h5")

  h2    =rs_consulta("h10")

 

end if

 

sql = "select * from tb_cronograma where cod = " & "'"  & cod & "'"

 

call executa_sql(sql,0)

 

Next

 

session("alterar") = true

%>

[Mário Monteiro 179]

este erro acontece quando você tenta usar um valor vindo do DB

 

local = rs_consulta("local")

 

sem que tenha sido retornado nenhum registro...

 

para evitar este tipo de erro sempre teste se o recordeset está vazio ou não

 

[tr][/tr][tr][/tr]

ASP

IF NOT rs_consulta.EOF THEN   local = rs_consulta("local") periodo_inicial = rs_consulta("periodo_inicial") periodo_final = rs_consulta("periodo_final") aluno = rs_consulta("aluno") matricula = rs_consulta("matricula") instituicao = rs_consulta("instituicao") curso = rs_consulta("curso") serie = rs_consulta("serie") turno = rs_consulta("turno") supervisor = rs_consulta("supervisor") empresa = rs_consulta("empresa") area = rs_consulta("area") objetivos = rs_consulta("objetivos") resumo = rs_consulta("resumo") data_inclusao = rs_consulta("data_inclusao")   END IF

[nspriscila 0]

agora deu outro erro:

 

Tipo de erro:

Erro de tempo de execução do Microsoft VBScript (0x800A01F4)

Variável não definida: 'Conexao'

/programa_de_estagio/atualizar.asp, line 61

 

na linha do

 

Set rs_consulta = Conexao.Open(SQL)

[Mário Monteiro 179]

sim você está Option Explicit em sua pagelogo deve declarar todas as variaveis e objetos usadoscoloque isto no todo de sua pageDim ConexaoBem mas este erro acontecerá pra toda e qualquer variavel, então prepare-se pra colocar Dim nome_da_variavel em todo erro deste tipo que aparecer...

[nspriscila 0]

coloquei mas continua dando erroObjeto necessário: ''/programa_de_estagio/atualizar.asp, line 62

[Mário Monteiro 179]

qual é esta linha??

[nspriscila 0]

Set rs_consulta = Conexao.Open(SQL) esta mesma

[explore 3]

Verifique se você declaro a variavel corretamente!!!!!!!!

 

ASP [/tr][tr]Dim Conexao

Dim rs_consulta

[/tr]

 

ou

 

ASP [/tr][tr]Dim Conexao, rs_consulta[/tr]

[nspriscila 0]

não deu certo....não é a declaração das variaveis que está dando problema, pois isso já está na minha página de conexão.é outra coisa...

[explore 3]

você fez assim!!!!!!!!!!!!!!

 

ASP [/tr][tr]sql = "select * from tb_estagio where cod = " & "'" & cod & "'"[/tr]

 

Tenta Assim

 

ASP [/tr][tr]sql = "select * from tb_estagio where cod = " "'" & cod &"'" "

 

call executa_sql(sql,0)

[/tr]

[Mário Monteiro 179]

você criou o objeto ou está tentando usar sem criar???

[nspriscila 0]

Meu nem sei mais o que eu estou fazendo, estou confusa...o problema está neste código, não como consertarset rs_consulta= Conexao.Execute(SQL)if NOT rs_consulta.EOF then codigo_atual = rs_consulta("cod")else codigo_atual = 0end ifrs_consulta.Closeset rs_consulta = nothing

[Mário Monteiro 179]

o que disse é que você esta usando o objeto Conexao sem possivelmente ter criado a conexao com o banco de dados...