Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Matheus Brito

[Resolvido] Problema com Select

Por , em ASP Clássico

Recommended Posts

Matheus Brito    12

Matheus Brito
Postado

Olá pessoal to fazendo uma listagem num select, mas ta dando o seguinte erro:

 

Tipo de erro:

ADODB.Recordset (0x800A0CC1)

O item não pode ser encontrado na coleção correspondente ao nome ou ao ordinal solicitado.

/vitrine_freedom/catalogo.asp, line 48

 

 

linha 48

<option value="<% = RS_Categoria("CATEGORIA_ID") %>"><% = RS_Categoria("CATEGORIA_NOME") %></option>

 

Segue codigo completo

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%Option Explicit%>

<%
dim conn
dim RSPageText
dim RSRodape
dim str,sql
dim RS_Categoria,RS_Rodape

set conn = server.CreateObject("adodb.connection")
str= "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("dataBase") & "\freedom.mdb"
conn.open str

conn.execute "insert into SESSIONPAGES(SESSIONID,NOME_PAGINA) values("& Session("SESSIONID") & "," & "'Catalogo')"

set RSPageText = conn.execute("select SUMARIO_PAGINA FROM CONTEUDO " & "where NOME_PAGINA='Catalogo'")

set RS_RODAPE = conn.execute("select SUMARIO_PAGINA from CONTEUDO " & "where NOME_PAGINA='Rodape'")

%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Catalogo de Produtos</title>
</head>

<body>



<form id="form" name="form" method="get" action="produto.asp">
  <label>Busque por Categoria
  <select name="Categoria">
   <%

Str= "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("dataBase") & "\freedom.mdb"
set conn= Server.CreateObject("adodb.connection")
conn.open Str

sql ="SELECT CATEGORIA_NOME FROM CATEGORIAS ORDER BY CATEGORIA_NOME;"

Set RS_categoria = conn.execute(sql)
Do While Not RS_Categoria.Eof

%>
<option value="<% = RS_Categoria("CATEGORIA_ID") %>"><% = RS_Categoria("CATEGORIA_NOME") %></option>
<%
	RS_Categoria.MoveNext
Loop

RS_Categoria.Close
Set RS_Categoria = Nothing

conn.close
set conn = nothing
%>
  </select>
  </label>
  <input type="submit" value="buscar" />
</form>
</body>
</html>
abs

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

Você tem que acrescentar o campo CATEGORIA_ID no SELECT.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Matheus Brito    12

Matheus Brito
Postado

Você tem que acrescentar o campo CATEGORIA_ID no SELECT.

Já ta hargon, nessa linha 48 ta ai o CATEGORIA_ID.Se não for isso não entendi

abs

Compartilhar este post

Link para o post
Compartilhar em outros sites

Matheus Brito    12

Matheus Brito
Postado

Você tem que acrescentar o campo CATEGORIA_ID no SELECT.

Já entendi é na consulta, o problema.

abs

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

Isso mesmo... é na consulta.

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito