Discussion :

[Bulbulle]

Bonjour,

Je dois créer un classeur Excel qui automatisera une tâche.

Pour le moment j'ai réussi à coder ceci, en prenant ici où là des infos.

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
Dim ODBC_Cmd As ADODB.Command
    Dim ODBC_Cnx As ADODB.Connection
    ' Ouvrir la connexion  la base
    On Error GoTo NotOpen
    Set ODBC_Cnx = New ADODB.Connection
    Set ODBC_Cmd = New ADODB.Command
    Dim Prm1 As ADODB.Parameter, Prm2 As ADODB.Parameter
 
    'Dfinition de la chane de connexion
    ODBC_Cnx.ConnectionString = "DSN=Base;UID=sa;PWD=Pass;"
 
    'Ouverture de la base de donnes
    ODBC_Cnx.Open
 
    If ODBC_Cnx.State = adStateOpen Then
        MsgBox "connexion russie"
        ' Prparer l'objet Commande
        On Error GoTo ErrCmd
 
            ODBC_Cmd.ActiveConnection = ODBC_Cnx
            ODBC_Cmd.CommandType = adCmdStoredProc
            ODBC_Cmd.CommandText = "sp_Recod_Article"
 
            Set Prm1 = ODBC_Cmd.CreateParameter("@AncCodeArticle", adChar, adParamInput, 50)
            Set Prm2 = ODBC_Cmd.CreateParameter("@NouvCodeArticle", adChar, adParamInput, 50)
 
            ODBC_Cmd.Parameters.Append Prm1
            Prm1.Value = "02ETI3947"
            ODBC_Cmd.Parameters.Append Prm2
            Prm2.Value = "ZZ02ETI3947"
 
            ' Excuter la commande
            ODBC_Cmd.Execute 
    End If
    GoTo EndSub
 
NotOpen:
    MsgBox "Connexion  la base errone", ODBC_Cnx.ConnectionString
    GoTo EndSub
 
ErrCmd:
    MsgBox "Commande non exécutée"
 
 
EndSub:
    ODBC_Cnx.Close
    Set ODBC_Cmd = Nothing
    Set ODBC_Cnx = Nothing

Pour le moment, l'ancien et le nouveau code est fixe mais plus tard, il faudra que je parcours une feuille Excel.

Mon but est de faire appel à une procédure stockée appelée "sp_Recod_Article" en sachant que cette procèdure accepte deux entrées, l'ancien et le nouveau code.

Le souci c'est qu'il m'affiche le message d'erreur "commande non exécuté" et je ne comprends pas d'où peut provenir l'erreur.

Merci de votre aide

[casavba]

Mon but est de faire appel à une procédure stockée appelée "sp_Recod_Article" ...

Le souci c'est qu'il m'affiche le message d'erreur "commande non exécuté" et je ne comprends pas d'où peut provenir l'erreur.

A première vue et sans tester, l'erreur provient de cette ligne :

Code :

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

ODBC_Cmd.CommandText = "sp_Recod_Article"

Le code que tu nous a fourni est il complet, si oui, ---> j'en conclue que c'est normal que t'as un message d'erreur.
Il est où le Code de la procédure stockée "sp_Recod_Article" ?
exemple :

Code :

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

CREATE PROCEDURE [sp_Recod_Article] AS

Maintenant, si le code que tu nous a fourni est incomplet, je te demanderais de le compléter afin de t'apporter une meilleure réponse.

[AnneCa]

Essaye un peu de donner une valeur à ton paramètre et d'ensuite faire le "append", comme ci-dessous

Code :

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

1
2
3
4
5
Set Prm1 = ODBC_Cmd.CreateParameter("@AncCodeArticle", adChar, adParamInput, 50,"02ETI3947")
ODBC_Cmd.Parameters.Append Prm1
 
Set Prm2 = ODBC_Cmd.CreateParameter("@NouvCodeArticle", adChar, adParamInput, 50,"ZZ02ETI3947")       
ODBC_Cmd.Parameters.Append Prm2

Autre chose, si tu mets les Goto en commentaire, tu verras sur quelle ligne exactement ça coince..

[Bulbulle]

Bonjour,
Déjà merci de t'être penché sur mon problème.

Il me semble que mon code est complet.

Pour expliquer, j'ai une procédure stockée (sp_recod_article) présente dans mon SQL server et en faisant la DSN, je pensais que je pouvais utiliser cette connexion pour faire appel à cette procédure. C'est possible ??

