Discussion :

[tribaleur]

Bonjour à tous.

Je début une application Access connecté à une BD SQLServer. Je suis donc en fase de test des procédures stockés. J'ai trouvé et adapté un bout de code qui me permet de récupérer le résultat d'une Procedure Stocké mais j'ai pas tout compris. Voici mon appel de procedure

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
Public Sub ExempleAppelPS()
'on apppel une procédure stoké en lui chargeant un paramêtre et on affect le résultat à un RS
Dim cmd As ADODB.Command
Dim rs As ADODB.Recordset
Dim p1 As ADODB.Parameter
Set cmd = New ADODB.Command
cmd.ActiveConnection = CurrentProject.Connection
cmd.CommandType = adCmdStoredProc
cmd.CommandText = "PS_NomIngre_PoidNor_CommentaireNor"
 
Set p1 = cmd.CreateParameter("@NumSel", adInteger, adParamInput)
 
cmd.Parameters.Append p1
p1.Value = 1
 
Set rs = cmd.Execute
 
MsgBox rs.RecordCount
End Sub

Voici ma procedure :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
CREATE PROCEDURE [dbo].[PS_NomIngre_PoidNor_CommentaireNor] 
	-- Add the parameters for the stored procedure here
	@NumSel int
AS
BEGIN
	-- SET NOCOUNT ON added to prevent extra result sets from
	-- interfering with SELECT statements.
	SET NOCOUNT ON;
 
    -- Insert statements for procedure here
	SELECT i.NomIngre, n.PoidNor, n.CommentaireNor
    FROM TL_FormSel_Ingre_NORMAUX n JOIN Ingredients i ON i.PK_NumIngre =  n.FK_NumIngre
    WHERE n.FK_NumFormSel = @NumSel ;
END

VOICI MES QUESTIONS :
1-La fonction Parmeter.Append ... que fait elle éxactement?
2-Si à l'appel de la procedure, quand je défini le paramêtre, je met

Code :

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

Set p1 = cmd.CreateParameter("@NumSel1", adInteger, adParamInput)

au lieu de

Code :

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

Set p1 = cmd.CreateParameter("@NumSel", adInteger, adParamInput)

ça fonctionne...pourquoi? (dans ma procedure le paramêtre s'appel @NumSel)

3-Existe-t'il un moyen d'appeler la procedure sans faire

Code :

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

1
2
3
4
Set p1 = cmd.CreateParameter("@NumSel", adInteger, adParamInput)
 
cmd.Parameters.Append p1
p1.Value = 1

Merci d'avance à tous pour vos réponses.

[Oleff]

la fonction append ajoute un élément à une collection.
Tu ne peux donc pas créer plusieurs fois un paramètre avec le nom @NumSel.

Pour utiliser ce parametre, il faut lui affecter une valeur

Code :

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

1
2
Set p1 = cmd.parameter("numSel")
p1.value = ...

sans certitude sur la syntaxe

[tribaleur]

Merci pour la réponse.

Sinon la seul amélioration que j'ai trouvé c'est d'écrire

Code :

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

1
2
3
Set p1 = cmd.CreateParameter("@NumSel", adInteger, adParamInput,,1)
 
cmd.Parameters.Append p1

au lieu de :

Code :

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

1
2
3
4
Set p1 = cmd.CreateParameter("@NumSel", adInteger, adParamInput)
 
cmd.Parameters.Append p1
p1.Value = 1

[Oleff]

Je ne comprend pas pourquoi tu veux absolument créer un paramètre supplémentaire alors qu'il existe déja dans ta procédure stockée ???

[tribaleur]

En fait je ne sais pas comment appeler la procedure et affecter une valeur au paramêtre sans faire les ligne

Code :

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

1
2
3
Set p1 = cmd.CreateParameter("@NumSel", adInteger, adParamInput,,1)
 
cmd.Parameters.Append p1

[Oleff]

Code :

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

1
2
Set p1 = cmd.parameters("@numSel")
p1.value = ...

Logiquement comme ça.
Tu accèdes au paramètre @numsel de la collection Paramètres de la procédure. Puis tu lui affectes une valeur (integer)
Et tu exécutes la procédure.

[tribaleur]

Et bin merci grandement pour tes réponses.

J'avais pas pensé à faire comme ça...

Encore merci