Estrazione records una sola volta

[biella_o]

prova con il comando distinctrow


select distinctrow

[Freedom]

Ragazzi,

ho provato così:

StrSQL = "SELECT DISTINCT (Left(CodProdotto, 8)) AS CodProdottoxx, CodProdotto AS CodPRodottox, IdGenere AS IdGenerex, Prezzo AS Prezzox, FROM Prodotti WHERE Prodotti.IdGenere = "&IdGenere&";"


(Ho provato anche con DISTINCTROW!!!)

Il risultato è che mi ritorna 3 records invece che uno solo. Dove sto sbagliando????

[optime]

hai provato il mio?

[Freedom]

Originariamente inviato da optime
hai provato il mio?

Si, optime!

Mi prende tutti i records fregandosense del DISTINCT.

Ora sto provando così:

StrSQL1 = "SELECT DISTINCT (Left(CodProdotto, 8)) AS CodProdottoxx, IdGenere AS IdGenerex, IdTipologia AS IdTipologiax, Colore AS Colorex , Prezzo AS Prezzox, Img AS Imgx FROM Prodotti WHERE Prodotti.IdGenere = "&IdGenere&";"

Funziona tutto tranne quando inserisco nella query il campo 'colore'. Quando inserisco questo campo non mi riconosce più il DISTINCT e stampa tutti i records.

[optime]

Originariamente inviato da Freedom
Si, optime!

Mi prende tutti i records fregandosense del DISTINCT.

a me pare strano. fa' vedere il codice

[Freedom]

Eccolo:

<%@ LANGUAGE="VBSCRIPT" %>
<% Option Explicit %>
<% Response.Buffer=true %>
<% Server.ScriptTimeout = 300 %>

<%
'Lettura
Call SUBConnOpen("Prodotti.mdb")
dim idgenere, codprodotto, StrProdotti
idgenere=1
StrSQL1 = "SELECT DISTINCT (Left(CodProdotto, 8)) AS CodProdottoxx, IdGenere AS IdGenerex, IdTipologia AS IdTipologiax, Colore AS Colorex, Prezzo AS Prezzox FROM Prodotti WHERE Prodotti.IdGenere = "&IdGenere&";"

Set ObjRS1 = Server.CreateObject("ADODB.Recordset")
ObjRS1.Open StrSQL1, ObjConn, 3, 3

If Not ObjRS1.EOF Then
	Do While Not(ObjRS1.EOF)
	
	response.Write("

"&ObjRS1("CodProdottoxx")&"-->"&ObjRS1("Prezzox")&"-->"&ObjRS1("Colorex")&"-->")
'''
	ObjRS1.MoveNext
	Loop
	
Else
	Response.Write("
Errore: Dati mancanti o non corretti.")
End If

ObjRS1.Close
Set ObjRS1 = Nothing
Call SUBConnClose()
%>

[optime]

direi che questa (la tua)

StrSQL1 = "SELECT DISTINCT (Left(CodProdotto, 8)) AS CodProdottoxx, IdGenere AS IdGenerex, IdTipologia AS IdTipologiax, Colore AS Colorex, Prezzo AS Prezzox FROM Prodotti WHERE Prodotti.IdGenere = "&IdGenere&";"

differisce alquanto da questa (la mia)

SELECT * 
FROM TABELLA 
WHERE CODICE IN (SELECT DISTINCT CODICE FROM STESSATABELLA WHERE CONDIZIONE)
AND EVENTUALEALTRACONDIZIONE

non vedi che sono una select dentro l'altra?

[Freedom]

Originariamente inviato da optime
direi che questa (la tua)

StrSQL1 = "SELECT DISTINCT (Left(CodProdotto, 8)) AS CodProdottoxx, IdGenere AS IdGenerex, IdTipologia AS IdTipologiax, Colore AS Colorex, Prezzo AS Prezzox FROM Prodotti WHERE Prodotti.IdGenere = "&IdGenere&";"

differisce alquanto da questa (la mia)

SELECT * 
FROM TABELLA 
WHERE CODICE IN (SELECT DISTINCT CODICE FROM STESSATABELLA WHERE CONDIZIONE)
AND EVENTUALEALTRACONDIZIONE

non vedi che sono una select dentro l'altra?

Perdona, ti ho copiato la query errata. Ma anche con questa non funziona ugualmente:

<%@ LANGUAGE="VBSCRIPT" %>
<% Option Explicit %>
<% Response.Buffer=true %>
<% Server.ScriptTimeout = 300 %>

<%
'Lettura
Call SUBConnOpen("Prodotti.mdb")
dim idgenere, codprodotto, StrProdotti
idgenere=1
StrSQL1 = "SELECT * FROM Prodotti WHERE Left(CodProdotto, 8) IN(SELECT DISTINCT (Left(CodProdotto, 8)) FROM Prodotti WHERE Prodotti.IdGenere = "&IdGenere&");"

Set ObjRS1 = Server.CreateObject("ADODB.Recordset")
ObjRS1.Open StrSQL1, ObjConn, 3, 3

If Not ObjRS1.EOF Then
	Do While Not(ObjRS1.EOF)
	
	response.Write("

"&ObjRS1("CodProdotto")&"-->"&ObjRS1("Prezzo")&"-->"&ObjRS1("Colore")&"-->")
'''
	ObjRS1.MoveNext
	Loop
	
Else
	Response.Write("
Errore: Dati mancanti o non corretti.")
End If

ObjRS1.Close
Set ObjRS1 = Nothing
Call SUBConnClose()
%>

[optime]

questa

SELECT DISTINCT Left(CodProdotto, 8) FROM Prodotti WHERE Prodotti.IdGenere = "&IdGenere

funzia?

[Freedom]

Originariamente inviato da optime
questa

SELECT DISTINCT Left(CodProdotto, 8) FROM Prodotti WHERE Prodotti.IdGenere = "&IdGenere

funzia?

Si, funziona... ma devo metterci un alias però:

SELECT DISTINCT Left(CodProdotto, 8) AS AliasCodProdotto FROM Prodotti WHERE Prodotti.IdGenere = "&IdGenere

Ed ora, come estraggo le altre colonne?