Exibir 3 Ultimos Registros De Um Bd

[ratocuiara]

Olá pessoal, tenho essa instrução aqui e gostaria de adptar ela para que me exiba os 3 ultimos registros.

Sql = "SELECT * FROM tabNoticiasdeHoje ORDER BY IDNoticiasdeHoje desc"

Tem como???

[fercosmig]

Sql = "SELECT TOP 3 * FROM tabNoticiasdeHoje ORDER BY IDNoticiasdeHoje desc"

[ratocuiara]

beleza!!!

O que eu quero agora é saber como fica o campo para reportar os trê registros um ao lado do outro.

Tipo assim:

Noticia 1 - Noticia2 - Noticia 3

<%=Rs("NoticiadeHoje")%>

valeu

[fercosmig]

[Marcos-rj]

Faz uma busca no forum, que tem vários exemplos para colocar em colunas.

[ratocuiara]

Entaum eu coloquei o código que você postou, mais ta dando esse erro:]

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.

/viamao/default.asp

tenho mais de 10 registro em meu bd.

[Dc Spoc]

Tem algua coisa cadastrada na tabela que você está efetuando a pesquisa?

Pode ser por causa disso que está dando este erro.

[ratocuiara]

ASP

Sql = "SELECT TOP 3 * FROM tabNoticiasdeHoje ORDER BY IDNoticiasdeHoje desc" Set rs = conn.execute(sql) if not rs.bof and not rs.eof then do while not rs.eof response.Write rs("NoticiadeHoje") rs.movenext loop end if

abraços

Valeu meu filho, deu certo!!!!

Agora não querendo abusar, como faço para que ele ponha um separador entre os registros tipo um "hifem -"

abraços.

[bareta]

[ratocuiara]

ASP

Sql = "SELECT TOP 3 * FROM tabNoticiasdeHoje ORDER BY IDNoticiasdeHoje desc" Set rs = conn.execute(sql) if not rs.bof and not rs.eof then do while not rs.eof response.Write rs("NoticiadeHoje") &" - " rs.movenext loop end if

Ok pessoal até ai ta tudo certinho!!!!

Agora mais uma duvidazinha.

Como ficaria essa função com o link abaixo:

<a href="noticiasdehoje.asp?IDNoticiasdehoje=<%=Rs("IDNoticiasdehoje")%>

Já tentei de tudo e não consegui... Façam mais esse favorzinho pra mim ai.

Abraços.

[bareta]

use

[ratocuiara]

use

ASP

response.write "<a href=""noticiasdehoje.asp?IDNoticiasdehoje="&Rs("IDNoticiasdehoje")&">"&rs("NoticiadeHoje") &"</a> - "

Arruma um estraga outro.

Caro amigo!!! deu certinho o seu codigo, está linkando...porem ele deixou de funcionar a exibição do tres ultimos campos. olhe ai como tá:

<%

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

Conexao.Open "Provider=Microsoft.Jet.OleDB.4.0;Data Source=" & Server.MapPath("fpdb/jornal.mdb")

Sql = "SELECT top 3 * FROM tabNoticiasdeHoje ORDER BY IDNoticiasdeHoje desc"

Set Rs = Conexao.Execute ( Sql )

if not rs.bof and not rs.eof then

do while not rs.eof

response.Write "<a href=""noticiasdehoje.asp?IDNoticiasdehoje="&Rs("IDNoticiasdehoje")&">"&rs("Titulo_Noticiasdehoje")&"</a>"&" - "

rs.movenext

loop

end if

%>

ele está mostrando sómente o primeiro registro, e não é isso que peço na funçao.

[sergiotp]

Brother!! Faz assim

<%
Set Conexao = Server.CreateObject("ADODB.Connection")
Conexao.Open "Provider=Microsoft.Jet.OleDB.4.0;Data Source=" & Server.MapPath("fpdb/jornal.mdb")
Sql = "SELECT top 3 * FROM tabNoticiasdeHoje ORDER BY IDNoticiasdeHoje desc"
Set Rs = Conexao.Execute ( Sql )
if not rs.bof and not rs.eof then
do while not rs.eof

rs.movenext
loop
end if

response.Write "<a href=""noticiasdehoje.asp?IDNoticiasdehoje="&Rs("IDNoticiasdehoje")&">"&rs("Titulo_Noticiasdehoje")&"</a>"&" - "
%>

abraços

[bareta]

Brother!! Faz assim

<%
Set Conexao = Server.CreateObject("ADODB.Connection")
Conexao.Open "Provider=Microsoft.Jet.OleDB.4.0;Data Source=" & Server.MapPath("fpdb/jornal.mdb")
Sql = "SELECT top 3 * FROM tabNoticiasdeHoje ORDER BY IDNoticiasdeHoje desc"
Set Rs = Conexao.Execute ( Sql )
if not rs.bof and not rs.eof then
do while not rs.eof

rs.movenext
loop
end if

response.Write "<a href=""noticiasdehoje.asp?IDNoticiasdehoje="&Rs("IDNoticiasdehoje")&">"&rs("Titulo_Noticiasdehoje")&"</a>"&" - "
%>

abraços

brother como você quer que ele apareça os ultimos tres se o conteudo´esta fora do loop?

[ratocuiara]

Brother!! Faz assim

<%
Set Conexao = Server.CreateObject("ADODB.Connection")
Conexao.Open "Provider=Microsoft.Jet.OleDB.4.0;Data Source=" & Server.MapPath("fpdb/jornal.mdb")
Sql = "SELECT top 3 * FROM tabNoticiasdeHoje ORDER BY IDNoticiasdeHoje desc"
Set Rs = Conexao.Execute ( Sql )
if not rs.bof and not rs.eof then
do while not rs.eof

rs.movenext
loop
end if

response.Write "<a href=""noticiasdehoje.asp?IDNoticiasdehoje="&Rs("IDNoticiasdehoje")&">"&rs("Titulo_Noticiasdehoje")&"</a>"&" - "
%>

abraços

brother como você quer que ele apareça os ultimos tres se o conteudo´esta fora do loop?

ASP

<% Set Conexao = Server.CreateObject("ADODB.Connection") Conexao.Open "Provider=Microsoft.Jet.OleDB.4.0;Data Source=" & Server.MapPath("fpdb/jornal.mdb") Sql = "SELECT top 3 * FROM tabNoticiasdeHoje ORDER BY IDNoticiasdeHoje desc" Set Rs = Conexao.Execute ( Sql ) if not rs.eof then while not rs.eof response.Write "<a href=""noticiasdehoje.asp?IDNoticiasdehoje="&Rs("IDNoticiasdehoje")&">"&rs("Titulo_Noticiasdehoje")&"</a>"&" - " rs.movenext wend end if rs.close set rs=nothing conexao.close set conexao=nothing %>

bom.... se não aparecer 3 verifique se existe 3 registros no bd

Pessoal!!!

infelizmente não deu certo nenhuma das alternativas, o tópico ainda está em aberto.

[Denis_Rave]

será que assim vai?

[ratocuiara]

Valeu Denis!!!!!!

Certinho cara, Valeu mesmo.

Obrigado a todos que se empenharam em me ajuda...

A todos um grande Abraço.

Podem fechar o Tópico