Bonjour,
J'ai une petite fonction qui essaie de récupérer dans une BD la valeur de deux champs pour un enregistrement passé dans la clause WHERE.
Si cet enregistrement existe, la fonction me retourne un tableau à deux dimensions contenant le résultat de l'exécution de la requête.
Voici cette fonction :
-----------------------------------------------------------------------------------
Function GetInfo(param1,param2)
Dim str_sql, rst_info
Dim info()
Redim info(0,1)
Set rst_info = Server.CreateObject("ADODB.Recordset")
str_sql = "SELECT champ1, champ2 FROM ... WHERE ..."
rst_info.Open str_sql, conn, 3, 1
if (rst_info.RecordCount = 1) then
info(0,0) = rst_info("champ1")
info(0,1) = rst_info("champ2")
else
info(0,0) = null
info(0,1) = null
end if
rst_info.Close()
Set rst_info = nothing
GetInfo = info
end Function
-----------------------------------------------------------------------------------
A priori jusque là ça marche bien. Mais c'est dans mon prog principal que je n'arrive pas à récupérer les informations retournées par la fonction.
Je voudrai un tableau qui reçoive l'exécution de la fonction pour que je puisse le parcourir ensuite et ça je n'y arrive pas 
! J'ai soit une erreur du type "Subscript out of range" soit qqchose du style "type_mismatch".
A titre indicatif, je voudrai un truc dans ce style dans le main :
Dim tab_infos
Redim tab_infos(0,1)
tab_infos = GetInfo(param1,param2)
Merci d'avance pour votre aide !