Consulta Asp

Agosto 1, 2006

Estou fazendo uma consulta a um banco de dados Access para uma pagina em ASP

Quando faço a consulta completa, de todos os registros, não dá problema, vejo cada registro paginando normalmente.

Porém quando seleciono um tipo de registro ele me mostra somente o primeiro registro da seleção e ao clicar wm " Proximo >>" ele dá o erro a baixo

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

[Microsoft][Driver ODBC para Microsoft Access] Erro de sintaxe (operador faltando) na expressão de consulta 'ID ='. "

Por favor alguém pode me ajuda?

abaixo segue um o trecho da pagina ASP

'--------------------------------------------------

<html>

<head>

<title>ASP Dataform</title>

</head>

<body>

<center><font face="Arial" size="4"><b>Formulário de Consulta</b></h2></center>

<%

Dim TXTID

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

Conexao.Open "DBQ=C:\Inetpub\wwwroot\exemplos\pagina\sig1.mdb;Driver={Microsoft Access Driver (*.mdb)};"

TXTID = Request.form("ID")

ComandoSQL = "SELECT * FROM qry_InformeGeralAg Where ID = " & TXTID & ""

Set bd = Conexao.Execute(ComandoSQL)

If Not bd.EOF Then

bd.Move Request.QueryString("n")

%>

<tr>

<tr>

<font face="Arial" size="2">Prefixo:</font></td>

<tr>

<tr>

<font face="Arial" size="2">posto:</font></td>

<tr>

<font face="Arial" size="2">Palavra Chave:</font></td>

<tr>

<font face="Arial" size="2">NomeServico:</font></td>

<tr>

<font face="Arial" size="2">DescricaoSolicitacao:</font></td>

<tr>

<font face="Arial" size="2">Ocorrencia:</font></td>

<%

Else

%>

<font face="Arial" size="2"><b> Nenhum valor encontrado</b></font>

<%

End If

%>

</table><br><center>

</body>

<%

If Request.QueryString("n") > 0 then

Response.Write "<a href=" & Request.ServerVariables("SCRIPT_NAME") & "?n=" & Request.QueryString("n") - 1 & "><< Anterior</a>  "

End If

bd.MoveNext

If Not bd.EOF then

Response.Write "  <a href=" & Request.ServerVariables("SCRIPT_NAME") & "?n=" & Request.QueryString("n") + 1 & ">Próximo >></a>"

End If

Conexao.Close

Set bd = Nothing

Set Conexao = Nothing

%>

</html>

'--------------------------------------------------------------

Obrigado!!

.Andreia. · Agosto 1, 2006

primeiro que você postou no local errado, o mais ideal seria direto em ASP... mas blza.

Coloque no link (proximo) a variavel do ID também. Coloquei algumas coisas pra você alterar e veja se resolve:

TXTID = Request("ID")
.
.
Response.Write "<a href=" & Request.ServerVariables("SCRIPT_NAME") & "?n=" & Request.QueryString("n") - 1 & "&ID="&TXTID&"><< Anterior</a>  "
.
.
.

Response.Write "  <a href=" & Request.ServerVariables("SCRIPT_NAME") & "?n=" & Request.QueryString("n") + 1 & "&ID="&TXTID&">&>Próximo >></a>"

Paulo.Cesar · Agosto 2, 2006

Resolveu.

Beleza.

Obrigadão..

:D

py2tz · Agosto 30, 2006

Tenho uma consulta simples no BD access onde existe uma caixa de pesquisa e que direciona ao resultado. Simples mas nã tá rodando, acho que tem haver com um tal de "cat" que existe.

A caixa é simples da pagina chamada busca1.asp

<tr>

<td align=center><font class=txt8b> Pesquise uma Iota Ex: AF-008 ou 008 ou AF</font></td>

</tr>

<tr>

</form>

</td>

</tr>

</table>

</div>

E o resultado sai nesta outra pagina chamada busca2.asp

<%

vIota = request.form("Iota")

DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; "

DSNtemp=dsntemp & "DBQ=" & server.mappath("../../../dados/arvore.mdb")

sqlstmt = "SELECT * FROM prlist WHERE Iota like '%" & vIota & "%' "

Set rs = Server.CreateObject("ADODB.Recordset")

rs.Open sqlstmt, DSNtemp, 3, 3

totalrecs = rs.recordcount

achei="sim"

if rs.eof then%>

<html>

<head>

<title>IOTA - Islands On The Air</title>

</head>

<body>

<tr>

<p align="center"><font face="Verdana" size="4">Não Achei nenhum Arquivo com este Nome!!!</font></p>

<tr>

</td>

</tr>

</table>

</div>

<br>

</td>

</tr>

</table>

<%achei="não"

end if

x = 0

for x = 1 to totalrecs

if rs.eof then

exit for

else

%>

<% AbreConexao

cat = request.querystring("cat")

If cat = "" Then

%>

<tr>

<td width="100" valign="top"><font class=menu-cab> Prefixo</font></td>

</tr>

</table>

<%Sql = "SELECT * FROM prlist ORDER BY Iota"

Set rs = Conexao.Execute(Sql)

While not rs.EOF %>

<tr>

</tr>

</table>

<% rs.MoveNext

Wend

rs.close

FechaConexao

Set rs = nothing %>

<tr>

<td align=right valign="top"><font class="txt8b"><A href=cad.asp>Voltar para a Relação das Iotas</a></font></td>

</tr>

</table>

</div>

<% else %>

<% Sql = "SELECT * FROM prlist WHERE prlist = "& cat &" ORDER BY Iota"

Set rs = Conexao.Execute(Sql)

if rs.EOF then%>

<font class="txt8b">Nenhum arquivo listado nesta categoria ainda!</font>

<% else

While not rs.EOF %>

<% rs.MoveNext

Wend

rs.close

FechaConexao

Set rs = nothing

end if

end if%>

<% rs.MoveNext %>

<% end if

%>

</div>

</td>

</tr>

</table>

<% end if%>

</body>

</html>

O erro que aparece:

Microsoft VBScript runtime error '800a000d'

Type mismatch: 'AbreConexao'

/tree/bigtree/busca2.asp, line 55

A linha 55 é:

<% AbreConexao

cat = request.querystring("cat")

If cat = "" Then

%>

Teria alguma luz para esse cego que não consegue ver o problema?????????

Obrigado Fausto

kuroi · Agosto 30, 2006

o que tem na sub AbreConexao??

alguém move isso pra ASP!!

EDITADO:

alias, alguém fecha esse tópico, que já vi que tem um igual em ASP.

Editado Agosto 30, 2006 por kuroi

Entrar

Consulta Asp

Pergunta

Guest Paulo.Cesar

Link para o comentário

Compartilhar em outros sites

4 respostass a esta questão

Posts Recomendados

.Andreia.

Link para o comentário

Compartilhar em outros sites

Paulo.Cesar

Link para o comentário

Compartilhar em outros sites

py2tz

Link para o comentário

Compartilhar em outros sites

kuroi

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns

Navegação

Atividades