Discussion :

[gothard]

Bonjour,

Voici mon Code VBS :

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
with cmd
 
                .CommandText = "{call update_data(?,?)}"
                ' specify parameter info 1 by 1 in the order of the question marks
                ' specified when we defined the stored procedure
 
                '//Définition paramètre 1
                .Parameters.Append .CreateParameter("Param1", adVarChar, _adParamInput)
                .Parameters("Param1") = getdate()
 
                 '//Définitionparamètre 1
                .Parameters.Append .CreateParameter("Param2", adVarChar, _adParamInput)
                .Parameters("Param2") = pCode
 
                .Execute
	End With

Voci ma code SQL pour la procédure Stockée :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
/*Procédure Stockée update_data */
 
USE MA_BASE
IF EXISTS (SELECT name FROM sysobjects WHERE name = 'update_data') /*Est ce que la procédure exitse ?*/
PRINT 'Procédure "update_data" mise à jour dans la base SECV1_DEV01'
DROP PROCEDURE update_data /* on supprime la procédure*/
 
GO
 
CREATE PROCEDURE update_data( @date datetime, @code varchar) /*on crée la procédure stockée*/
AS
		INSERT INTO pwd(Date_pwd,Label_pwd,id_type) VALUES ( @date, @code, NULL ) /*Action realise par la procédure stockée*/

Lorsque j'execute mon code, j'ai l'erreur suivante : Caractère Incorrect pour la ligne VBS : "Parameters.Append .CreateParameter("Param1", adVarChar, _adParamInput)"


Quelqu'un pourait-il m'aider ? Merci d'avance

[gothard]

Apres une modification du code ("Set cmd = CreateObject("ADODB.Command") ") j'ai pu résoudre cette petite erreur
maintenant j'ai une autre erreur plus Problématique qui est : Les arguments sont de type incorrect, en dehors des limites autorisées ou conflit les uns avec les autres.

Si quelqu'un à une idée SVP


Merci,

Voici mon code :

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
with cmd
               .CommandText = "{call update_data(?,?)}"
                ' specify parameter info 1 by 1 in the order of the question marks
                ' specified when we defined the stored procedure
 
                '//Définition paramètre 1
                .Parameters.Append .CreateParameter("Param1" , adVarChar , adParamInput)
                .Parameters("Param1") = getdate()
 
                 '//Définitionparamètre 1
                .Parameters.Append .CreateParameter("Param2" , adVarChar , adParamInput)
                .Parameters("Param2") = pCode
 
                .Execute
	End With

Pour le SQL

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
/*Procédure Stockée update_data */
 
USE SECV1_DEV01
IF EXISTS (SELECT name FROM sysobjects WHERE name = 'update_data') /*Est ce que la procédure exitse ?*/
PRINT 'Procédure "update_data" mise à jour dans la base SECV1_DEV01'
DROP PROCEDURE update_data /* on supprime la procédure*/
 
GO
 
CREATE PROCEDURE update_data( @date datetime, @code varchar) /*on crée la procédure stockée*/
AS
		INSERT INTO pwd(Date_pwd,Label_pwd,id_type) VALUES ( @date, @code, NULL ) /*Action realise par la procédure stockée*/

pour config de la table :

Code :

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

1
2
3
4
5
6
7
CREATE TABLE [XXXX.[Pwd] (
[ID_pwd] [int] IDENTITY (1, 1) NOT NULL ,
[Date_pwd] [datetime] NULL ,
[Label_pwd] [varchar] (255) NULL ,
[id_type] [int] NULL
) ON [PRIMARY]
GO

[gothard]

J'ai pensé a faire un :

Code :

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

pobjConn.Execute = "EXECUTE update_data( ....)

mais je ne sais pas si ca peut marcher!

[gothard]

Voilà, j'ai résolu moi meme mon problème .

En une ligne :

Code :

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

 pobjConn.Execute = "EXECUTE update_data '"& getdate & "','"& pCode &"',NULL"