simplify this

ups blandede noget sammen .. den her kode i skal bruge:
strSQL = \"SELECT COUNT(class) AS bards FROM Users WHERE class=\'Bard\' ORDER BY level DESC;\"
set rs = myConn.Execute(strSQL)
brdstring = \"\"
If Not (rs.BOF Or rs.EOF) Then
Do While Not rs.EOF
brdstring = brdstring + rs(\"character\") + \"<br>\"
rs.MoveNext
Loop
Else
brdstring = \"\"
End If

æhh dit spørgsmål?

set rs = myConn.Execute(\"SELECT COUNT(class) AS bards FROM Users WHERE class=\'Bard\' ORDER BY level DESC;\")
brdstring = \"\"
Do While Not (rs.EOF or rs.BOF)
  brdstring = brdstring + rs(\"character\") + \"<br>\"
  rs.MoveNext
Loop

og den gik ud på hvad?

ARGH .. i får lige hele koden i ka selfølgelig ikke gå ud fra det her:

strSQL = \"SELECT COUNT(class) AS bards FROM Users WHERE class=\'Bard\' ORDER BY level DESC;\"
set rs = myConn.Execute(strSQL)
bards = rs(\"bards\")
brdstring = \"\"
If Not (rs.BOF Or rs.EOF) Then
Do While Not rs.EOF
brdstring = brdstring + rs(\"character\") + \"<br>\"
rs.MoveNext
Loop
Else
brdstring = \"\"
End If

og får denne error så der er vel også noget galt :(
Error Type:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][ODBC Microsoft Access Driver] Syntax error in ORDER BY clause.

i skulle gøre den simplere...

Jeg mener stadig ikke det kan blive simplere end mit svar....(uanset om den sidste kommentar er \"hele\" koden). Fejlen må vare fordi feltet ikke hedder \"level\"....

ups. bortset fra at

bards = rs(\"bards\")

lige skal ind før loopen starter :)

okay havde ik lige set dit svar Brain ..

men den kommer stadig med fejlen :
Error Type:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][ODBC Microsoft Access Driver] Syntax error in ORDER BY clause.
på selve linien med SQL stringen of course..
nogen ide ?

Ikke andet end det jeg allerede har kommenteret, at det måske ikke er level den hedder den kolonne... SQL\'en ser rigtig god ud. Prøv at kopiere den ind i Access. (opret query, gå i SQL mode (øverst venstre dropdown), og paste det ind), og se hvad den siger..

Den her virker .. men der er ikke ORDER BY på .. og jeg har level i databasen ??

set rs = myConn.Execute(\"SELECT COUNT(*) AS bards FROM Users WHERE class=\'Bard\'\")
brdstring = \"\"
bards = rs(\"bards\")
set rs = myConn.Execute(\"SELECT * FROM Users WHERE class=\'Bard\'\")
Do While Not (rs.EOF or rs.BOF)
brdstring = brdstring + rs(\"character\") + \"<br>\"
rs.MoveNext
Loop

Ahhhhh. Det tog sandelig lidt tid for den gamle brain....Count(*) giver kun en row pr. definition. derfor kan du ikke lave order by...

dvs det er umuligt at gøre ?

Order by giver jo ingen mening nå der kun er en row....hvad skal den så sortere?

søvnig...undskyld....prøv...

set rs = myConn.Execute(\"SELECT COUNT(*) AS bards FROM Users WHERE class=\'Bard\'\")
brdstring = \"\"
bards = rs(\"bards\")
set rs = myConn.Execute(\"SELECT * FROM Users WHERE class=\'Bard\' ORDER BY level DESC\")
Do While Not (rs.EOF or rs.BOF)
brdstring = brdstring + rs(\"character\") + \"<br>\"
rs.MoveNext
Loop

Det bør virke med ingen ORDER BY på første select, og ORDER BY på nederste....

ahh. level er reserveret i Access. prøv SELECT * FROM Users WHERE class=\'Bard\' ORDER BY Users.level DESC

tusind tak ;)