Mon but final est d'avoir une feuille Excel avec une colonne pour l'ancien code et une autre colonne pour le nouveau code. J'aimerais parcourir ces lignes et exécuter la procédure. Jusqu'à présent, cette recodification se faisait avec une interface qui est bien pour une ou quelques recodifications mais quand il y a une liste de plus d'une vingtaine de code, c'est long et parfois source d'erreur.

En espérant, être claire dans mon explication...

Merci d'avance

[AnneCa]

Pourrais-tu nous donner le code de la procédiure sp_recod_article? Je suis intéressée de voir le type des paramètres input et output...

[Bulbulle]

@AnneCa :

J'ai essayé d'affecter une valeur et de faire ensuite "append" mais toujours pareil.

Avec la modification :

Code :

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

1
2
3
4
5
6
Set Prm1 = ODBC_Cmd.CreateParameter("@AncCodeArticle", adChar, adParamInput, 50, "02ETI3947")
            ODBC_Cmd.Parameters.Append Prm1
            Set Prm2 = ODBC_Cmd.CreateParameter("@NouvCodeArticle", adChar, adParamInput, 50, "ZZ02ETI3947")
            ODBC_Cmd.Parameters.Append Prm2
            Set Prm3 = ODBC_Cmd.CreateParameter("@res", adInteger, adParamOutput)
            Set prm4 = ODBC_Cmd.CreateParameter("@msg", adVarChar, adParamOutput, 1000)

J'ai alors mis en commentaire les goto et maintenant j'ai une erreur :
"erreur d'exécution '-2147217900 (80040e14)': erreur d'automation" !
Et en faisant un débogage au pas à pas, il 'bloque' sur le ODBC_Cmd.Execute

Sinon, je peux mettre le debut de la procédure stockée, elle fait plus de 50 pages dans Word et ce n'est pas moi qui l'est écrite. La procédure parcourt les tables qui ont un rapport avec l'article.

Code :

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

1
2
3
4
5
6
7
CREATE proc dbo.sp_Recod_Article @AncCodeArticle char(50), @NouvCodeArticle char(50), @res int OUTPUT, @msg varchar(1000) OUTPUT AS
 
--	Cette procdure permet la recodification du code article 
--	Entre : 	@AncCodeArticle :	 Ancien code article 
--			@NouvCodeArticle : 	Nouveau code article remplacant l'ancient
--	Sortie :	@res	: Code resultat des instructions, si >0 alors erreur
--		@msg	: Contient un message s'il y a eu une erreur

Merci

[AnneCa]

Une erreur sur quelle ligne de code?
Est-ce que ta procédure tourne dans SQl server? Je veux dire, as-tu déjà essayer d'exécuter sp_Recod_Article manuellement

Code :

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

1
2
3
4
5
6
7
DECLARE @PARM_RES AS int
DECLARE @PARM_MSg AS varchar(100)
 
EXEC sp_Recod_Article "02ETI3947","ZZ02ETI3947", @PARM_RES, @PARM_MSg
 
SELECT @PARM_RES
SELECT  @PARM_MSg

[Bulbulle]

Bon, j'avance sur mon problème.

J'ai exécuté la procédure manuellement, et là, c'est à ce que j'en perde mes cheveux.
Dans le journal, il est mis qu'une ligne est affectée. Jusqu'à là, normal.
Du coup, je fais une requête pour vérifier que la procédure a bien fonctionnée et là mauvaise surprise : c'est l'ancien code qui est affecté à l'article.


Pour être sure que c'est bien cette procédure qui est lancée, je fais une trace avec SQL server qui confirme le bon appel de procédure.

Code :

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

1
2
3
4
5
6
declare @P1 int
set @P1=0
declare @P2 varchar(255)
set @P2=''
exec dbo.sp_recod_article  @AncCodeArticle = '00ACE0002', @NouvCodeArticle = 'ZZ00ACE0002', @res = @P1 output, @msg = @P2 output
select @P1, @P2

Complétement perdue...

Je continue à chercher et là, je constate que cette procédure dépend d'une autre procédure...

[Bulbulle]

Après plusieurs tentatives et recherches, je dois mettre ce sujet en délestage.

Ma procédure stockée fait appel à une autre procédure stockée pour obtenir les droits de modification. Et quand j'étudie cette procédure stockée, je me rends compte qu'elle fait appel à encore une autre procédure stockée pour gérer un autre paramètre...

Sujet clos !