8 replies to this topic

[_Civ3 Brasil_]

Olá pessoal,

Sou bastante novato na área e banco de dados access, estou aprendendo aos poucos, mas tenho uma dúvida, e não consigo fazer essas duas coisas;

Tenho esse código que mostra todos os registros da tabela "mes":

<%Sql = "SELECT * FROM mes ORDER BY id"
Set rs = Conexao.Execute(Sql)
While not rs.EOF %><font size="2">
          <a href="exibir.asp?cat=<%=rs("id")%>"><%=rs("nome")%></a><BR>
<% rs.MoveNext
Wend
rs.close
FechaConexao
Set rs = nothing %>

Eu queria saber como ao invés de mostrar todos os registros, mostrar:

1) Só o registro mais novo (o último)
2) Todos os registros, com exceção do mais novo

Vcs podem me dar uma mãozinha?

Valeu!!

[Tarkan]

1 - "SELECT top 1 * FROM mes"
2 - Seleciona o primeiro usuário (como no exemplo acima) e joga seu nick pra uma variável. Depois bota a condição:

If rs("blablabla") <> varnick Then
Response.Write "Exibe os resultados"
End If

Entendeu?
Qualquer coisa, poste sua dúvida.
Boa sorte!

[cinraq]

Aê Civ, usando seu próprio código como exemplo:

somente o último registro, basta não executar dentro de uma instrução while:

<%Sql = "SELECT * FROM mes ORDER BY id"
Set rs = Conexao.Execute(Sql)
%>
<font size="2">
         <a href="exibir.asp?cat=<%=rs("id")%>"><%=rs("nome")%></a><BR>
<% rs.close
FechaConexao
Set rs = nothing %>

mostrando todos menos o último registro:

<%Sql = "SELECT * FROM mes ORDER BY id"
Set rs = Conexao.Execute(Sql)
rs.MoveNext
While not rs.EOF %><font size="2">
         <a href="exibir.asp?cat=<%=rs("id")%>"><%=rs("nome")%></a><BR>
<% rs.MoveNext
Wend
rs.close
FechaConexao
Set rs = nothing %>

Você pode mudar a posição do ponteiro dentro dos registros usando as seguintes instruções:
rs.MoveNext = vai para o próximo registro
rs.MovePrevious = volta ao registro anterior
rs.MoveFirst = vai para o primeiro registro
rs.MoveLast = vai para o último registro

QQ dúvida estamos aí, inclusive fiquei até te devendo uma satisfação de outras coisas que tinha me pedido, mas não consegui, desculpa cara!!!

[_Civ3 Brasil_]

1 - "SELECT top 1 * FROM mes"
2 - Seleciona o primeiro usuário (como no exemplo acima) e joga seu nick pra uma variável. Depois bota a condição:

If rs("blablabla") <> varnick Then
Response.Write "Exibe os resultados"
End If

Entendeu?
Qualquer coisa, poste sua dúvida.
Boa sorte!

Valeu cara!

[_Civ3 Brasil_]

Aê Civ, usando seu próprio código como exemplo:

somente o último registro, basta não executar dentro de uma instrução while:

<%Sql = "SELECT * FROM mes ORDER BY id"
Set rs = Conexao.Execute(Sql)
%>
<font size="2">
         <a href="exibir.asp?cat=<%=rs("id")%>"><%=rs("nome")%></a><BR>
<% rs.close
FechaConexao
Set rs = nothing %>

mostrando todos menos o último registro:

<%Sql = "SELECT * FROM mes ORDER BY id"
Set rs = Conexao.Execute(Sql)
rs.MoveNext
While not rs.EOF %><font size="2">
         <a href="exibir.asp?cat=<%=rs("id")%>"><%=rs("nome")%></a><BR>
<% rs.MoveNext
Wend
rs.close
FechaConexao
Set rs = nothing %>

Você pode mudar a posição do ponteiro dentro dos registros usando as seguintes instruções:
rs.MoveNext = vai para o próximo registro
rs.MovePrevious = volta ao registro anterior
rs.MoveFirst = vai para o primeiro registro
rs.MoveLast = vai para o último registro

QQ dúvida estamos aí, inclusive fiquei até te devendo uma satisfação de outras coisas que tinha me pedido, mas não consegui, desculpa cara!!!

Valeu Cinraq!

Valeu por tudo, vc sempre me ajuda!

As outras coisas o Chacal jah me ajudou...

valews

[_Civ3 Brasil_]

Aê Civ, usando seu próprio código como exemplo:

somente o último registro, basta não executar dentro de uma instrução while:

<%Sql = "SELECT * FROM mes ORDER BY id"
Set rs = Conexao.Execute(Sql)
%>
<font size="2">
         <a href="exibir.asp?cat=<%=rs("id")%>"><%=rs("nome")%></a><BR>
<% rs.close
FechaConexao
Set rs = nothing %>

mostrando todos menos o último registro:

<%Sql = "SELECT * FROM mes ORDER BY id"
Set rs = Conexao.Execute(Sql)
rs.MoveNext
While not rs.EOF %><font size="2">
         <a href="exibir.asp?cat=<%=rs("id")%>"><%=rs("nome")%></a><BR>
<% rs.MoveNext
Wend
rs.close
FechaConexao
Set rs = nothing %>

Você pode mudar a posição do ponteiro dentro dos registros usando as seguintes instruções:
rs.MoveNext = vai para o próximo registro
rs.MovePrevious = volta ao registro anterior
rs.MoveFirst = vai para o primeiro registro
rs.MoveLast = vai para o último registro

QQ dúvida estamos aí, inclusive fiquei até te devendo uma satisfação de outras coisas que tinha me pedido, mas não consegui, desculpa cara!!!

Ae Cinraq, deu um erro:

Último:



ADODB.Connection error '800a0e78' 

Operação não permitida quando o objeto está fechado. 

/civ/jogodomes/includes/ultimo.asp, line 2 

Eu peguei os dois que vc me passou, e fiz como "ultimo.asp" e "anteriores.asp", quando coloquei como include os dois arquivos, retornou esse erro...

[]´s,
Felipe

[Tarkan]

Você deve ter feito a string de conexão com o BD mas não abriu a string.
Seria do tipo:

Conexao.Open ConnString
... resto do código ...

[cinraq]

exatamente, um include está interferindo com o outro abra a conexão com o bd antes deles, então retire do primeiro as 3 últimas linhas

rs.close
FechaConexao
Set rs = nothing

e coloque:
rs.MoveFirst

No segundo escreva apenas isto:

<% While not rs.EOF %><font size="2">
<a href="exibir.asp?cat=<%=rs("id")%>"><%=rs("nome")%></a><BR>
<% rs.MoveNext
Wend
rs.close
FechaConexao
Set rs = nothing %>

[_Civ3 Brasil_]

Valeu pessoal, era isso mesmo!!

eu tinha feito já tudo o que vc me falaram, mas tinha me esquecido da string de conexão!


valews