Erro Na Consulta!

claytonprog · Janeiro 13, 2007

:blink: Pessoal é o seguinte estou com um probleminha na minha consulta. olhem o código:

index.asp

<%

Set Banco = Server.CreateObject("ADODB.Connection")

Banco.ConnectionString="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("alunos.mdb")

Banco.Open

Set Dados = Banco.Execute("SELECT * FROM alunos ORDER BY ID")

%>

<html>

<head>

<title>Página 1</title>

<!--

function abrePag(url,nmJanela,parametros,usu) {

window.open(url + '?usu=' + usu,nmJanela,parametros);

}

//-->

</script>

</head>

<body>

<%

if not Dados.Eof Then

while not Dados.Eof

%>

<a href="java script:abrePag('mostra.asp','<% = Dados("id") %>','jMostra','scroll=no,tollbars=no,top=1,left=1,location=yes')"><% = Dados("Nome") %></a>

<%

Dados.MoveNext

Wend

Else

%>

Nenhum aluno encontrado.

<% End If %>

</body>

</html>

mostra.asp

<%

id = Request.QueryString("usu")

Set Banco = Server.CreateObject("ADODB.Connection")

Banco.ConnectionString="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("alunos.mdb")

Banco.Open

Set Dados = Banco.Execute("SELECT * FROM alunos WHERE ID= " & id)[b]

%>

<html>

<head>

<title>Mostra Dados</title>

</head>

<body>

<% if not Dados.Eof Then %>

Código: <% = Dados("ID") %>

Nome: <% = Dados("NOME") %>

Ano: <% = Dados("ano") %>

Data Nascimento: <% = Dados("data_nascimento") %>

<% Else %>

Aluno não encontrado.

<% End If %>

</body>

</html>

na linha que está em vermelho está o erro

Tipo de erro:

Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)

[Microsoft][Driver ODBC para Microsoft Access] Erro de sintaxe (vírgula) na expressão de consulta 'ID= scroll=no,tollbars=no,top=1,left=1,location=yes'.

/pesquisaaluno/mostra.asp, line 9

Tipo de navegador:

Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 2.0.50727; MEGAUPLOAD 1.0)

Página:

GET /pesquisaaluno/mostra.asp

DELPHI-Man32 · Janeiro 14, 2007

dei uma olhada rápida e me parece que no link você não tá passando o parametro "usu" que está no mostra.asp.

<p><a href="java script:abrePag('mostra.asp','<% = Dados("id")

tenta assim:

<p><a href="java script:abrePag('mostra.asp?usu=<%=Dados("id")%>','<% = Dados("id")

o arquivo mostra tem uma variavel que não recebe um valor (id) então sua consulta recebe "null"

muda e veja se dar certo.

claytonprog · Janeiro 14, 2007

Amigão Delphi-32! Num deu certo não!

fiz uma outra coisa dá uma olhada neste link.

http://www.colegiosaoluiz.com.br/pesquisaaluno/index.asp

:huh: :huh:

num sei porque ainda continua com o mesmo erro.

Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[Microsoft][ODBC Microsoft Access Driver] Syntax error (comma) in query expression 'ID= scroll=no,tollbars=no,top=1,left=1,location=yes'.

/pesquisaaluno/mostra.asp, line 9

Hellppppppp

DELPHI-Man32 · Janeiro 14, 2007

ME PARECE que O ERRO é porque não há VALOR NA VARIAVEL.

MANDA O COD PRA MIM OU ME ADD NO MSN

peguei seu link lá

java script:abrePag('mostra.asp','1966','jMostra','scroll=no,tollbars=no,top=1,left=1,location=yes')

está vendo:

você tem que fazer assim

java script:abrePag('mostra.asp?usu=1966','1966','jMostra','scroll=no,tollbars=no,top=1,left=1,location=yes')

para fazer isso:

java script:abrePag('mostra.asp<%=RS("id")%>','<%=RS("id")%>','jMostra','scroll=no,tollbars=no,top=1,left=1,location=yes')

mf_vagner@já sabe....

claytonprog · Janeiro 14, 2007

:D :D galera refiz alguns coisas no codigo e consegui! Obrigado pela força.

Pra quem quiser ai vai codigo funfando numa boa para aqueles que um dia precisar.

index.asp

<%

Set Banco = Server.CreateObject("ADODB.Connection")

Banco.ConnectionString="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("alunos.mdb")

Banco.Open

Set Dados = Banco.Execute("SELECT * FROM alunos ORDER BY ID")

%>

<html>

<head>

<title>Página 1</title>

function estudos(nome)

{

window.open(nome, "estudos", "toolbar=no,location=no,maximize=no,directories=no,status=no,menubar=no,scrollbars=yes,resizable=no,top=0,left=0,menubar=no,width=400,height=250");

}

</script>

</head>

<body>

<%

if not Dados.Eof Then

while not Dados.Eof

%>

<%=dados("nome")%>

<a href="java script:estudos('mostra.asp?ID=<%=dados("id")%>')">Clique aqui para visualizar!</a>

<%

Dados.MoveNext

Wend

Else

%>

Nenhum aluno encontrado.

<% End If %>

</body>

</html>

mostra.asp

<%

id = Request.QueryString("id")

Set Banco = Server.CreateObject("ADODB.Connection")

Banco.ConnectionString="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("alunos.mdb")

Banco.Open

Set Dados = Banco.Execute("SELECT * FROM alunos WHERE ID= " & id)

%>

<html>

<head>

<title>Visualizando Alunos</title>

</head>

<body>

<% if not Dados.Eof Then %>

Código: <% = Dados("ID") %>

Nome: <% = Dados("NOME") %>

Ano: <% = Dados("ano") %>

Data Nascimento: <% = Dados("data_nascimento") %>

<% Else %>

Aluno não encontrado.

<% End If %>

<a href="java script:onClick=window.close()">Fechar Janela</a></td>

</body>

</html>

ai está o link pra teste:

http://www.colegiosaoluiz.com.br/pesquisaaluno/index.asp

DELPHI-Man32 · Janeiro 14, 2007

viu o que te falei?

<a href="java script:estudos('mostra.asp?ID=<%=dados("id")%>')">

passar o parâmetro no link que chama a pagina!

eu acho mais interessante ordenar a lista pelo Nome Asc e paginar os resultados.

ok.

Entrar

Erro Na Consulta!

Pergunta

claytonprog

Link para o comentário

Compartilhar em outros sites

5 respostass a esta questão

Posts Recomendados

DELPHI-Man32

Link para o comentário

Compartilhar em outros sites

claytonprog

Link para o comentário

Compartilhar em outros sites

DELPHI-Man32

Link para o comentário

Compartilhar em outros sites

claytonprog

Link para o comentário

Compartilhar em outros sites

DELPHI-Man32

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns

Navegação

Atividades