2010-02-23 16 views
0

J'essaie actuellement d'exécuter une certaine procédure (sql 2005) dans VB6, en passant certains paramètres:connexion ADODB pour exécuter SQL Server Procédure

Dim conn As Connection 
Set conn = New Connection 
conn.Open "Provider=whateverprovider;Data Source=whateversource;Database=whateverdatabase;User Id=whateverID;Password=whatever" 
Dim CMD As ADODB.Command 
Dim rs As ADODB.Recordset 
Set CMD = New ADODB.Command 
Set CMD.ActiveConnection = conn 
CMD.CommandType = adCmdStoredProc 
CMD.Parameters.Append CMD.CreateParameter("@EmpresaCNPJ", adVarChar, adParamInput, 14, "64687015000152") 
CMD.Parameters.Append CMD.CreateParameter("@EntradaSaida", adChar, adParamInput, 1, "S") 
CMD.Parameters.Append CMD.CreateParameter("@Participante", adVarChar, adParamInput, 60, "0000000020") 
CMD.Parameters.Append CMD.CreateParameter("@nroNotaFiscal", adInteger, adParamInput) 
CMD.Parameters("@nroNotaFiscal").Value = 2289 
CMD.Parameters.Append CMD.CreateParameter("@serieNotaFiscal", adSmallInt, adParamInput) 
CMD.Parameters("@serieNotaFiscal").Value = 1 
Set rs = CMD.Execute 

Dans la dernière ligne que je reçois le message d'erreur suivant:

alt text http://dl.dropbox.com/u/3045472/ERRO.png

qui en anglais, il se lit comme suit: "erreur de syntaxe ou violation d'accès"

Ce message est REA LLY générique, et je n'ai pas la moindre idée de l'endroit où le problème pourrait être.

Qu'est-ce que j'ai fait de mal?

est ici le paramètre recevoir une partie du code SQL dans la procédure:

@EmpresaCNPJ varchar(14), 
    @EntradaSaida char(1)=null, 
    @Participante varchar(60)=null, 
    @nroNotaFiscal int=null, 
    @serieNotaFiscal smallint=null, 
    @EtapaInicial tinyint=null, 
    @LineComplement varchar(255)=null 

On m'a dit que chaque paramètre doit être transmis, et que cela devrait fonctionner avec seulement cinq (sur sept).

Répondre

1

Où définissez-vous le nom de la procédure stockée?
cmd.CommandName = ....

EDIT: Réglez le CommandName au nom de la procédure stockée, avant de commencer à appeler Parameters.Append