procédure stockée paramétrée

Bonjour tout le monde,
J’ai un problème un peu compliqué (au moins pour moi), je vais essayer de faire mon mieux pour vous expliquer.
Donc j’ai créé deux procédures stockées l’une pour remplir le rapport que j’ai créé par Crystal reports et l’autre pour sauvegarder quelques données affichées dans une table (odl_printed) qui a comme clé primaire un autonumber.
L’affichage et l’enregistrement se font simultanément car j’ai besoin d’afficher la dernière clé primaire de la table d’enregistrement odl_printed.
j'ai lié la première directement au rapport
la deuxième qui est une procédure paramétrée :
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 create procedure p4 as declare @p varchar(50) INSERT INTO [Cutting software].dbo.odl_printed( designation_veh, placement, fk_tissu, designation_tissu, id_kanban_tissu, placementB, placementC, placementD, datetime_impression -- <===================== ) SELECT relation_tissu_placement_veh.designation_veh, relation_tissu_placement_veh.placement, relation_tissu_placement_veh.fk_tissu, relation_tissu_placement_veh.designation_tissu, placement.id_kanban_tissu, placement.PlacementB, placement.PlacementC, placement.PlacementD, GETDATE() -- <===================== FROM relation_tissu_placement_veh INNER JOIN placement ON relation_tissu_placement_veh.placement = placement.placement where designation_veh = @p
j’ai tapé le code vb suivant pour son exécution :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 Dim pr As SqlParameter Dim r As Integer Cn.Open() Dim myCm = New SqlCommand("P4", Cn) With myCm .CommandText = "P4" .CommandType = CommandType.StoredProcedure pr = New SqlParameter pr.ParameterName = "@p" pr.SqlDbType = SqlDbType.VarChar pr.Direction = ParameterDirection.Input pr.Value = ComboBox1.Text End With r = myCm.ExecuteNonQuery() If r <> 0 Then MsgBox("rows affected") Else MsgBox("no rows affected") End If Cn.Close()
Je n’ai pas réussi à enregistrer les données et par conséquent l’affichage. Je ne sais pas où le problème car le code ne retourne aucun erreur
s'il y a d'autres explications à fournir merci de me poser des questions
Merci d'avance pour votre aide.

Bonsoir,

Je n'ai pas d'exemple sous la main, mais ton erreur est ici : c'est pour chaque paramètre que tu dois faire un New, et à chaque fois, l'ajouter à la collection des paramètres de ta commande. Si tu ne t'en sort pas, je pourrai peut-être retrouver un exemple demain.
Comme tu as un seul paramètre, ton code devrait ressembler à ceci :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Dim pr As SqlParameter
        Dim r As Integer
        Cn.Open()
        Dim myCm = New SqlCommand("P4", Cn)
        myCm.CommandText = "P4"
        myCm.CommandType = CommandType.StoredProcedure
            pr = New SqlParameter
            pr.ParameterName = "@p"
            pr.SqlDbType = SqlDbType.VarChar
            pr.Direction = ParameterDirection.Input
            pr.Value = ComboBox1.Text
       myCm.Parameters.Add(pr)
         r = myCm.ExecuteNonQuery()
        If r > 0 Then
            MsgBox("rows affected")
        ElseIf r = 0 Then
            MsgBox("no rows affected")
        Else
            MsgBox("Error")
        End If
        Cn.Close()

... :)

1 pièce(s) jointe(s)

Bonjour Phil Robe;
j'ai testé ton codde mais ça me retourne l'erreur suivant

Pièce jointe 471859

Bonjour,

Si je comprends toujours bien les messages d'erreur en anglais, le message que tu reçoit signifie : "La procédure P4 n'a pas de paramètre et des arguments sont fournis", donc erreur de donner des arguement s'il n'y a pas de paramètre.

C'est donc dasn MySql que tu dois aller vérifier ta procédure, peut-être la refaire ...

Voici l'exemple que je n'avais sous la main hier soir (j'ai dû le récupérer sur un site espagnol). Dans ce cas, la procédure stockée doit faire l'ajout d'enregistrements dans une DB nommée MiPersonas (MesPersonnes). La procédure nommée "InsertUnaPersona" reçoit par paramètre les données d'une personne : Nom, Prenom, E-Mail et Telephone.
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 37 38 39 40 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim conn As New MySqlConnection Dim Param As MySqlParameter Dim cmd As MySqlCommand conn.ConnectionString = "SERVER=127.0.0.1;UID='root';DATABASE=" & "MiPersonas" & ";Password=''" conn.Open() cmd = conn.CreateCommand() cmd.CommandType = CommandType.StoredProcedure cmd.CommandText = "InsertUnaPersona" Param = New MySqlParameter("_Nombre", MySqlDbType.VarChar) ‘ Nom Param.Direction = ParameterDirection.Input Param.Value = "Macron" cmd.Parameters.Add(Param) Param = New MySqlParameter("_Apellido", MySqlDbType.VarChar) ‘ Prénom Param.Direction = ParameterDirection.Input Param.Value = "Emanuel" cmd.Parameters.Add(Param) Param = New MySqlParameter("_Direccion", MySqlDbType.VarChar) ‘ e-mail Param.Direction = ParameterDirection.Input Param.Value = "em@elysee.fr" cmd.Parameters.Add(Param) Param = New MySqlParameter("_Telefono", MySqlDbType.VarChar) ‘ Téléphone Param.Direction = ParameterDirection.Input Param.Value = "951159" cmd.Parameters.Add(Param) MessageBox.Show(cmd.ExecuteNonQuery()) conn.Close() conn.Dispose() End Sub

Citation:

Envoyé par Phil Rob

C'est donc dasn MySql que tu dois aller vérifier ta procédure, peut-être la refaire ...

Bonjour,
en fait oui, c'est au niveau de la création de procédure le blocage (il ne mérite pas meme le signaler en tant que blocage :(:(:(:( :pleure::pleure:)
donc il faut juste declarer le parametre avant

Code:

as

comme ça
Code:

1 2 3 4 5 LTER PROCEDURE [dbo].[P2] @p varchar(50) as INSERT INTO [Cutting software].dbo.odl_printed( designation_veh,
merci beaucoup Phil