Select Top

maktub · Março 17, 2007

Olá pessoal, sei que existe bastante tópicos sobre isso, procurei bastante antes de postar e consegui arrumar algumas coisas, bom não porque não faz mas vamos lá.

O meu código abaixo deveria mostrar as 10 últimas noticias, mas só mostra uma (sim tenho mais de uma no BD)

<%
Dim sq, rs, bco
Set bco = Server.CreateObject("ADODB.Connection")
bco.Open  "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("../_pasta/noticia.mdb")&";Persist Security Info=False"
sq = "Select TOP 10 * from DATAS order by DAT_ID desc"
Set rs = bco.Execute(sq)
%>

Se eu inserir como abaixo ele mostra apenas a ultima informação:

<option selected><%=rs("DAT_NAME")%></option>

Mas se eu inserir uma condição de link, não aparece nada:

<option selected><a href="detail.asp?iData=<%=rs("DAT_NAME")%>"></a></option>

alguém tem alguma idéia para resolver estes dois probleminhas?

.Andreia. · Março 17, 2007

sei la não vi nada de diferente... faz um teste imprime a consulta e joga no BD pra se retorna ++ de 1 registro... se a data está no tipo Datetime...

maktub · Março 17, 2007

Muito estranho, revisei o código muitas vezes e sinceramente não mostra os 10, somente um.

Inclusive eu uso desta maneira para o meu RSS e nele funciona.

.Andreia. · Março 17, 2007

tenta sem o Persist Security Info=False

você tentou jogar a consulta que retorna no BD?

maktub · Março 17, 2007

Fiz diferente, só não aparece um abaixo do outro, mas até ai eu resolvo, ficou assim:

<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("../_pasta/noticia.mdb")
set rs = conn.execute("SELECT TOP 10 * FROM DATAS ORDER By DAT_ID DESC")
do while not rs.eof
%>

<option selected><%=rs("DAT_NAME")%> - </option>

<%
rs.movenext
loop
rs.close
conn.close
set rs = nothing
set conn = nothing
%>

só que se eu colocar assim:

<!--<option selected><a href="detail.asp?iData=<%=rs("DAT_NAME")%>"></a></option>-->

Não aparece o link

Editado Março 17, 2007 por maktub

maktub · Março 18, 2007

Agora consegui, mudei a conexão e funcionou. Vai entender isso.

Aproveitando a deixa, eu coloquei o select assim:

<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("../_pasta/noticia.mdb")
set rs = conn.execute("SELECT TOP 7 * FROM DATAS, CHANNELS, CATEGORIES WHERE CAT_CHANNEL = CHA_ID AND DAT_CATEGORY = CAT_ID AND DAT_APPROVED=1 AND CHA_ACTIVE = 1 AND CHA_NAME = 'NOTÍCIAS' ORDER BY DAT_DATED DESC")
do while not rs.eof
%>

eu consigo selecionar apartir da segunda última notícia? Eu sei que o select Top vai selecionar as últimas organizadas neste meu caso por DESC mas eu consigo mostrar as últimas mas apartir da segunda? É que a última estou usando como destaque, da para fazer isso?

.Andreia. · Março 19, 2007

não sei se tem maneira melhor pra se fazer mas a que me veio em mente seria criar um contador, que pode iniciar em 0 ou 1. Dentro do loop voce faz um if

if contador = 1 then
contador = 2 'para não cair mais nesse If
tab.movenext
end if

tenta aí

maktub · Março 19, 2007

Não mudou, da uma olhada:

<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("../_pasta/noticias.mdb")
set rs = conn.execute("SELECT TOP 7 * FROM DATAS, CHANNELS, CATEGORIES WHERE CAT_CHANNEL = CHA_ID AND DAT_CATEGORY = CAT_ID AND DAT_APPROVED=1 AND CHA_ACTIVE = 1 AND CHA_NAME = 'NOTÍCIAS' ORDER BY DAT_DATED DESC")
do while not rs.eof
if contador = 1 then
contador = 2 
tab.movenext
end if
%>

<body>
<div id="top"><a href="../home/detail.asp?iData=<%=rs("DAT_ID")%>&iCat=<%=rs("DAT_CATEGORY")%>&iChannel=<%=rs("CAT_CHANNEL")%>&nChannel=<%=rs("CHA_NAME")%>"><h5 class="top"><% =(DoTrimProperly((rs("DAT_NAME").Value), 39, 1, 1, " .. ")) %></h5></a><p class="top"></p></div>
</body>

<%
rs.movenext
loop
rs.close
conn.close
set rs = nothing
set conn = nothing
%>

Tentei fazer assim:

<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("../_pasta/noticias.mdb")
set rs = conn.execute("SELECT TOP 7 * FROM DATAS, CHANNELS, CATEGORIES WHERE CAT_CHANNEL = CHA_ID AND DAT_CATEGORY = CAT_ID AND DAT_APPROVED=1 AND CHA_ACTIVE = 1 AND CHA_NAME = 'NOTÍCIAS' ORDER BY DAT_DATED DESC")
x = 0
do while not rs.eof
If x = 0
x = x+1
Rs.MoveNext
Loop
Else
%>
<body>
<div id="top"><a href="../home/detail.asp?iData=<%=rs("DAT_ID")%>&iCat=<%=rs("DAT_CATEGORY")%>&iChannel=<%=rs("CAT_CHANNEL")%>&nChannel=<%=rs("CHA_NAME")%>"><h5 class="top"><% =(DoTrimProperly((rs("DAT_NAME").Value), 39, 1, 1, " .. ")) %></h5></a><p class="top"></p></div>
</body>
<%
x = x+1
rs.movenext
loop
End If
rs.close
conn.close
set rs = nothing
set conn = nothing
%>

mas não rolou

victormartins · Março 20, 2007

você tentou:

x = 0
For x = 1 to 10
    If rs.eof then
        Exit For

?

maktub · Março 21, 2007

Tentei, mas não funciona

victormartins · Março 22, 2007

da algum erro?

Entrar

Select Top

Pergunta

Link para o comentário

Compartilhar em outros sites

10 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

Participe da discussão

Estatísticas dos Fóruns