--_Michel_--

Exibir somente os 05 últimos registros cadastrados no Banco de Dados. Você poderá alterar os números de acordo com o que necessitar... Basta apenas trocar os valores das variáveis. Este código foi desenvolvido com a ajuda dos moderadores e menbros do site. Lembre-se, Copiar apenas o código não trará conhecimentos para o programador, pesquise e sempre questionem as funções utilizadas aqui no forum. [SIZE=1]<!------------------------------------------------------------------------------------ WWW.PNEONLINE.COM PORTAL NOVA ERA ONLINE SYSTEM TECNOLOGY DESENVOLVENDO PROJETOS WEB CONTATO TEL: (12)3907-6334 ou (12)9113-9428 CONTATO E-MAIL: LEMESPNE@IG.COM.BR CONTATO ICQ: 301297234 CÓDIGO DESENVOLVIDO COM ORIENTAÇÃO DOS MODERADORES DO SITE WWW.SCRIPTBRASIL.COM.BR/FORUM MODERADOR ASP: DARK0 MODERADOR HTML: VICTOR ASP% MEMBROS: BARETA, CYBERALEXXX, DMLMOSILVA ------------------------------------------------------------------------------------------> <!--#include file="configteste.asp" --> <% dim conn, rs, sql set conn = server.createobject ("ADODB.connection") Set rs =Server.CreateObject("ADODB.Recordset") conn.Open caminhoBD SQL = "select * from tabela order by id" Rs.Open sql, conn If rs.EOF Then Response.Write "Nenhum usuario cadastrado" else dim texto dim id texto = array() id = array() z=1 while not rs.EOF ReDim preserve texto(UBound(texto)+1) ReDim preserve id(UBound(id)+1) texto(Ubound(texto)) = rs("texto") id(Ubound(id))= rs("id") z=z+1 rs.MoveNext wend rs.Close end if if z>4 then response.write id(0)&" - "&texto(0)&"<br>" response.write id(1)&" - "&texto(1)&"<br>" response.write id(2)&" - "&texto(2)&"<br>" response.write id(3)&" - "&texto(3)&"<br>" response.write id(4)&" - "&texto(4)&"<br>" else response.write "Erro" end if %>[/SIZE]

Valeu dark, é que eu tinha clicado em novo tópico ai percebi que iria iniciar um novo topo ASP/ASP.NET... Valeu... Vou postar lá agora...

Tenho um Banco de Dados com os campos ID e Máteria. O Campo ID receberá valores autonuméricos e o campo máteria texto. Tenho que consultar a tabela do banco de dados e ver quantos registro há cadastrados. Até ai beleza... Mas tenho que exluir os registro deixando apenas 05 registros cadastrados, e não permitir que estes 05 registros sejam excluídos... Como deve fazer esta rotina... exemplo: consulta registros=100 excluir=95 registros consulta registro=1000 exluir= 995 registros consulta registro=05 mensagem=Constam na Base de Dados 05 registros que não podem ser excluidos Se tiverem duvidas, perguntem que eu posta aqui mais detalhado.

Valeu galera, agora tb a ajuda do cyberalexxx o código está prontinho... Vou postar este código no Tópico de Funções (COMO FAÇO PARA INCLUIR ESTE CÓDIGO NO TÒPICO DE FUNÇÔES), para que outros desenvolvedores possam aprender a utiliza-los também.... Obrigado a todos que ajudaram e se empenharam em me ajudar. Pode fechar este tópico.

Tenho algumas dúvidas sobre está lógica, e por isso venho aqui pedir ajuda. - Como faço para transformar os dados do campo de uma tabela que estão em MAIUSCULAS em minusculas. exemplo: LITORAL para litoral SÃO JOSÉ DOS CAMPOS para São José dos Campos Qual procedimento deve utiliza para manipular esses dados. Se souberem de algo postem aí... VAleuuuuu Galerrrra

