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.

Il me semble qu'un tableau ne peut pas être défini avec une variable définissant la taille initiale, celle ci doit être un entier d'ou le message d'erreur.