Ajuda Com Loop No Asp

Fevereiro 15, 2006

Ae pessoal...

to com um erro quando coloco um WHILE no meu codigo...

o erro é o seguinte....

Tipo de 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.

/cadastro/result.asp, line 71

....alguém pode me dar um help... por favor....

é urgente!!!!

fercosmig · Fevereiro 15, 2006

posta seu codigo ae!

aparentemente esta faltando verificar se o rs não esta vazio(if rs.bof and rs.eof then)

abraços

willianpp · Fevereiro 15, 2006

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

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<head>

<title>Untitled Document</title>

</head>

<body>

<%

dim varsearch

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

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

varsearch=Request.Form("search")

strSQL = "SELECT nome, peso, altura FROM keep WHERE num = " & varsearch

Set rstSearch = Conexao.Execute(strSQL)

%>

</p></td>

</tr>

</table>

<font size="1" face="Verdana, Arial, Helvetica, sans-serif">[ Foram encontradas <b><%=intContador%></b>

ocorrências ] </font> </p>

<tr>

<th width="107" bgcolor="#FF6600"><FONT color=royalblue face=Tahoma size=2><STRONG><font color="#FFFFFF">::Nome

::</font></STRONG></FONT></th>

<th width="80" bgcolor="#FF6600"><FONT color=royalblue face=Tahoma size=2><STRONG><font color="#FFFFFF">::

Email::</font></STRONG></FONT></th>

<th width="114" bgcolor="#FF6600"><FONT color=royalblue face=Tahoma size=2><STRONG><font color="#FFFFFF">::

Fone ::</font></STRONG></FONT></th>

<th width="162" bgcolor="#FF6600"><FONT color=royalblue face=Tahoma size=2><STRONG><font color="#FFFFFF">::

Foto ::</font></STRONG></FONT></th>

</tr>

<tr>

<label>

<% While Not rstSearch.EOF %>

<%=rstSearch("nome") %>

</option>

<% rstsearch.MoveNext

Wend

%>

</select>

</label>

</form>

</tr>

</table>

 Sua busca foi processada em

<%response.write FormatNumber( Timer - inicio, 2 )%>

segundos.</font><br>

</body>

</html>

***o problema ta no campo select.... quero listar neles todos q tenham um certo codigo....mas.. ta dando erro...

fercosmig · Fevereiro 15, 2006

willianpp · Fevereiro 15, 2006

permanece o mesmo erro...

eis como ficou o codigo...

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

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<head>

<title>Untitled Document</title>

</head>

<body>

<%

dim varsearch

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

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

varsearch=Request.Form("search")

strSQL = "SELECT nome, peso, altura FROM keep WHERE num = " & varsearch

Set rstSearch = Conexao.Execute(strSQL)

%>

</p></td>

</tr>

</table>

<font size="1" face="Verdana, Arial, Helvetica, sans-serif">[ Foram encontradas <b><%=intContador%></b>

ocorrências ] </font> </p>

<tr>

<th width="107" bgcolor="#FF6600"><FONT color=royalblue face=Tahoma size=2><STRONG><font color="#FFFFFF">::Nome

::</font></STRONG></FONT></th>

<th width="80" bgcolor="#FF6600"><FONT color=royalblue face=Tahoma size=2><STRONG><font color="#FFFFFF">::

Email::</font></STRONG></FONT></th>

<th width="114" bgcolor="#FF6600"><FONT color=royalblue face=Tahoma size=2><STRONG><font color="#FFFFFF">::

Fone ::</font></STRONG></FONT></th>

<th width="162" bgcolor="#FF6600"><FONT color=royalblue face=Tahoma size=2><STRONG><font color="#FFFFFF">::

Foto ::</font></STRONG></FONT></th>

</tr>

<tr>

<label>

<% If not rstSearch.BOF and not rstSearch.EOF Then

While Not rstSearch.EOF %>

<%=rstSearch("nome") %>

</option>

<% rstsearch.MoveNext

Wend

End If

%>

</select>

</label>

</form>

</tr>

</table>

 Sua busca foi processada em

<%response.write FormatNumber( Timer - inicio, 2 )%>

segundos.</font><br>

</body>

</html>

****

Tipo de erro:

ADODB.Field (0x80020009)

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

/cadastro/result.asp

willianpp · Fevereiro 15, 2006

permanece o mesmo erro...

eis como ficou o codigo...

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

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<head>

<title>Untitled Document</title>

</head>

<body>

<%

dim varsearch

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

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

varsearch=Request.Form("search")

strSQL = "SELECT nome, peso, altura FROM keep WHERE num = " & varsearch

Set rstSearch = Conexao.Execute(strSQL)

%>

</p></td>

</tr>

</table>

<font size="1" face="Verdana, Arial, Helvetica, sans-serif">[ Foram encontradas <b><%=intContador%></b>

ocorrências ] </font> </p>

<tr>

<th width="107" bgcolor="#FF6600"><FONT color=royalblue face=Tahoma size=2><STRONG><font color="#FFFFFF">::Nome

::</font></STRONG></FONT></th>

<th width="80" bgcolor="#FF6600"><FONT color=royalblue face=Tahoma size=2><STRONG><font color="#FFFFFF">::

