Il est ou son probleme a lui (Réglé)

Marsh Posté le 30-08-2005 à 18:10:08

Bonjours.
J'un problème dont je ne comprend pas la raison. Je suis pas une bete en asp alors je ne critique pas (pour l'instant) le language.
J'ai une methode dans une classe presente ci-dessous, Cette methode place les informations dans une classe. La classe Ticket fonction (testé), la requete SQL fonctionne (testé).
Je voudrais faire un return de l'objet ticket précédement alimenté. Problème c'est que j'ai ce message d'erreur

Citation :

Erreur d'exécution Microsoft VBScript error '800a01b6'
Cet objet ne gère pas cette propriété ou cette méthode: 'out'

Même si je place l'objet en reout de la fonction j'ai toujours ce même message.
Quel est cette erreur. Avec une autre methode j'ai eu ce même problème mais je l'ai contourné.
Je veux juste faire un return de mon objet.
Merci.

Code :

Public Function SelectTicket()
Set CN = Server.CreateObject("ADODB.Connection" )
Set RS = Server.CreateObject("ADODB.Recordset" )
Set objTicket = new Ticket
CN.Open sCNINTERwrite
SQL = "SELECT * FROM tb_ticket WHERE tck_id = " & idTicket
RS.Open SQL, CN, 2, 4
if not RS.EOF then
echo RS("tck_message" )
objTicket.setMessage(RS("tck_message" ))
objTicket.setStatus(RS("tck_status" ))
objTicket.setIdUtilisateur(RS("tck_utilisateur" ))
objTicket.setType(RS("tck_type" ))
objTicket.setSujet(RS("tck_sujet" ))
objTicket.setResp1(RS("tck_resp1" ))
objTicket.setResp2(RS("tck_resp2" ))
objTicket.setFichier(RS("tck_fichier" ))
out = objTicket
end if
set objTicket = nothing
SelectTicket = out
End Function

ps :Cette methode a été testé sous différente version de syntaxe. Pour autant, c'est toujours pareille. Aussi que la fonction SelectTicket est une methode d'une classe

Message édité par Berceker United le 31-08-2005 à 12:07:08

Reply

Marsh Posté le 30-08-2005 à 18:10:08

Reply

Marsh Posté le 31-08-2005 à 09:27:43

up

Reply

Marsh Posté le 31-08-2005 à 09:30:06

Je te conseil de rajouter

Code :

Option Explicit

au debut de ton module
Tu seras ainsi force de declarer toutes tes variables

Code :

Dim ma_var As son_type

Ici tu es entrain de manipuler un objet (objTicket).. or en VB pour definir un objet il faut utiliser le mot clef "Set".

donc si tu fais

Code :

'...
Set out = objTicket
'....
Set SelectTicket = out

Ca ira bcq mieux...
P.S: Profite aussi pour rajouter le type de la valeur de retour de ta fonction..

Code :

Public Function nom_de_la_fonction(param As param_type,..) As retour_type

Si tu ne precise pas le type d'une variable ou d'une fonction, elle sera considere de type "Variant" (qui, entre nous, est un truc extrement etrange dans VB, qui ne devrait pas exister... Quand on declare une variable, on sait quel est on type, ce n'est pas une poubelle ou on met se qui nous passe par la tete dedans!)

---------------
Guendalf

Reply

Marsh Posté le 31-08-2005 à 09:52:29

Merci beaucoup sa marche.
En faite j'avais je pensais pas que sa pouvait être du faite que je n'ai pas utilisé l'élément set car j'ai déjà manipulé une méthode en récurif qui retournais un tableau d'objet et j'ai pas eu de souci. Je savais qu'il me manquais une connaissance particulière pour régler se problème .
Concernant le As j'ai l'impression que l'asp n'apprecie pas.