[VBScript] Fonction qui retourne un tableau à 2 dimensions

Question

Bonjour,

J'ai une petite fonction qui essaie de r&#233;cup&#233;rer dans une BD la valeur de deux champs pour un enregistrement pass&#233; dans la clause WHERE.
Si cet enregistrement existe, la fonction me retourne un tableau &#224; deux dimensions contenant le r&#233;sultat de l'ex&#233;cution de la requ&#234;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&#224; &#231;a marche bien. Mais c'est dans mon prog principal que je n'arrive pas &#224; r&#233;cup&#233;rer les informations retourn&#233;es par la fonction.
Je voudrai un tableau qui re&#231;oive l'ex&#233;cution de la fonction pour que je puisse le parcourir ensuite et &#231;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 !

cs_CanisLupus · Answer

Salut,
Il me semble avoir répondu à une question similaire il n'y a pas longtemps. Mais comme ça ne concernait pas le VBS, je la reposte avec tes noms de variables :

'La fonction :
Function GetInfo(ByVal param1, ByVal param2, ByRef info())
 
 Dim str_sql, rst_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

End Function

'L'appel de la fonction :
Dim tab_infos()

Call GetInfo(param1, param2, tab_infos)

Après, tu lis ton tableau tab_infos comme tu veux.

Comme je ne suis pas un spé du vbs, je ne sais pas trop si les instructions Byval, Byref et call sont comprises par ce langage. Je te laisse traduire.

[VBScript] Fonction qui retourne un tableau à 2 dimensions

1 réponse

Discussions similaires