Bonjour,
Voici l'erreur que me renvoie le debugger pour la déclaration de la matrice dans le traitement ci-dessous.
Où est l'erreur , Docteur ?
Merci pour votre réponse
Erreur de compilation Microsoft VBScript (0x800A0402)
Constante entière attendue
/test_bd/List_data.asp, line 7, column 13
Dim arrListe(intFields) ' déclaration d'une matrice pour stocker les champs
Voir traitement ci-dessous :
function List_Champs(objTable)
'permet de lister les champs du recordset courant dans une matrice
Dim intFields
intFields=objTable.Fields.count-1
Dim arrListe(intFields) ' déclaration d'une matrice pour stocker les champs
For i=1 to objTable.Fields.count
arrListe(i-1)=objTable.Fields(i).Name
Next
objTable.Close
Set objTable = Nothing
List_Champs = arrListe
end function
Remarque : Dans le descriptif du modèle ADO, il est indiqué que la méthode Count de la collection Fields de l’objet RecordSet renvoie un objet de type Long.
