Ir para conteúdo

POWERED BY:

Arquivado

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

angus

5 ultimos registros

Recommended Posts

Este é o código atual, mas aparece todas as mensagens do banco de dados...Como fazer para exibir só os ultimos a serem postados no banco de dados, os mais recentes.Segue meu código inicial:<%Dim conCadMuralDim recMuralconst cntCaminho="c:\inetpub\wwwroot\asp\mural\mural.mdb"Set conCadMural=Server.CreateObject ("ADODB.Connection")Set recMural=Server.CreateObject ("ADODB.Recordset")conCadMural.Open "Driver={Microsoft Access Driver (*.mdb)};dbq=" & cntCaminhorecMural.Open "SELECT Nome, Mensagem FROM mural", conCadMural%><%Do while not RecMural.Eofresponse.write "<B>" & "Nome: " & "</b>" & recMural("Nome") & "<BR>"response.write "<B>" & "Mensagem: " & "</b>" & recMural("Mensagem") & "<BR><BR>"RecMural.MoveNextLooprecMural.closeconCadMural.Close%>

Compartilhar este post


Link para o post
Compartilhar em outros sites

Fala ae Brother, Uma dica para seu problema.. Utiliza os ponteiros do banco de dados e a função TOP do SQL. Seguinte, um código abaixo para exemplo, rapidinho :<%Dim Caminho, Conexao, SQL, RecSetCaminho="Provider=Microsoft.Jet.OLEDB.4.0.1; Data Source=" & Server.MapPath ("mural.mdb")Set Conexao=Server.CreateObject ("ADODB.Connection")Conexao.ConnectionString = CaminhoConexao.OpenSQL="SELECT TOP 5 Nome, Mensagem FROM Mural"Set RecSet=Server.CreateObject ("ADODB.RecordSet")RecSet.Open SQL, Conexao, 3, 3RecSet.MoveLastDo While Not RecSet.EoF Response.Write RecSet ("Nome") & RecSet("Mensagem") & "<br>"RecSet.MoveNextLoopRecSet.CloseConexao.CloseResponse.End%> Bom garotinho, pelo que me lembro, utilizo este modo para exibir 5 registros do banco de dados e movendo o cursor do banco de dados para o último registro, ele exibirá os 5 últimos. Sem erro. Fácil Fácil. Abraços,

Compartilhar este post


Link para o post
Compartilhar em outros sites

existem bancos que não aceitam o comando TOP...uma dica para fazer é assimSELECT * FROM TABELA ORDER BY id_tabela DESC(parte de conexão... preguiça de escrever, hehehe)contador = 0do until rs.eof or contador = 5contador = contador + 1Response.Write rs("campo")rs.moveNextloop

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.