Bonjour,
J'extrait un tableau d'un recordset, malheureusement il manque tout le temps la première ligne du recordset ...
Set objConnection=server.CreateObject("ADODB.Connection")
objConnection.Open ConnString, adOpenKeySet, adLockPessimistic
Set objRec=server.CreateObject("ADODB.Recordset")
set objRec=objConnection.Execute("select * from hotel")
'*********************************************************************
' Rec to Tab
'*********************************************************************
aryRows = objRec.getRows()
intNumFields = UBound(aryRows)
intNumRows = UBound(aryRows, 2)
Response.Write "<table border=""1""><tr><td>" & intNumFields & "</td><td>" & intNumRows & "</td></tr><tr>"
For Each Field in objRec.Fields
Response.Write "<td>" & field.Name & "</td>"
Next
Response.Write "</tr>"
for intCurRow=0 to intNumRows
Response.Write "<tr>"
for intCurField=0 to intNumFields
Response.Write "<td>" & aryRows(intCurField, intNumRows) & "</td>"
Next
Response.Write "</tr>"
Next
Response.Write "</table>"
|
Comment faire pour que la première ligne soit comprise ?
bubblepwal.XMLDOM only