Email::</font></STRONG></FONT></th>

<th width="114" bgcolor="#FF6600"><FONT color=royalblue face=Tahoma size=2><STRONG><font color="#FFFFFF">::

Fone ::</font></STRONG></FONT></th>

<th width="162" bgcolor="#FF6600"><FONT color=royalblue face=Tahoma size=2><STRONG><font color="#FFFFFF">::

Foto ::</font></STRONG></FONT></th>

</tr>

<tr>

<label>

<% If not rstSearch.BOF and not rstSearch.EOF Then

While Not rstSearch.EOF %>

<%=rstSearch("nome") %>

</option>

<% rstsearch.MoveNext

Wend

End If

%>

</select>

</label>

</form>

</tr>

</table>

 Sua busca foi processada em

<%response.write FormatNumber( Timer - inicio, 2 )%>

segundos.</font><br>

</body>

</html>

****

Tipo de erro:

ADODB.Field (0x80020009)

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

/cadastro/result.asp

willianpp · Fevereiro 15, 2006

agora ta dando esse erro aki... estranhoo

Tipo de erro:

Provider (0x80004005)

Erro não especificado

/cadastro/result.asp, line 15

dim varsearch

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

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

***a linha 15 é a linha da conexao... tava ok com .. nem mexi!

Deividy · Fevereiro 15, 2006

seu banco tem permissão de escrita ?

.Andreia. · Fevereiro 15, 2006

Tenta desta forma:

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

willianpp · Fevereiro 15, 2006

tem permissao sim.. a parte de inserção ta funcionando na bowa

andreia...deu mesmo erro inesperado...

olha só... se eu colocar assim.. ele lista pra mim....

<% While Not rstSearch.EOF %>

<tr>

<label>

<%=rstSearch("nome") %>

</option>

</select>

</label>

</form>

</tr>

<% rstsearch.MoveNext

Wend %>

**só que.. o q eu quero é colocar dentro do campo list todos os valores q contenham um codigo X e la eu escolho quem quem eu quero....

entenderam.. só q não to conseguindo

Deividy · Fevereiro 15, 2006

não entendi o quer fazer

você quer que no campo do select list tenha dados mais especificos?

willianpp · Fevereiro 15, 2006

quero listar no campo LIST... todos os nomes q tenham o codigo 5(por exemplo!)

aí quando abrir o menuzinho... aparecer la todos os nomes....

o maximo q consegui fazer foi aparecer os nomes um em cada linda...

mas quero joga-los dentro do list.

Deividy · Fevereiro 15, 2006

já tento fazer assim?

willianpp · Fevereiro 15, 2006

**** olha o q rola....

Tipo de erro:

Provider (0x80004005)

Erro não especificado

/cadastro/result2.asp, line 16

olha o codigo....

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<head>

<title>Untitled Document</title>

</head>

<body>

<%

dim varsearch, rstsql, rstsearch

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

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

varsearch=Request.Form("search")

strSQL = "SELECT nome FROM keep WHERE num = " & varsearch

Set rstSearch = Conexao.Execute(strSQL)

%>

</p>

<p></p>

<tr>

<th width="107" bgcolor="#FF6600"><font color=royalblue face=Tahoma size=2><strong><font color="#FFFFFF">::Nome

::</font></strong></font></th>

</tr>

<tr>

<label>

<% While Not rstSearch.EOF %>

<%=rstSearch("nome") %>

</option>

<% rstsearch.MoveNext

Wend

%>

</select>

</label>

</form>

</tr>

</table>

</font><br>

</body>

</html>

***pulgas...q negocio embaçado velho! e parece ser tão besta... to começando a achar q o problema é o mané aki!

willianpp · Fevereiro 15, 2006

olha...atualizei a pagina e deu certo.. apareceu todos os nomes dentro do list..

mas.. parece meio instavel

ora aparece.. ora da o erro não espeficado

to entendendo nada!

Deividy · Fevereiro 15, 2006

a linha 16 é essa

varsearch=Request.Form("search")

ou a conexão?

willianpp · Fevereiro 15, 2006

a linha 16 é essa aki

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

a da conexão...

não psso ficar com ele instavel pois será um sisteminha... simples... será usado nesse fds...

Deividy · Fevereiro 15, 2006

tenta assim

willianpp · Fevereiro 15, 2006

rsrs...rollou esse erro agora

Tipo de erro:

Microsoft OLE DB Provider for ODBC Drivers (0x80004005)

[Microsoft][Driver ODBC para Microsoft Access]Erro geral Não é possível abrir a chave 'Temporary (volatile) Jet DSN for process 0xfe8 Thread 0xcb8 DBC 0xaabe4c Jet' do Registro.

.... ****consegui arrumar...

tava faltando fechar a conexao... e setar o nothing no rs...

dã~~aãã~... sou um cabeçao mesmo....

galera.. muito obrigado ... de verdade!!!

mas é só o começo...

rsrs... ainda to no começo do sistema...:-)

shalom!

Deividy · Fevereiro 15, 2006

precisando estamos ai!

Entrar

Ajuda Com Loop No Asp

Pergunta

Guest - Willian -

Link para o comentário

Compartilhar em outros sites

19 respostass a esta questão

Posts Recomendados

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns