Velocizzare query

[Utente]

Utilizzo questa query per estrarre alcuni dati dal database:

<%
sql = "SELECT dato_a FROM tabella group by dato_a order by rand() limit 50"

Set Rs = Conn.Execute(sql)

while not rs.eof

fsize=fsize

if fsize > 6 then
   fsize = 1
end if

dato_a = lcase(Rs("dato_a"))

'dato_a= (UCase(left(dato_a, 1)) & mid(dato_a, 2, len(dato_a)-1))

%>

<%=dato_a%>

<%

rs.movenext

fsize=fsize+rnd(0.001)

wend

%>

Ultimamente i dati da estrarre sono aumentati di molto e la query è molto molto lenta.

Secondo voi è possibile migliorarla per aumentarne la prestazioni?


Grazie

[wallrider]

prova con
"SELECT DISTINCT(dato_a), rand() as r from tabella order by r LIMIT 50"

[Utente]

Purtroppo è ancora molto lenta...

[wallrider]

select (select distinct dato_a FROM tabella limit 50) as datoa, rnd() as r order by r


?

vado a caso eh

[Utente]

Ottengo il seguente errore

Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[MySQL][ODBC 5.1 Driver][mysqld-5.0.51b-community-nt]Subquery returns more than 1 row

/dir.asp, line 26

La riga 26 : Set Rs = Conn.Execute(sql)