Recordset et retour de fonction [Résolu]

[prometee]

Bonjour,

Je voudrais retourner ma variable contenant le résultat de ma requête faite avec un recordset.

En clair :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
function getAllCatalogue()
	Dim Req
 
	Set c = Server.CreateObject("ADODB.Recordset")
 
	Req = 		"SELECT ... "
 
	c.Open Req, cn, 3, 3
 
	getAllCatalogue = c
 
	close_rs(c)
 
end function

et je devrais pouvoir récupérer le résultat comme ceci :

Code :

categ = getAllCatalogue()

Or ceci me renvoie une erreur :

Code :

1
2
3
4
 
Erreur d'exécution Microsoft VBScript error '800a01c2'
 
Nombre d'arguments ou affectation de propriété incorrects

Comment retourné le contenu complet de ma variable c ?

[ryan]

Yop!

A première vue, je dirais que "c" est un object, et que la fonction s'attend à retourner une variable.

Peut-être sauver ton recordset dans un tableau

Code :

1
2
 
getAllCatalogue = c.getrows

et retourner le tableau?

[prometee]

C'est ce que j'ai fait pour l'instant, mais bon je pensais qu'on pourrais retourner tout un objet...

[prometee]

En fait il suffisais d'un peu réfléchir, je retourne un objet donc il faut que je Set l'objet pour l'affecter a ma nouvelle variable...

donc au niveau du return faire :

Code :

Set getAllCatalogue = c

[kaiser59]

salut,

J'ai déjà fait une tentative de ce que tu veux faire mais j'ai pas trouvé ou alors je sais plus le faire

Normalement le return te retourne la valeur or j'arrive pas (ou plus ) à l'utiliser peut-être n'est-il pas utilisable dans une fonction mais plus dans une procèdure (à vérifier )

Sinon en attendant ce que tu dois faire c'est ceci :

Code asp :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
function getAllCatalogue()
	Dim Req
 
	Set c = Server.CreateObject("ADODB.Recordset")
 
	Req = 		"SELECT ... "
 
	c.Open Req, cn, 3, 3
 
     do while not rs.eof
        response.write Rs("tonchamp") &"<br/>"&vbcrlf
     rs.movenext
     loop
	close_rs(c)
 
end function

Code asp :

1
2
3
<%
  getAllCatalogue () 'Sans rien préciser tout ton catalogue sera affiché
%>

[prometee]

au départ ma fonction étais comme ça, mais j'ai eu besoin à d'autre endroits de mon site de reprendre le résultat de la même requête. c'est pour ça que je ne fait pas d'affichage dans ma fonction ...

j'ai donc une fct getAllCatalogue et une autre qui s'appelle showAllCatalogue.

[agrotic]

bonjour,

perso, je ferai plutôt une procédure qu'une fonction... un truc dans le style

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
sub populateRS(targetRS by val)
	Dim Req, c
	Set c = Server.CreateObject("ADODB.Recordset")
	Req = 		"SELECT ... "
	c.Open Req, cn, 3, 3
	targetRS = c
	close_rs(c)
end sub
 
dim monRecordSet
set monRecordSet = Server.CreateObject("ADODB.RecordSet")
populateRS monRecordSet
if not monRecordSet.EoF then
	[...]
end if

[kaiser59]

Dans ce cas en espèrant que tu ne souhaites qu'une valeur ^^' tu places le résultat dans un cookies

[prometee]

En fait il fallais juste un peu plsu fouillez : Request.clone et ici aussi

Code :

1
2
3
4
5
6
7
8
9
10
11
12
function getAllCatalogue()
	Dim Req
 
	Set c = Server.CreateObject("ADODB.Recordset")
	
	Req = 		"SELECT ... "
	
	c.Open Req, cn, 3, 3
	
	Set getAllCatalogue = c.clone(-1)
	
end function

et donc récupèrer le contenu en fesant :

Code :

Set nouveauxC = getAllCatalogue()

[kaiser59]

C'est bon à savoir pour la prochaine fois
Penses au tag résolu