Ordem numérica

[CaBo GeL 0]

Olá pessoal... estou com uma duvida bem besta... fiz isso a muito tempo atraz, e hj esqueci de como fazer (parece brincadeira) kkkkkkk...

 

 

kero agupar em ordem numerica os redistros nostrando na tela...

tipow.. se eu tenho 5 registros no Banco... kero mostrar assim:

 

1 Maria

2 Paula

3 Marta

4 Pedro

5 Marcelo

 

lembrando essa numeracao será mostrada dependendo da quantidade de registro q estiver no Banco

 

olha a ai o codigo q eu kero adapitar em cima desse exemplo:

 

<%Set Objloc = ObjBanco.Execute("Select * From ListaJuntasUreia")If Objloc.Bof And Objloc.Eof ThenResponse.Write("")ElseWhile Not Objloc.Eof%><tr><td align="center" class="style5"> Aqui ficara a ordem numerica </td><td align="center" class="style5"><%=Objloc("NmListaJuntasUreia")%></td><td align="center" class="style5"><%=Objloc("LocalListaJuntasUreia")%></td><td align="center" class="style5"><%=Objloc("QuantListaJuntasUreia")%></td><td align="center" class="style5"><%=Objloc("MaterialListaJuntasUreia")%></td><td align="center" class="style5"><%=Objloc("ExtListaJuntasUreia")%></td><td align="center" class="style5"><%=Objloc("IntListaJuntasUreia")%></td><td align="center" class="style5"><%=Objloc("LargListaJuntasUreia")%></td><td align="center" class="style5"><%=Objloc("EspListaJuntasUreia")%></td><td align="center" class="style5"><%=Objloc("TpListaJuntasUreia")%></td></tr><%Objloc.MovenextWendEnd If%>

 

Valew a todos!

[jrcardozo 4]

Não seria isso

Set Objloc = ObjBanco.Execute("Select * From ListaJuntasUreia Order By CAMPO Desc")

onde CAMPO será o nome da coluna que deseja ordenar

[Flavio Uccela 0]

você quer numerar os registros né? Cara, acho que fazendo um laço e incrementando ++ pra cada vez q passar da conta do recado não?

[jrcardozo 4]

acho que viajei na resposta heheheinterpretei malmas a ideia do Flavio te resolve

[Ted k' 126]

Faça uma função dentro de um For para mostrar uma contagem de 1 ao valor que quer chamar, pelo que vejo do banco!

 

<%
VarContaRancking = "10"
For VarNumero = 2 To CInt(VarContaRancking)
	Response.Write(VarNumero&"Teste<br>")
Next
%>

Onde esse VarContaRancking poderia ser o valor do Count(*)

[CaBo GeL 0]

Não seria isso

Set Objloc = ObjBanco.Execute("Select * From ListaJuntasUreia Order By CAMPO Desc")

onde CAMPO será o nome da coluna que deseja ordenar

n jonathandj...

eu n kero agrupar por ordem

 

eu kero mostrar a ordem numerica de acordo com a qntidade de registros...

 

tipow...

 

tenho 5 registros no BD.

 

vou mostrar esses 5 registros na tela... q ficara assim:

 

1 Maria

2 Joao

3 Paulo

4 Amelia

5 Joselia

 

repare q tenho 5 nomes de pessoas, pois a ordem numerica parou no numero 5 logico...

 

entendeu?

[Ted k' 126]

Veja amigo:

 

<%
Set Objloc = ObjBanco.Execute("Select Count(*) As ContaRancking From ListaJuntasUreia")

	If Objloc.Eof Then
		Response.Write("")
	Else
		VarContaRancking = Objloc("ContaRancking")
	End If
	
Set Objloc = ObjBanco.Execute("Select * From ListaJuntasUreia")
	
	If Objloc.Eof Then
		Response.Write("")
	Else
		While Not Objloc.Eof

			For VarNumero = 2 To CInt(VarContaRancking)
%>
<tr>
<td align="center" class="style5"><% Response.Write(VarNumero) %></td>
<td align="center" class="style5"><%=Objloc("NmListaJuntasUreia")%></td>
<td align="center" class="style5"><%=Objloc("LocalListaJuntasUreia")%></td>
<td align="center" class="style5"><%=Objloc("QuantListaJuntasUreia")%></td>
<td align="center" class="style5"><%=Objloc("MaterialListaJuntasUreia")%></td>
<td align="center" class="style5"><%=Objloc("ExtListaJuntasUreia")%></td>
<td align="center" class="style5"><%=Objloc("IntListaJuntasUreia")%></td>
<td align="center" class="style5"><%=Objloc("LargListaJuntasUreia")%></td>
<td align="center" class="style5"><%=Objloc("EspListaJuntasUreia")%></td>
<td align="center" class="style5"><%=Objloc("TpListaJuntasUreia")%></td>
</tr>
<%
Next

Objloc.Movenext
Wend
End If
%>

[jrcardozo 4]

a mesma ideia do ted, só que acho que o desempenho vai ser melhor pois vai executar uma rotina a mesnos

 

<%Set Objloc = ObjBanco.Execute("Select * From ListaJuntasUreia")If Objloc.Bof And Objloc.Eof ThenResponse.Write("")ElseWhile Not Objloc.Eofi=i+1%><tr><td align="center" class="style5"> <%=i%></td><td align="center" class="style5"><%=Objloc("NmListaJuntasUreia")%></td><td align="center" class="style5"><%=Objloc("LocalListaJuntasUreia")%></td><td align="center" class="style5"><%=Objloc("QuantListaJuntasUreia")%></td><td align="center" class="style5"><%=Objloc("MaterialListaJuntasUreia")%></td><td align="center" class="style5"><%=Objloc("ExtListaJuntasUreia")%></td><td align="center" class="style5"><%=Objloc("IntListaJuntasUreia")%></td><td align="center" class="style5"><%=Objloc("LargListaJuntasUreia")%></td><td align="center" class="style5"><%=Objloc("EspListaJuntasUreia")%></td><td align="center" class="style5"><%=Objloc("TpListaJuntasUreia")%></td></tr><%Objloc.MovenextWendEnd If%>

[CaBo GeL 0]

issso mesmo Jonathandj, vir isso em um Forum a alguns anos atraz, tava tentando me lembrar e tava fazendo assim no inicio

 

q = 0While q < Objloc.EofQ=Q+1

 

pois n conseguia me lembrar da logica...

valew!