Fejl ved group by

Group by skal efter din where.

....og før din order by ;)

Hej Erik,
Det hjalp mig lidt videre.

Når jeg nu rykker den, får jeg denne fejl:
[Microsoft][ODBC Microsoft Access-driver] Der kan ikke grupperes efter felter, der er markeret med "*".

Så ændrer jeg SQL-sætningen til følgende:

---SQLKODE---
ReviewSQL2 = "Select ReviewID, MemberID, CatID, ManufacturerID, ModelID, Rating, ReviewDate, ReviewTime, ReviewActive, (select Model from tbl_RModels where tbl_RModels.ModelID = tbl_Reviews.ModelID)as RModel,(select Category from tbl_RCategories where tbl_RCategories.CatID = tbl_Reviews.CatID)as RCategory,(select Manufacturer from tbl_RManufacturers where tbl_RManufacturers.ManufacturerID = tbl_Reviews.ManufacturerID)as RManufacturer from tbl_Reviews where ReviewActive=1 and CatID="& request.QueryString("CatID") &" group by ModelID order by ReviewDate desc"
---SQLKODE--

Og så får jeg en ny fejl :(
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][ODBC Microsoft Access-driver] Du har forsøgt at køre en forespørgsel, der ikke medtager det angivne udtryk "ReviewID" som en del af en aggregatfunktion.

Kan du hjælpe videre herfra?

Du kan få de felter ud, du laver group by på, eller en beregning på de øvrige.
Andet vil ikke give mening. Ex:

id felt1 felt2
1 hund viggo
2 hund fido
3 kat karo

med en
  select felt1,felt2 from dyr group by felt1
er der jo ingen der ved hvad den skal skrive i felt2. Så det er nok mere hvad det
er du vil have. Jeg kan ikke gennemskue det ;)

Problemet er nu løst.

---SQLKODE---
ReviewSQL2 = "Select DISTINCT(ModelId), " &_
            "(select AVG(Rating) FROM tbl_Reviews r9 WHERE r9.ModelID = tbl_Reviews.ModelID and ReviewActive=1) AS RRating, " &_
            "(select DISTINCT TOP 1 ReviewDate FROM tbl_Reviews r9 WHERE r9.ModelID = tbl_Reviews.ModelID order by ReviewDate desc) AS TopReview," &_
            "(select COUNT(ModelID) FROM tbl_Reviews r9 WHERE r9.ModelID = tbl_Reviews.ModelID and ReviewActive=1) AS CountModelID," &_
            "(select Model from tbl_RModels where tbl_RModels.ModelID = tbl_Reviews.ModelID)as RModel, " &_
            "(select Category from tbl_RCategories where tbl_RCategories.CatID = tbl_Reviews.CatID order by Category asc)as RCategory, " &_
            "(select ManufacturerID from tbl_RManufacturers where tbl_RManufacturers.ManufacturerID = tbl_Reviews.ManufacturerID order by ManufacturerID asc)as RManID, " &_
            "(select Manufacturer from tbl_RManufacturers where tbl_RManufacturers.ManufacturerID = tbl_Reviews.ManufacturerID)as RManufacturer " &_
            "from tbl_Reviews where ReviewActive=1 and CatID="& request.QueryString("CatID") &""
        set rsReviewSQL2 = conn.execute(ReviewSQL2)
---SQLKODE---