VBA: Appel de procédure stockée SQL Server avec deux arguments

Comme indiqué dans le titre, je veux juste appeler une procédure stockée SQL Server à partir de VBA.

Je peux appeler ma procédure stockée comme ceci:

  EXEC  dbo.spClientXLS @Nr =  ' 131783', @date = '21.09.2014'

Nr est un varChar(50) type de valeur, et date est de type date

Maintenant, si je veux l'appeler à partir de VBA, je reçois un message d'erreur. Mon code en VBA est:

...'SQL Server stored procedure which is to execute with parameters
Dim ADODBCmd As New ADODB.Command
With ADODBCmd
    .ActiveConnection = objconn
    .CommandTimeout = 500
    .CommandText = "dbo.spClient"
    .CommandType = adCmdStoredProc
End With
Set recordset = ADODBCmd.Execute(, date, Nr)

Date est de type Date, Nr est de type String.

Je serais heureux, si quelqu'un peut m'expliquer, comment je peux le manipuler avec deux arguments.

Ce qui concerne

InformationsquelleAutor Kipcak08 | 2014-10-07
  1. 5

    De l'essayer.

    Dim cmd As New ADODB.Command
Dim rs As ADODB.Recordset

With cmd
    .ActiveConnection = objcnn
    .CommandText = "spClient"
    .CommandType = adCmdStoredProc
    .Parameters.Refresh
    If .Parameters.Count = 0 Then
        .Parameters.Append cmd.CreateParameter("@Nr", adVarChar, adParamInput, 50)
        .Parameters.Append cmd.CreateParameter("@date", adDate, adParamInput)
    End If
    .Parameters.Item("@Nr").Value = "131783"
    .Parameters.Item("@date").Value = "09/21/2014"
    Set rs = .Execute()

End With
    • Il ne fonctionne pas. Je reçois le Message d'Erreur que le type n'est pas compatibel.
    InformationsquelleAutor bodjo
  2. 0

    Vous devez ajouter les paramètres de commande dans votre code pour accepter les valeurs de paramètre. Vérifiez le code ci-dessous:

        Set oConn = New ADODB.Connection
    Set rs = New ADODB.Recordset
    Set cmd = New ADODB.Command

    oConn.Open strConn  '' strConn will have your connection string

    stProcName = "thenameofmystoredprocedurehere" 'Define name of Stored Procedure to execute.

    cmd.CommandType = adCmdStoredProc 'Define the ADODB command
    cmd.ActiveConnection = oConn 'Set the command connection string
    cmd.CommandText = stProcName 'Define Stored Procedure to run

    Set prmUser = cmd.CreateParameter("@user", adVarChar, adParamInput, 7)
    prmUser.Value = strUser
    cmd.Parameters.Append prmUser

    Set prmApplication = cmd.CreateParameter("@application", adInteger, adParamInput)
    prmApplication.Value = 1
    cmd.Parameters.Append prmApplication

    Set rs = cmd.Execute

    Range("A1").CopyFromRecordset rs '' to copy data in recordset to excel.

'' or you can do like this

   Set rs = cmd.Execute
    Do Until rs.EOF
       '' Do Something
    rs.MoveNext
    Loop
    InformationsquelleAutor Paresh J