bonjour

j'aimerais appelé la procédure stocké suivante

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
ALTER PROCEDURE dbo.StoredProcedure1 
 
	@idpalonnier varchar(100),
	@datetime datetime 
 
AS
 
	/* SET NOCOUNT ON */ 
	DECLARE @numof varchar(50)
 
	DECLARE C_ech CURSOR
	FOR
	SELECT Numof 
	FROM ligne_chargement 
	WHERE id_palonnier = @idpalonnier 
 
OPEN C_ech
FETCH C_ech into @numof
 
	WHILE @@FETCH_STATUS = 0
BEGIN
   UPDATE ordre_de_fabrication  
   SET  date_lancement_OF = @datetime , quantite_of =( SELECT  SUM(quantiteOF) AS Expr1 
															FROM ligne_chargement WHERE Numof= @numof )  
    WHERE id_ordre_de_fabrication = @numof
    FETCH C_ech into @numof
END
 
	RETURN
je bloque sur les 2 paramètre

j'ai essayé ca ( qui bloque quand je veut ajouter le 2éme paramétre )

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
 Private Sub MAJ_OF(ByVal idpalonnier)
 
        'met a jour la table ordre_de_fabrication
 
 
        Dim storedProcedure As String = "dbo.StoredProcedure1"
        Dim connectionstring As String = ("Data Source=.\SQLEXPRESS;AttachDbFilename=C:\Documents and Settings\admin\Bureau\galva\App_Data\gava.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True")
        Dim cmd As Data.SqlClient.SqlCommand
 
 
 
        Using connection As New Data.SqlClient.SqlConnection()
 
            connection.ConnectionString = connectionString
 
            connection.Open() ' ouverture base de donné
 
            'cmd = New Data.SqlClient.SqlCommand(storedProcedure, connection)
            'Dim pr As Data.SqlClient.SqlParameter
            'cmd.Parameters.Add("@idpalonnier", Data.SqlDbType.VarChar, 100)
            ' pr.Value = idpalonnier
 
 
            Dim pr As Data.SqlClient.SqlParameter = cmd.Parameters.Add("@idpalonnier", Data.SqlDbType.VarChar, 100)
            pr.Value = idpalonnier
            ' Dim pr As Data.SqlClient.SqlParameter = cmd.Parameters.Add("@datetime", Data.SqlDbType.DateTime)
            ' pr.Value = Date.Now
            'cmd.CommandType = cmd.CommandType.StoredProcedure
 
            cmd.ExecuteScalar()
 
            connection.Close()
 
        End Using
 
    End Sub
et ca ( qui bloque tout cour )

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
 Private Sub MAJ_OF2(ByVal idpalonnier)
        Dim Maconnexion As Data.SqlClient.SqlConnection = New Data.SqlClient.SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=C:\Documents and Settings\admin\Bureau\galva\App_Data\gava.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True")
        Dim MaCommande As New Data.SqlClient.SqlCommand()
        MaCommande = New Data.SqlClient.SqlCommand("StoredProcedure1", Maconnexion)
        MaCommande.CommandType.StoredProcedure()
 
        ' Déclaration pour mon premier paramètre de ma Proc stock en varchar
        Dim Paramvarchar As Data.SqlClient.SqlParameter = MaCommande.Parameters.Add("@idpalonnier", SqlDbType.varchar, 50)
        Paramvarchar.Value = idpalonnier
 
 
        ' Déclaration pour mon second paramètre de ma Proc stock en DateTime
        Dim ParamDateTime As Data.SqlClient.SqlParameter = MaCommande.Parameters.Add("@datetime", SqlDbType.DateTime)
        ParamDateTime.Value = Date.Now
 
        Try
            Maconnexion.Open()
            MaCommande.ExecuteNonQuery()
        Finally
            If Not (Maconnexion Is Nothing) Then Maconnexion.Close()
        End Try
    End Sub
merci de votre aide

cordialement

alex