evitare ripetizione dati tabella

[stewe19]

ciao!

devo inserire in una select dei dati presi da db ma essendocene alcuni che si ripetono mi vengono stampati(giustamente)piu volte pero vorrei che in caso ci fossero dati uguali venissero stampati una volta sola!

[bruce77]

Questo esempio ti dovrebbe aiutare, qui viene creato un array (sel_list) nel quale
vengono salvati (con la funzione InsertItem) i valori precedenti,
se il valore è ripetuto non viene aggiunto all'array.
Accetta un massimo di 100 elementi ! Se vuoi renderlo dinamico si deve
aggiungere un Redim quando supera la dimensione massima dell'array

<%

Dim sel_list(100)

' Inserimento dei valori provenienti dal db
InsertItem sel_list,"Uno"
InsertItem sel_list,"Due"
InsertItem sel_list,"Uno"
InsertItem sel_list,"Tre"
InsertItem sel_list,"Due"

%>
<select name=lista" size="1">
<%
dim k
for k = 0 to ubound(sel_list)
	Response.Write("<option value=""" & sel_list(k) & """>" & sel_list(k) & "</option>")
next 
%>
</select>
<%

Sub InsertItem(lista, valore)
Dim i
Dim found

found = False

For i = 0 to UBound(lista)
	if IsEmpty(lista(i)) Then
		Exit For
	end if
	if lista(i) = valore Then
		found = True
		Exit For	
	end If
next

if not found Then
	lista(i) = valore
End If

End Sub


%>

Ciao

[Sballerio]

Scusami ma se questi dati ti vengono restituiti da un db non è più corretto fare un group by nella query anzichè scegliere da codice se inserirlo o no in una tabella(senza contare la limitazione dei 100 elementi)?

immagino che avrai una query ed un Recordset di riultati no?