Discussion :

[critok]

Bonjour,

J'ai une application Access couplée à une base sql serveur 2005 express.
j'ai créé une procedure stockée sous sql serveur qui prend en entrée un tableau d'entier appelé 'liste', la voici:

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
 
CREATE PROCEDURE ReportCustom 
	-- Add the parameters for the stored procedure here
@liste Integer
 
AS
BEGIN
 
	-- Variables 
	DECLARE @REQUETE VARCHAR(5000)
	SET @REQUETE = ''
	SET NOCOUNT ON;
 
    -- Insert statements for procedure here
@REQUETE = "SELECT * FROM matable"
EXEC(@REQUETE);
 
END
GO

Sous Access, dans un formulaire, j'ai placé un objet de formulaire de feuille de données indépendant qui s'appelle Report. Sur l'evenement load, j'ai le code suivant:

Code :

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

1
2
3
4
5
6
 
Private Sub Form_Load()
 
    Report.SourceObject = "ReportCustom"
...
End Sub

le résultat s'affiche donc très bien.
Par contre Access me demande le paramettre 'liste' de la procedure stockée, se qui est normal.

Cependant j'aimerais declarer et valoriser une variable liste de type tableau d'entier avant le "Report.SourceObject = "ReportCustom"", comme cela:

Code :

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

1
2
3
4
5
6
7
 
Private Sub Form_Load()
dim liste(100) AS Interger
 
    Report.SourceObject = "ReportCustom"
...
End Sub

Cependant je ne trouve pas la syntaxe pour passer le parametre directement dans la proc. J'ai essayé cela:
Report.SourceObject = "ReportCustom" & liste
Report.SourceObject = "ReportCustom liste"
Report.SourceObject = "ReportCustom" & @liste
Report.SourceObject = "ReportCustom @liste"
...

Mais cela ne marche pas.
Pouvez vous m'indiquer la marche a suivre afin de passer mon tableau d'entier à ma proc stockée.

Merci à vous

[emartin4485]

Appel à une procédure stockée nommée ps_MEE qui attend des paramètres, ici 2, mais on peut en placer davantage.

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
'
' Appel de la procédure sotckée
'
Private Sub btn_ Click()
Dim t As Integer
Dim b As String
 
   If ConfirmerTache(" texte de confirmation ") Then
        t = Me.Cur_Tache_ID.Value
        b = Me.Cur_Base.Value
 
            pparam = Array(Array("Tache_ID", adInteger, adParamInput, t, 12), Array("Code_MF", adVarChar, adParamInput, b, 1))
 
           Call MDL_Exec.Execute_Procedure("ps_MEE", pparam, False)
 
    End If
 
End Sub

Ma Procédure générale exécutant une procédure stockée avec un nombre variable de paramètres.

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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
Public Sub Execute_Procedure(pProcedureStockee As String, pparam As Variant, _
                Optional pConfirmation As Boolean = False, _
                Optional pMessage As Boolean = True)
Dim Cmd As New ADODB.Command
 
Dim nb As Integer
 
Dim aparam As Variant
Dim vname As String
Dim vtype As Long
Dim voutput As Integer
Dim vvaleur As String
Dim vlong As Integer
Dim ok As Boolean
 
On Error GoTo Err_Execute_Procedure
 
        '
         ' paramètrage de la procédure
 
          With Cmd
              .ActiveConnection = gConnection
              .CommandText = pProcedureStockee
              .CommandType = adCmdStoredProc
 
              For Each aparam In pparam
                  vname = aparam(0)
                  vtype = aparam(1)
                  voutput = aparam(2)
                  vvaleur = aparam(3)
                  vlong = aparam(4)
                  .Parameters.Append .CreateParameter(vname, vtype, voutput, vlong, vvaleur)
              Next aparam
 
              ' exécute la procédure
              .Execute
 
 
 
          End With
 
Done_Execute_Procedure:
    Exit Sub
 
Err_Execute_Procedure:
    MsgBox pProcedureStockee & " exécution impossible : " & Err.Description
    Resume Done_Execute_Procedure
 
End Sub

En espèrant que cela t'aidera.