Ir para conteúdo

POWERED BY:

Arquivado

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

claytonprog

erro na consulta...

Recommended Posts

: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>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

<script language="javascript" type="text/javascript">

<!--

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

%>

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

<%

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)

 

 

%>

<html>

<head>

<title>Mostra Dados</title>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

</head>

 

<body>

<% if not Dados.Eof Then %>

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

<strong>Nome:</strong> <% = Dados("NOME") %><br>

<strong>Ano:</strong> <% = Dados("ano") %><br>

<strong>Data Nascimento:</strong> <% = 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

Compartilhar este post


Link para o post
Compartilhar em outros sites

o id esta vaziotem certeza que esta passando ele na querystring?

Compartilhar este post


Link para o post
Compartilhar em outros sites

nets pagina como esta a sua URL?

Compartilhar este post


Link para o post
Compartilhar em outros sites

voca nao esta passando o ID do aluno na URL

Compartilhar este post


Link para o post
Compartilhar em outros sites

em vez de montar o link assimjava script:abrePag('mostra.asp','11','jMostra','scroll=no,tollbars=no,top=1,left=1,location=yes')montejava script:abrePag('mostra.asp?usu=11','jMostra','scroll=no,tollbars=no,top=1,left=1,location=yes')so que logico que no 11 voce poe a variavael que contem o ID do usuario

Compartilhar este post


Link para o post
Compartilhar em outros sites

http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

: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>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

<script language="javascript">

function estudos(nome)

{

window.open(nome, "estudos", "toolbar=no,location=no,maximize=no,directories=no,status=no,menubar=no,scro

llbars=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

%>

<font size="2"><font color="#000000" face="Verdana, Arial, Helvetica, sans-serif"><p align="justify"><%=dados("nome")%></font>

 

<br><br>

<font size="2">  <img border="0" src="print.jpg">   

</font><font size="2">

 

<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>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

</head>

 

<body>

<% if not Dados.Eof Then %>

<font size="2" face="Verdana" color="#000000"><strong>Código:</strong> <% = Dados("ID") %><br>

<strong>Nome:</strong> <% = Dados("NOME") %><br>

<strong>Ano:</strong> <% = Dados("ano") %><br>

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

<% Else %>

Aluno não encontrado.

<% End If %>

<font size="1" face="Verdana" color="#000000"> </font><p align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><a href="java script:onClick=window.close()">Fechar Janela</a></font></td>

</p>

</body>

</html>

 

 

 

ai está o link pra teste:

 

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

Compartilhar este post


Link para o post
Compartilhar em outros sites

entao voce fez como eu sugeriAbraços

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

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