Lire une table Access inverse
Bonjour
Après avoir trouvé des exemples, j'ai essayé ce qui suit; sans résultat.
Je ne vois pas mon erreur. :?
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
| <script language="VBScript">
Const db = "bibi.accdb"
Const pr1 = "PROVIDER=Microsoft.ACE.OLEDB.12.0;Data Source="
Const pr2 = ";Persist Security Info=False;"
connstring = pr1 & db & pr2
Set Rs = CreateObject("ADODB.RecordSet")
z="<body bgcolor='#FFE4C4'>" & _
"<input type='button' onclick='window.close' name='sortie'/> " & _
"  (du plus recent au plus ancien)" & _
"<table cellspacing='2px' cellpadding='2px;' rules='all' " & _
"style='border:solid 1px black;'>" & _
"<tr><th>N°<th>Nom<th>Type<th>nb Mo</tr>"
'----------------------------------------------------------
Const sql = "SELECT * FROM [films]"
Rs.open SQL, connstring
RS.MoveLast
Do Until RS.BOF
z=z & "<tr><td>" & RS(0) _
& "</td><td>" & RS(1) _
& "</td><td>" & RS(2) _
& "</td><td>" & RS(4) & "</td></tr>"
rs.MovePrevious
Loop : rs.close
self.document.write z & "</table></body>"
</script> |
Pour lire la table dans l'ordre, je n'ai pas de problème.