Discussion :

[alex61]

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

[calagan99]

Il faut que tu crées deux SQLParameter, avec deux noms différents :

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
 
        Dim pr1 As New SqlParameter()
        pr1.ParameterName = "@idpalonnier"
        pr1.SqlDbType = SqlDbType.VarChar
        pr1.Direction = ParameterDirection.Input
        pr1.Value = Ta valeur pour idpalonnier
 
        cmd.Parameters.Add(pr1)
 
        Dim pr2 As New SqlParameter()
        pr2.ParameterName = "@datetime"
        pr2.SqlDbType = SqlDbType.DateTime
        pr2.Direction = ParameterDirection.Input
        pr2.Value = Ta valeur pour datetime
 
        cmd.Parameters.Add(pr2)

[ridamax]

essayer ce syntaxe

Code :

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

1
2
3
4
Dim comm As New SqlClient.SqlCommand("exec proc nomproc param1, parm2")
        con.Open()
        comm.ExecuteScalar()
        con.Close()

[alex61]

tout d abord merci de vos réponse

@ ridimax

j'ai utiliser ca :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
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
            Dim comm As New Data.SqlClient.SqlCommand("exec proc StoredProcedure1 " & idpalonnier & "," & Date.Now & ")")
            connection.Open()
            comm.ExecuteScalar()
            connection.Close()
End Using
 
    End Sub

camemetla connection n'a pas été initialiser


@calagan99 j'essaye ta solution et je te redit ca

cordialement

alex

[ridamax]

il faut initialiser la connection en ajoute connection à la fin du requete

Code :

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

Dim comm As New Data.SqlClient.SqlCommand("exec proc StoredProcedure1 " & idpalonnier & "," & Date.Now & ")",connection)

[Hinault Romaric]

et ne pas oublié les cotes

Code :

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

1
2
 
Dim comm As New Data.SqlClient.SqlCommand("exec proc StoredProcedure1 '" & idpalonnier & "','" & Date.Now & "')")

[alex61]

merci les gars ca marche impeccable
ca faisait plus d'une semaine que je me prenez la tête pour faire les mise a jour de mes table

merci encore

cordialement

alex