O código que você passou a o dark0 fez algumas alterações ficou ótimo e vou utilizar este pois os 05 ultimos registros ficam guardados nas variaveis e posso chama-las depois em qualquer parte da página tb... Não usei o SELECT TOP porque não consegui guardar os 05 ultimos nas váriaveis... O unico problema do código de cima é que eu sempre tenho que ter pelo menos 05 registros cadastrados, senão dá erro... O que eu queria saber é se tem como colocar uma mensagem de erro quando estiver de 1 até 04 registros apenas gravados. tipo assim se no banco de dados for =1 ate 4 exiba a mensagem de erro " Não foi possivel visualizar os registros" senão ele faz o que esta sendo feito.... Mas eu não consigo colocar essa rotina lá no código... <!--#include file="configteste.asp" --> <% dim conn, rs, sql set conn = server.createobject ("ADODB.connection") Set rs =Server.CreateObject("ADODB.Recordset") conn.Open caminhoBD SQL = "select * from tabela order by id" Rs.Open sql, conn If rs.EOF Then Response.Write "Nenhum usuario cadastrado" else dim texto dim id texto = array() id = array() z=1 while not rs.EOF ReDim preserve texto(UBound(texto)+1) ReDim preserve id(UBound(id)+1) texto(Ubound(texto)) = rs("texto") id(Ubound(id))= rs("id") z=z+1 rs.MoveNext wend rs.Close end if response.write id(0)&" - "&texto(0)&"<br>" response.write id(1)&" - "&texto(1)&"<br>" response.write id(2)&" - "&texto(2)&"<br>" response.write id(3)&" - "&texto(3)&"<br>" response.write id(4)&" - "&texto(4)&"<br>" %>

Victor acho que você não entendeu... Serão somente 05 registro mesmo... O problema é que se no banco de dados tiver mais que 05 registro cadastrados ele exibe o erro acima que citei... Eu não consegui colocar um tratamento para esse erro. Pois terei que sempre cadastrar novos registros e não poderei apagar os anteriores... Se souber como faço para colocar um tratamento de erro, posta aí... vou continuar tentatndoa aqui.

Gostaria de saber melhor como funciona a QUERYSTRING. Já utilizo esta função mas não sei direito como funciona e gostaria de melhorar meus conhecimentos sobre isto, pois vejo que é muito importante. Se souberes de algo que fale sobre, postem aí....

Olá galera! Fiz alguns testes com as funções que me passaram, e escolhi usar o que o VICTOR passou, mas fiz algumas alterações... Vejam como ficou. Mas só tem uma coisa que não consegui fazer... se no banco de dados for maior que 05 registro por exemplo 100, ele da o seguinte erro! Tipo de erro: Erro de tempo de execução do Microsoft VBScript (0x800A0009) Subscrito fora do intervalo: 'z' /ex/exibir_05_registro1.asp, line 18 Como faço para tirar esse erro, pois na tabela podem contar vários registros e assim cada vez que eu inserir um novo registro ele tem que pegar somente os ultimos 05 registros cadastrados. Valeu galera... Os comonados SELECT TOP funcionou perfeitamente, mas tem que ser como o dark0 postou aí se não não funciona.

não sei o que significa "SGBD", mas uso banco de dados Access

Ae galera, valeu pela ajuda... Dark0 não tenho nenhuma noção de como exibir todos os registros em um loop, se puder posta aí como eu faço isso que pode servir para mim tb... Vou testar os exemplos acima postados, mas creio que o do victor pode servir pois tenho que exibir somentes os 05 primeiros registro que estão gravados no banco de dados... Valeu galera... Vou testa-lo e depois eu posto aqui se deu certo, mas qualquer novidade ou outra forma de realizar este procedimento postem ai.

Tenho um Banco de dados com 02 coluna uma chamada ID e a outra chamada Links... Tenho umaa administração onde posso incluir, alterar, excluir e consultar os dados cadastrados pelo ID. A minha dúvida é na página principal onde tenho um espaço para visualização apenas dos 05 primeiros registro do Banco e um link para listar todos... Gostaria de saber como faço para exibir somente os 05 primeiros registro de um Banco de dados.

Valeu a todos... o código do CODE que eu queria mesmo. O que o cyberalex passou por fos eu já tinha... Valeu galera podem fechar o tópico...

Aí fabio, o comando que verifica se um arquivo existe em um determidado local atravéz do ASP, utiliza o FSO. De uma olhada no tópico de funções do ASP que você vai encontrar. Aí galera será que não existe uma forma de saber se o arquivo existe somente com JS.... Qualquer novidade postem aí.

Postem alguns links ai pra mim dar uma olhada. heheeheh