Discussion :

[stephtbest]

Bonjour tout le monde
Je souhaiterais qu'une de mes fonctions me retourne une valeur.
Du genre Return String ...
Mais j'y arrive pas.
Voici mon code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
function quelTypeCadreFiscal(TypeCadreFiscal)
 
	Set rsBase_TypeCF= Server.CreateObject("ADODB.Recordset")
	requeteTypeCF = "SELECT   ....."
 
		rsBase_TypeCF.Open requeteTypeCF, baseES, 0, 1
		libelleCF = rsBase_TypeCF("LibelleTypeCadreFiscal")
		quelTypeCadreFiscal = libelleCF
		response.Write(libelleCF)
	requeteTypeCF.close
 
	set requeteTypeCF = nothing
	exit function
 
end function

Qq'un l'a déjà fait... c tellement plus propre une fonction

[nyk_o]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
function quelTypeCadreFiscal(TypeCadreFiscal)
 
	Set rsBase_TypeCF= Server.CreateObject("ADODB.Recordset")
	requeteTypeCF = "SELECT   ....."
 
		rsBase_TypeCF.Open requeteTypeCF, baseES, 0, 1
		libelleCF = rsBase_TypeCF("LibelleTypeCadreFiscal")
		quelTypeCadreFiscal = libelleCF
		response.Write(libelleCF)
	requeteTypeCF.close
 
	set requeteTypeCF = nothing
 
end function

Appel de ta function

dim var1
var1 = quelTypeCadreFiscal(TypeCadreFiscal)

[stephtbest]

toujours pas... c bizarre...

[nyk_o]

toujours pas... c bizarre...

comment ca toujours pas ? ca ne t'affiche aucun résultat ?
T sur que ta fonction fonctionne (ramène un résultat) ?

[stephtbest]

C bon, j'ai trouvé.. je suis trop con
J'ai fermé la requete et pas mon resultset ....