14 maggio 2005 alle 17:33:02 ho l'esigenza di visualizzare nella TopTable il titolo delle categorie degli articoli.
ho rpovato a recuperare dal database "arCategory" in questo modo:
Sub DisplayArticlesSearch(iCategory) Dim oCn, oRs, rSQL, bFirst, iNbPages
bFirst = True
Set oCn = DBConnexion(DB_MAIN)
If iCategory = "" Then iCategory = 0 end if rSQL = "SELECT arId, arTitle, arAuthor, arDescription, arCategory, arDate, count(apID) FROM articles, articlespages, versions WHERE arID=apArticle AND arVersion=vID AND arValid=1 AND apValid=1 AND arCategory=" & iCategory If sXMLVersion <> "" Then rSQL = rSQL & " AND vCode='" & sXMLVersion & "'" end if rSQL = rSQL & " GROUP BY arID, arDate, arTitle, arAuthor, arDescription, arCategory, arDate ORDER BY arDate"
Set oRs = DBRecordSet(oCn, rSQL)
If Not oRs.EOF Then CreateTopTable "ArticlesByCategory", Server.HTMLEncode(oRs("arCategory"))
ma la pagina, invece di restituirmi il nome della categoria, mi restituisce il numero di cat.
16 maggio 2005 alle 15:30:48 nella select manca la join alla tabella "categories" dalla quale prendere la descrizione della categoria. Nella tabella "articles" c'è solo il codice della categoria ed è normale che ti faccia vedere solo il codice numerico.
mennella Avanzato
155 Discussioni
16 maggio 2005 alle 15:46:25 scusami, ma non ho ancora afferrato bene... sono alle prime armi... nella tabella articles c'è una colonna "arCetegories" dove compare il titolo della categoria, ma evidentemente non va bene. il problema è che non capisco come sviluppare la select... qualcuno può darmi una mano?
--------------- Questi li ho fatti io! http://www.digirolamoeditore.com http://www.sferaufficio.com
16 maggio 2005 alle 22:51:35 Purtroppo non ho tempo per provare il codice che postato, ma, credo debba essere scritta così la query:
rSQL = "SELECT arId, arTitle, arAuthor, arDescription, arCategory, arDate, count(apID) FROM articles, articlespages, versions, categories WHERE arID=apArticle AND arVersion=vID AND arValid=1 AND apValid=1 AND arCategory=" & iCategory If sXMLVersion <> "" Then rSQL = rSQL & " AND vCode='" & sXMLVersion & "'" end if rSQL = rSQL & " GROUP BY arID, arDate, arTitle, arAuthor, arDescription, arCategory, arDate ORDER BY arDate"
Aggiungendo dopo FROM la tabella categories, a cui fai riferimento per avere il titolo della categoria. Ciauzz DJ
--------------- A lavare la testa ai somari, ci si rimette l'acqua e il sapone!