Discussion :

[zorba49]

Bonjour,

J'ai créé une fonction avec 1 requete sql qui renvoie comme valeur du texte, la variable passée en argument est 1 chiffre

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 DefinitionItem(choix_item)
Dim sql,rst,resultat
sql="SELECT Code_Intitule FROM TIntituleQuestions WHERE Num_Intitule = " & (choix_item)
 
set rst=Application("cnx").Execute(sql)
 
if rst.EOF=False Then
 
resultat(0)=rst("Code_Intitule")
 
End If
rst.Close()
 
DefinitionItem=resultat
 
End Function

Sur la page asp que j'ouvre, j'ai mis ce bout de code:

Code :

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

1
2
3
4
<% dim test
       Session("teste")=Request("choix_item")
        test=DefinitionItem(Session("teste"))
        response.write(test)  %>

avec choix-item qui est 1 chiffre

Lorsque je lance ma page voici le message d'erreur que je recois:

Objet Response error 'ASP 0106 : 80020005'
Types non correspondants
/Mise_en_ligne/biblio/definition.asp, line 0
Un type de données non pris en charge s'est présenté.

Je ne vois pas ou est le prob ? lors execution fonction, aprés?

merci d'avance

[flogreg]

Bonjour. Et si tu fais :

Code :

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

1
2
3
4
5
 
<% dim test 
       Session("teste")=Request("choix_item") 
        test=DefinitionItem(cdbl(Session("teste"))) 
        response.write(test)  %>

Commeca tu es sur qu'il prend bien un numérique

[zorba49]

j'ai essayé avec cdbl mais tjs même message d'erreur

[zorba49]

je pense que le prob vient de ma fonction
resultat de la requete?
je suis ds les choux la !!!!

[malbaladejo]

Je pense que l'erreur viens de la :

Code :

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

resultat(0)=rst("Code_Intitule")

Tu affectes une valeur a une case d'un tableau sans avoir définis de taille pour ton tableau.

Tu peux faire :

Code :

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

1
2
3
4
Dim resultat
Redim resultat(0)
...
resultat(0)=rst("Code_Intitule")

ou

Code :

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

1
2
3
Dim resultat
...
resultat=rst("Code_Intitule")