errore su inner join e distinct

[Giubass]

Ciao ragazzi, non riesco ad estrarre nessun campo della tabella Tab_Sub_Categorie,
se provo ad esempio così:

Nome_Sub_Categoria = CategorieRS("Tab_Sub_Categorie.Nome_Sub_Categoria_it")

mi viene fuori "Impossibile trovare l'oggetto nell'insieme corrispondente al nome o al numero richiesto."

La query è questa:

CategorieSQL = "SELECT DISTINCT Tab_Categorie.Id AS IDC,Tab_Categorie.Nome_Categoria_it AS NC_IT, Tab_Categorie.Nome_Categoria_en AS NC_EN,"
   CategorieSQL = CategorieSQL &"Tab_Categorie.Nome_Categoria_fr AS NC_FR,Tab_Categorie.Nome_Categoria_es AS NC_ES FROM Tab_Categorie "
   CategorieSQL = CategorieSQL &"INNER JOIN Tab_Sub_Categorie ON Tab_Categorie.Id=Tab_Sub_Categorie.Id_Categoria WHERE Tab_Categorie.Attivazione=True"

Ciao

[Roby_72]

Usa un ALIAS nella query e poi quando leggi il recordset richiama l'ALIAS che hai utilizzato.

Roby

[Giubass]

Originariamente inviato da Roby_72
Usa un ALIAS nella query e poi quando leggi il recordset richiama l'ALIAS che hai utilizzato.

Roby

Roby ho provato così:

CategorieSQL = "SELECT DISTINCT Tab_Categorie.Id AS IDC,Tab_Categorie.Nome_Categoria_it AS NC_IT, Tab_Categorie.Nome_Categoria_en AS NC_EN,"
   CategorieSQL = CategorieSQL &"Tab_Categorie.Nome_Categoria_fr AS NC_FR,Tab_Categorie.Nome_Categoria_es AS NC_ES "
   CategorieSQL = CategorieSQL &",Tab_Sub_Categorie.Nome_Sub_Categoria_it AS NSC_IT,Tab_Sub_Categorie.Id AS IDSC,Tab_Sub_Categorie.Attivazione AS ATV, "
   CategorieSQL = CategorieSQL &"Tab_Sub_Categorie.Nome_Sub_Categoria_en AS NSC_EN,Tab_Sub_Categorie.Nome_Sub_Categoria_fr AS NSC_FR, "
   CategorieSQL = CategorieSQL &"Tab_Sub_Categorie.Nome_Sub_Categoria_es AS NSC_ES "
   CategorieSQL = CategorieSQL &"FROM Tab_Categorie "
   CategorieSQL = CategorieSQL &"INNER JOIN Tab_Sub_Categorie ON Tab_Categorie.Id=Tab_Sub_Categorie.Id_Categoria WHERE Tab_Categorie.Attivazione=True"

Non da nessun errore ma la clausola DISTINCT non fa il suo dovere infatti ottengo tutte le categorie duplicate tante quante sono le sottocategorie cioè questo:

Categoria_1 -----> Sub_Categoria_1
Categoria_1 -----> Sub_Categoria_2
Categoria_1 -----> Sub_Categoria_3

Categoria_2 -----> Sub_Categoria_1
Categoria_2 -----> Sub_Categoria_2
Categoria_2 -----> Sub_Categoria_3

Categoria_3 -----> Sub_Categoria_1
Categoria_3 -----> Sub_Categoria_2
Categoria_3 -----> Sub_Categoria_3
....


Io invece dovrei ottenere questo:

Categoria_1 ----->Sub_Categoria_1 Sub_Categoria_2 Sub_Categoria_3

Categoria_2 ----->Sub_Categoria_1 Sub_Categoria_2 Sub_Categoria_3

Categoria_3 ----->Sub_Categoria_1 Sub_Categoria_2 Sub_Categoria_3
....


Spero di essermi spiegato. Grazie

[Roby_72]

La visualizzazione delle sottocategorie di ogni categoria la devi fare via codice...

Roby

[Giubass]

Originariamente inviato da Roby_72
La visualizzazione delle sottocategorie di ogni categoria la devi fare via codice...

Roby

Scusa ma non capisco cosa vuoi dirmi


Questo è lo script completo:

<div>"><%=arrMenu(3)%></div>
<span class="menu_verticale_int" id="sub1">
<%
CategorieSQL = "SELECT DISTINCT Tab_Categorie.Id AS IDC,Tab_Categorie.Nome_Categoria_it AS NC_IT, Tab_Categorie.Nome_Categoria_en AS NC_EN,"
CategorieSQL = CategorieSQL &"Tab_Categorie.Nome_Categoria_fr AS NC_FR,Tab_Categorie.Nome_Categoria_es AS NC_ES "
CategorieSQL = CategorieSQL &",Tab_Sub_Categorie.Nome_Sub_Categoria_it AS NSC_IT,Tab_Sub_Categorie.Id AS IDSC,Tab_Sub_Categorie.Attivazione AS ATV, "
CategorieSQL = CategorieSQL &"Tab_Sub_Categorie.Nome_Sub_Categoria_en AS NSC_EN,Tab_Sub_Categorie.Nome_Sub_Categoria_fr AS NSC_FR, "
CategorieSQL = CategorieSQL &"Tab_Sub_Categorie.Nome_Sub_Categoria_es AS NSC_ES "
CategorieSQL = CategorieSQL &"FROM Tab_Categorie "
CategorieSQL = CategorieSQL &"INNER JOIN Tab_Sub_Categorie ON Tab_Categorie.Id=Tab_Sub_Categorie.Id_Categoria WHERE Tab_Categorie.Attivazione=True"
   
Set CategorieRS = objConn.Execute(CategorieSQL)
 If Not CategorieRS.EOF Then
  i = 1
  Do While Not CategorieRS.EOF
  Id_Cat                    = CategorieRS("IDC")
  SubId_Cat                 = CategorieRS("IDSC")
  Attivazione_Sub_Categoria = CategorieRS("ATV")
  Select Case Lingua
   Case "it"
    Nome_Categoria     = CategorieRS("NC_IT")
    Nome_Sub_Categoria = CategorieRS("NSC_IT")
   Case "en"
	Nome_Categoria     = CategorieRS("NC_EN")
	Nome_Sub_Categoria = CategorieRS("NSC_EN")
   Case "fr"
	Nome_Categoria     = CategorieRS("NC_FR")
	Nome_Sub_Categoria = CategorieRS("NSC_FR")
   Case "es"
	Nome_Categoria     = CategorieRS("NC_ES")
	Nome_Sub_Categoria = CategorieRS("NSC_ES")
   Case Else
	Nome_Categoria     = CategorieRS("NC_IT")
	Nome_Sub_Categoria = CategorieRS("NSC_IT")
   End Select
   If Attivazione_Sub_Categoria <> False Then %>
')" class="menu_verticale_link" title="<%=Nome_Categoria%>"><%=Nome_Categoria%>

 <span class="sub_menu_verticale_int" id="sub_sub<%=i%>">
 "><%=Nome_Sub_Categoria%>

 </span>
<% Else %>
"><%=Nome_Categoria%>

<% End If        
  i = i + 1
  CategorieRS.MoveNext
  Loop
 End If
CategorieRS.Close
Set CategorieRS = Nothing
%>
</span>