Discussion :

[jeromeb]

Bonjour à tous,

J'ai réussi avec ACCESS 97 à lancer une proc stockée simple à mon serveur SQLServer,
mais maintenant je voudrais récupérer le parametre OUTPUT de ma proc dans
mon programme VBA , je ne pige pas la syntaxe .

En ADO bein entendu

Quelqu'un aurait il un exemple ?


Voici ma syntaxe

Code :

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

1
2
3
4
5
6
7
dim objcommand as ADODB.command
 
Set objCommand = New ADODB.Command
        Set objCommand.ActiveConnection = objConn
        objCommand.CommandType = adCmdStoredProc
        objCommand.CommandText = "recup"    ---> ma procédure "RECUP" à normalement un parametre en sortie.
        objCommand.Execute , , ADODB.ExecuteOptionEnum.adExecuteNoRecords

C'est où qu'il faut placer le param et commen on le déclare et comment on le récupère.


Merci d'avance
Merci

[m-mas]

Bienvenue sur ce forum,
je t'invite à lire les règles du forum et la FAQ
Pour ta question, moi j'utilise un appel à une procédure stocké sur Oracle et je pense que ça doit être la même chose, moi je récupère ma valeur de retour dans une table (que je lie ensuite sur ma base Access), c'est vrai j'ai jamais pensé à la récupérer par code, j'ajoute juste la valeur en fait dans une table !! voila si ça peut t'aider.

[jeromeb]

C'est pas bête mais je voudrais vraiment la récupérer par ADO.
Fierté quand tu nous tiens !!!

[m-mas]

C'est pas bête mais je voudrais vraiment la récupérer par ADO.
Fierté quand tu nous tiens !!!

Tu as sûrement raison, je vais chercher aussi de mon côté

[Stollv]

Bonjour

L'utilisation d'un objet Parameter ajouté dans la collection Parameters de ton objet Command devrait solutionner ton problème. Voici un exemple où j'utilise une commande ADO pour exécuter une procédure stockée sur un serveur SQL pour récupérer une valeur en sortie :

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
17
18
19
20
 
 
   Dim cmdMoyenne As ADODB.Command
    Set cmdMoyenne = New ADODB.Command
 
    'caractéristiques de la commande
    cmdMoyenne.CommandText = "calc_moyenne"
    cmdMoyenne.CommandType = adCmdStoredProc
    cmdMoyenne.ActiveConnection = conn
 
    'fournir les paramètres nécesaires à l'execution de la commande
[color=red]
    cmdMoyenne.Parameters.Append _
        cmdMoyenne.CreateParameter("p_noeleve", adInteger, adParamInput, 4, CInt(TxtNoEleve.Value))    cmdMoyenne.Parameters.Append _
        cmdMoyenne.CreateParameter("moy", adSingle, adParamOutput)
    [/color]
    'execution de la commande et recupération de la valeur dans le paramètre output
    cmdMoyenne.Execute
    'récupération de la valeur calculée par la procédure stockée
    TxtMoyGene.Value = cmdMoyenne("moy").Value

La procédure stockée prend deux arguments, le premier en entrée, le second en sortie, qui sont représentés par deux objets paramètres crées (méthode CreateParameter de l'objet Command) et ajoutés à la collection Parameters de l'objet Command (méthode Append de Parameters) dans l'ordre où ils doivent être fournis à la procédure stockée. Les noms attribués au paramètres n'ont pas à être identiques à ceux des arguments de la procédure stockée, ils servent de clé pour l'objet Paramètre dans la collection Parameters. Le second argument de CreateParameter est le type ADO du paramètre (décrits dans l'énumération DataTypeEnum de la bibliothèque ADO), le troisième indique le sens du paramètre (constante), le quatrième la taille en octets (utilie surtout pour les types caractères...), et le cinquième permet d'indiquer la valeur contenue par le paramètre (pour un paramètre en sortie, il est bien sûr facultatif puisque c'est la procédure stockée qui va y placer la valeur retournée...)

A l'issue de l'exécution de la commande, on peut lire la valeur placée dans le paramètre en sortie de la commande en y accédant par sa clé ou son indice au sein de la collection Parameters.

En espérant que ça t'aidera.
S.

[jeromeb]

Ca a l'air de bien correspondre à mon besoin , par contre je pige pas pourquoi mais chaque fois que j'utilise Createparameter j'ai un message

"Utilisation incorrecte de l'objet"


PS: je ne trouve pas le fichier d'aide ADO270.chm , est ce que par hasard vous l'auriez ?

Merci

[Stollv]

Ca a l'air de bien correspondre à mon besoin , par contre je pige pas pourquoi mais chaque fois que j'utilise Createparameter j'ai un message

"Utilisation incorrecte de l'objet"

Le code dans lon message précédent est mal formaté car j'ai fait l'erreur de vouloir y introduire des balises pour mettre les lignes en couleurs. Mes excuses...

En fait la même instruction regroupe l'utilisation de la méthode Append de la collection Parameters dont l'argument est la référence à l'objet Parameter créé par CreateParameter. Le schéma général de l'instruction est donc :

obj_commande.Parameters.Append obj_commande.CreateParameter(nom,type,sens,taille,valeur)

PS: je ne trouve pas le fichier d'aide ADO270.chm , est ce que par hasard vous l'auriez ?

Merci

Voir les Messages Personnels

@+
S.

[jeromeb]

Ne vous inquietez pas pour les couleurs , mon prob persiste:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
 
        Set objCommand = CreateObject("ADODB.Command")
        objCommand.ActiveConnection = objConn
        objCommand.CommandType = adCmdStoredProc
        objCommand.CommandText = "recup"
        objCommand.Parameters.Append objCommand.CreateParameter("etiq", , adParamOutput)
 
        objCommand.Execute
 
        MsgBox "valeur :" & objCommand("etiq").Value

Il est bon non ?

[jeromeb]

Ca y est c'est bon, la solution:

C'était simplement que dans le param on doit déclaré une taille si on met un type de données de longueur variable ou définir le parametre avant APPEND

[Stollv]

En effet, j'ai peur de n'avoir pas été assez clair sur ce point

L'essentiel étant que le problème soit résolu

@+
S.