[Resolvido] Recuperando menor valor de uma coluna

[*_Charles Potter_* 1]

Bele gente

 

Tipo tenho a coluna PREÇO no db, ela é varchar 50, e armazena os preços no formado "250,26".

 

Preciso retornar o menor valor existente nesta coluna....

 

como faço?

 

vlw

[xanburzum 169]

e ae aluno de Hogwarts

você pode usar a função MIN () do SQL para retornar o menor valor da coluna seleccionada.

 

SELECT MIN(preco) AS menorpreco FROM produtos

 

ou tb fazer um bubblesort em um array especificado

[*_Charles Potter_* 1]

tentei usando o Min,,, mas não retorna o menor valor,,, ( acredito q seja pq a coluna é varchar,, (

[xanburzum 169]

para você comparar você deve converte-la

[*_Charles Potter_* 1]

como faço isso?

[xanburzum 169]

para usar o MIN, você deve ter o tipo do campo no db, ou usa o CInt no código.dae você pode até jogar os valores num array e usar o metodo bubble sort ou esta funçao abaixo:

 

exemplo:

<%
Dim Item
For Each Item In CombSort( Array( "jonny", "souza", "bia", "brian", "alex" ) )
	Response.Write Item & "<BR>"
Next
 ' retorna:
 '   alex
 '   bia
 '   brian
 '   jonny
 '   souza


Dim Item
For Each Item In CombSort( Array( 512, 10, 81, 6, 452 ) )
	Response.Write Item & "<BR>"
Next
 ' retorna:
 '   6
 '   10
 '   81
 '   452
 '   512
%>

code:

<%
Private Function CombSort(byVal UnsortedArray)
	Dim I, J, Temp, Gap, Swapped
	Dim ArrSize, Combcom, Combswap
	Const Shrink = 1.3
	ArrSize = UBOUND( UnsortedArray )
	Gap = Arrsize - 1
	Do
		Gap = Int(Gap / Shrink)
		Swapped = True
		Combcom = Combcom + 1
		For J = 0 To Arrsize - Gap
			If UnsortedArray(J) > UnsortedArray(J + Gap) Then
				Temp = UnsortedArray(J)
				UnsortedArray(J) = UnsortedArray(J + Gap)
				UnsortedArray(J + Gap) = Temp
				Swapped = False
				Combswap = Combswap + 1
			End If
		Next
	Loop Until Not Swapped And Gap = 1
	CombSort = UnsortedArray
End Function
%>

[*_Charles Potter_* 1]

Vlw xanburzum,

 

Acabei fazendo uma função que funcionou legal:

menor = 0

 

While not ConsPrd.EOF

 

psa = replace(replace(ConsPrd("moeda"), ".", ""), ",", ".")

 

if i <> 1 then

menor = psa + 1

i = 1

end if

 

 

if cdbl(psa) < cdbl(menor) then

menor = psa

ID_Menor = ConsPrd("id")

end if

 

ConsPrd.movenext : Wend

 

menor = 0

Obrigado ahe!