Discussion :

[hoaxpunk]

Bonjour,

Voila mon problème:

j'ai une procédure stockée dans SQLserver qui fonctionne en l'executant directement depuis SQLServer.
Mais je voudrais pouvoir la lancer depuis VB.
Voici le code que j'utilise dans VB :

Code :

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

1
2
3
4
 
Dim RS_RECORDSET As ADODB.Recordset
Set RS_RECORDSET = New ADODB.Recordset
RS_RECORDSET.Open "recupMax", CurrentProject.Connection, adOpenStatic, adLockReadOnly, adCmdStoredProc

recupMax etant le nom de ma procedure.

Seulement lorsque j'arrive sur la ligne Open du recordset, j'ai une erreur :


ma procedure "recupMax" existe bien dans SQLServer (Dans les stored procedures de ma base)

donc aurais-je oublier une etape ?

merci pour vos reponses

[emartin4485]

pour exécuter une procédure qui ne retourne pas d'informations :
Si tu n'as aucun paramètre

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
 
     Dim Cmd As New ADODB.Command
 
     With Cmd
              .ActiveConnection = gConnection
              .CommandText = 'nom_procedure'
              .CommandType = adCmdStoredProc
 
              .Execute
    End With

Et si tu as des paramètres et plein de procedure stockée a appeler dans ton code, tu peux te faire une procédure qui prend un tableau de paramètres:

Utilisation :

Code :

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

1
2
3
4
5
 
 
            pparam = Array(Array("ID", adInteger, adParamInput, t, 12), Array("CODEM", adVarChar, adParamInput, b, 1))
 
            Call MDL_Exec.Execute_Procedure("ps_NomProcedure", pparam, False)

Procédure de lancement :

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
 
Public Sub Execute_Procedure(pProcedureStockee As String, pparam As Variant )
     Dim Cmd As New ADODB.Command
 
 
     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
              ' execution de la procédure.
              .Execute
    End With
 
End sub

A+

[hoaxpunk]

merci pour l'info, mais ma procedure me renvoi un Id, comment ca ce passe si elle renvoi des infos ?

[hoaxpunk]

Bon j'ai resolu le pb.

j'ai créer une pass through query, que j'appel depuis le code.