Consulta Sql

[carravetta]

Boa Tarde

Gostaria de saber se posso mostrar apenas os ultimos 4 registros na minha consulta SQL.

set objNews=server.createobject("adodb.recordset")

sql="select * from eventos where data_final > Now order by eventos.data_inicio asc"

objNews.open sql,conex_evento,3,3

tem como?

[fantasma]

set objNews=server.createobject("adodb.recordset")

sql="select top 4 * from eventos where data_final > Now order by eventos.data_inicio asc"

objNews.open sql,conex_evento,3,3

[carravetta]

Valeu funciou beleza.

Sabe como eu declaro em vez do numero 4 uma variavel?

[fantasma]

x=4

set objNews=server.createobject("adodb.recordset")

sql="select top "&x&" * from eventos where data_final > Now order by eventos.data_inicio asc"

objNews.open sql,conex_evento,3,3

[carravetta]

valeu fantasma funcionou tu é cara.

Abração

[.Andreia.]

Eu uso o TOP:

"Select TOP 4 * from TABELA order by id DESC"

mostra os 4 mais atuais

[Guest Guest]

tipo

seguinte

e se eu estou já fazendo uma consulta numa tabela X

dai.. no meio da tabela x gostaria que mostra-se o campo mais recente da tabela Y

tem como? ou da erro.. porque aqui esta dando erro.. :/

[.Andreia.]

você tah fazendo INNER JOIN ? Mas coloca ae o codigo que você fez e o erro que tah aparecendo que é mais facil pra ajudar

[avontzdnb]

rs. inner join?

eu to fazendo do jeito mais bruto mesmo..rs

a consulta normal

dai no meio

eu abro outra consulta. similar a da primeira mas trocando o select

sql2 = Select TOP 4 * from RESPOSTAS where codigo = " & codigo & " order by lance DESC"

rs.Open sql2, Conexao ( já tinha criado)

[.Andreia.]

eu falei inner join porque pensei que você estivesse usando duas tabelas pra obter um resultado (relacionamento)

Mas qual o erro que aparece?

[avontzdnb]

pior que não aparece erro nenhumn

ve te passar mais ou menos o codigo

ConnString="Provider=Microsoft.Jet.OLEDB.4.0; Data Source=xxx.mdb"

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

Conexao.Open ConnString

Set rs = Server.CreateObject("ADODB.Recordset")

contador = 0

    sql = "SELECT * FROM [principal] order by codigo desc"

    Set rs = Server.CreateObject("ADODB.Recordset")

    rs.Open sql, Conexao

<%

On Error Resume Next

rs.MoveFirst

do while Not rs.eof

%>

paginaaaaa

<%

rs.MoveNext

loop

rs.close

set rs = Nothing

  Conexao.close

Set Conexao=Nothing

%>

daiiiii.. no meio desse codigo eu ponho isso

sql2 = Select TOP 4 * from RESPOSTAS where codigo = " & codigo & " order by lance DESC"

rs.Open sql2, Conexao

<%

On Error Resume Next

rs.MoveFirst

do while Not rs.eof

%>

<%=Server.HTMLEncode(rs.Fields("lance").Value)%>

<%

rs.MoveNext

loop

rs.close

set rs = Nothing

  Conexao.close

Set Conexao=Nothing

%>

entra em loop e não sai mais

[.Andreia.]

Tire neste trecho, a parte que fecha a conexao. Deixe assim:

[avontzdnb]

não da erro, masss..rs.. não mostra nada..

e so mostra a primeira entrada da minha primeira tabela

o resto não mostra ><

[.Andreia.]

Bom, eu testei aqui e realmente ficava como num loop infinito. Depois que eu tirei o trecho que fecha a conexao e deixei um só no final, dae funcionou.

Se você tah dizendo que não mostra a segunda consulta, pelo menos não fico no loop. Manda imprimir a consulta sql, se estah certo, e confira com o BD.

[avontzdnb]

funciona funciona.. mas entra em conflito com a outra com a outra pesquisa manja?

dai so aparece a primeira entrada da minha busca principal

[.Andreia.]

não sei se pode ser isso, mas mude o nome do seu segundo Recordset, como você usou sql2, então chame o rs de rs2.

[avontzdnb]

mesma coisa.. so mostra o ultimo registro.......

:/

que estranho

deveria funcionar normal

estou tendo problemas sempre que tento utilizar mais de 1 select na mesma pagina...

porque sera?

[Deividy]

mostra a pagina ia novamente para que eu possa ver como ela esta ficando?