appel d'une procédure stocké a 2 paramétre

Version imprimable

bonjour

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

Code:

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:

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:

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

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

Code:

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)

essayer ce syntaxe

Code:

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

tout d abord merci de vos réponse

@ ridimax

j'ai utiliser ca :

Code:

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 :cry:

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

cordialement

alex

18/06/2010, 17h03
ridamax

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

Code:

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

et ne pas oublié les cotes ;)

Code:

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

21/06/2010, 09h17
alex61

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

merci encore :D

cordialement

alex
21/06/2010, 09h31
cinemania
juste une question comme ca... pourquoi passer par un curseur ?
on t'a jamais appris que c'était pas bien d'utiliser les curseurs ?

ah et petit détail quand on utilise SqlCommand pour lui dire qu'on veut une procédure stockée en lieu et place d'une commande simple
ce n'est pas
Code:

1 2 command.CommandType.StoredProcedure();
mais
Code:

1 2 command.CommandType = CommandType.StoredProcedure
Cette méthode avec les SqlParameters à l'intérêt même si elle nécessite un peu plus de code d'être nettement plus souple et paramétrable que l'autre...
Va donc essayer la commande "exec storedproc1 bla1, bla2"
si ce que tu dois mettre dans bla2 est un type complexe genre type CLR...
21/06/2010, 09h41
alex61

Citation:

juste une question comme ca... pourquoi passer par un curseur ?
on t'a jamais appris que c'était pas bien d'utiliser les curseurs ?

si mais la je suis en stage ,il me reste plus qu'une semaine
j'ai pas finit le projet et il j'ai pas encore taper une seul ligne de mon rapport de stage

donc j'utilise des curseur :aie:

en plus mon application ne va être utiliser que sur 3 poste max
et ce curseur va être exécuter a peu pré 1 fois par 1/4d'heure
donc les curseur répondre a mon besoin dans ce cas

et ce que j'ai fait marche tés bien dans mon cas
peut être est elle trop spécifique
mais elle fonctionne
et pour moi c'est suffisant

cordialement

alex