probleme d'insertion dans une base de donnée

**safailizabet** · 20/03/2012, 11h38

bonjour tout le monde,
j'ai un petit problème d'insertion dans une base de donnée j'ai fais un contrainte entre le type de donnée dans la base et ce qui est écrit par utilisateur dans des textbox
voila ce que je fais

Code :

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

"insert into ARTICLECASA values('" & TextBox1.Text & "', '" & TextBox2.Text & "' , '" & TextBox3.Text & "' , " & TextBox4.Text & ", " & TextBox5.Text & " , " & TextBox6.Text & " , '" & TextBox7.Text & "' ," & TextBox8.Text & ")'"

textbox1 un varchar(11)
textbox2 un varchar(11)
textbox3 un varchar(11)
textbox4 un smallint
textbox5 un smallint
textbox6 un smallint
textbox7 un varchar
textbox8 une smalldatetime

merci de m'aider

**StringBuilder** · 20/03/2012, 11h47

Utilise des requêtes paramétrées

**safailizabet** · 20/03/2012, 12h52

Envoyé par StringBuilder

Utilise des requêtes paramétrées

j'ai esseyer avec cela ms ça me donne toujours un probleme

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
Dim ref As SqlParameter
                    ref = New SqlParameter("@AR_Ref", SqlDbType.VarChar)
                    ref.Value = TextBox1.Text
 
                    Dim design As SqlParameter
                    design = New SqlParameter("@AR_Design", SqlDbType.VarChar)
                    design.Value = TextBox2.Text
                    Dim codefam As SqlParameter
                    codefam = New SqlParameter("@FA_CodeFamille", SqlDbType.VarChar)
                    codefam.Value = TextBox3.Text
                    Dim uniteven As SqlParameter
                    uniteven = New SqlParameter("@AR_UniteVen", SqlDbType.SmallInt)
                    uniteven.Value = TextBox4.Text
                    Dim stok As SqlParameter
                    stok = New SqlParameter("@AR_SuitStok", SqlDbType.SmallInt)
                    stok.Value = TextBox5.Text
                    Dim horstat As SqlParameter
                    horstat = New SqlParameter("@AR_HorStat", SqlDbType.SmallInt)
                    horstat.Value = TextBox6.Text
 
                    Dim frs As SqlParameter
                    frs = New SqlParameter("@FORNISSEUR", SqlDbType.VarChar)
                    frs.Value = TextBox7.Text
 
                    Dim date1 As SqlParameter
                    date1 = New SqlParameter("@Creation", SqlDbType.SmallDateTime)
                    date1.Value = TextBox8.Text
 
                    cmd = ccasa.CreateCommand()
                    cmd.CommandText =("insert into ARTICLECASA(AR_Ref,AR_Design,FA_CodeFamille,AR_UniteVen,AR_SuitStok,AR_HorStat,FORNISSEUR,Creation) values( {0},{1},{2},{3},{4},{5},{6},{7})" ;(ref.ParameterName ,design.ParameterName ,codefam.ParameterName,uniteven.ParameterName,stok.ParameterName,horstat.ParameterName ,frs.ParameterName,date1.ParameterName))
                    cmd.ExecuteNonQuery()

**Sankasssss** · 20/03/2012, 13h07

Bonjour,

Et quel est le problème? (code erreur?)

P.S. : Pensez à mettre les balises CODE svp

[EDIT]
Veuillez revoir l'utilisation des requêtes paramétrée, ce n'est pas du tout comme ça qu'on doit les utiliser...
[/EDIT]

**safailizabet** · 20/03/2012, 13h39

Envoyé par Sankasssss

Bonjour,

Et quel est le problème? (code erreur?)

P.S. : Pensez à mettre les balises CODE svp

[EDIT]
Veuillez revoir l'utilisation des requêtes paramétrée, ce n'est pas du tout comme ça qu'on doit les utiliser...
[/EDIT]

c ça ce que j'ai trouvé sur internet si vous pouvez me donné un tutoriel étape par étape contient comment les utiliser
merci d'avance

**StringBuilder** · 20/03/2012, 13h55

1/ Quel est le SGBD ?

2/ Il faut faire cmd.Parameters.Add() de chacun des paramètres

3/ La requête doit être de la forme suivante :

Code sql :

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

1
2
 
insert into matable (champ1, champ2) values (@pchamp1, @pchamp2)

=> Pour des paramètres pchamp1 et pchamp2 si tu utilises SQL Server

Code sql :

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

1
2
 
insert into matable (champ1, champ2) values (:pchamp1, :pchamp2)

=> Pour des paramètres pchamp1 et pchamp2 si tu utilises Oracle

Et si c'est un autre SGBD, il faut adapter.

**safailizabet** · 20/03/2012, 14h05

Envoyé par StringBuilder

1/ Quel est le SGBD ?

2/ Il faut faire cmd.Parameters.Add() de chacun des paramètres

3/ La requête doit être de la forme suivante :

Code sql :

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

1
2
 
insert into matable (champ1, champ2) values (@pchamp1, @pchamp2)

=> Pour des paramètres pchamp1 et pchamp2 si tu utilises SQL Server

Code sql :

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

1
2
 
insert into matable (champ1, champ2) values (:pchamp1, :pchamp2)

=> Pour des paramètres pchamp1 et pchamp2 si tu utilises Oracle

Et si c'est un autre SGBD, il faut adapter.

j'utilise sql server
1-donc a la place de @ je met :
2-cmd.Parameters.Add() c'est avant la requet ou apres la requet ?????
merci

**calagan99** · 20/03/2012, 14h30

Merci de jeter un coup d'oeil au lien qui vous a été donné plus haut.
Tout y est décris précisément et simplement.

Pour SQL Server, il faut utiliser le "@".

**Kropernic** · 20/03/2012, 14h38

Si on utilise SQL SERVER, je trouve personnellement que le mieux est encore d'utiliser les procédures stockées.

C'est tellement plus propre de ne pas avoir de code sql dans le code .net.

Mais bon, cela n'est que mon avis...

**safailizabet** · 20/03/2012, 17h12

Envoyé par calagan99

Merci de jeter un coup d'oeil au lien qui vous a été donné plus haut.
Tout y est décris précisément et simplement.

Pour SQL Server, il faut utiliser le "@".

je suivais tous les étapes du lien ms toujours me donne une erreur voila ce que j'ai fais:

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
With cmd.Parameters
                    .Add(New SqlParameter("@AR_Ref", SqlDbType.VarChar, 19))
                    .Add(New SqlParameter("@AR_Design", SqlDbType.VarChar, 69))
                    .Add(New SqlParameter("@FA_CodeFamille", SqlDbType.VarChar, 11))
                    .Add(New SqlParameter("@AR_UniteVen", SqlDbType.SmallInt, 10))
                    .Add(New SqlParameter("@AR_SuitStok", SqlDbType.SmallInt, 8))
                    .Add(New SqlParameter("@AR_HorStat", SqlDbType.SmallInt, 25))
                    .Add(New SqlParameter("@FORNISSEUR", SqlDbType.VarChar, 15))
                    .Add(New SqlParameter("@Creation", SqlDbType.SmallDateTime, 9))
 
 
                End With
                With cmd
                    .Parameters("@AR_Ref").Value = TextBox1.Text
                    .Parameters("@AR_Design").Value = TextBox2.Text
                    .Parameters("@FA_CodeFamille").Value = TextBox3.Text
                    .Parameters("@AR_UniteVen").Value = CInt(TextBox4.Text)
                    .Parameters("@AR_SuitStok").Value = CInt(TextBox5.Text)
                    .Parameters("@AR_HorStat").Value = CInt(TextBox6.Text)
                    .Parameters("@FORNISSEUR").Value = TextBox7.Text
                    .Parameters("@Creation").Value = TextBox8.Text
 
                End With
 
                cmd = ccasa.CreateCommand()
                cmd.CommandText = "insert into ARTICLECASA(AR_Ref,AR_Design,FA_CodeFamille,AR_UniteVen,AR_SuitStok,AR_HorStat,FORNISSEUR,Creation) values(@AR_Ref,@AR_Design,@FA_CodeFamille,@AR_UniteVen,@AR_SuitStok,@AR_HorStat,@FORNISSEUR,@Creation)"
                cmd.ExecuteNonQuery()

erreur :

variable scalaire "@AR_Ref" doit être déclarée.

merci de m' aider

**Sankasssss** · 20/03/2012, 21h13

Il faut créer la commande avant de remplir les paramètres, aussi non les paramètres n'existeront pas dans la nouvelle commande :

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
 
            ' On crée un nouvel objet commande
            cmd = ccasa.CreateCommand()
            ' Création des paramètres sur la commande
            With cmd.Parameters
                    .Add(New SqlParameter("@AR_Ref", SqlDbType.VarChar, 19))
                    .Add(New SqlParameter("@AR_Design", SqlDbType.VarChar, 69))
                    .Add(New SqlParameter("@FA_CodeFamille", SqlDbType.VarChar, 11))
                    .Add(New SqlParameter("@AR_UniteVen", SqlDbType.SmallInt, 10))
                    .Add(New SqlParameter("@AR_SuitStok", SqlDbType.SmallInt, 8))
                    .Add(New SqlParameter("@AR_HorStat", SqlDbType.SmallInt, 25))
                    .Add(New SqlParameter("@FORNISSEUR", SqlDbType.VarChar, 15))
                    .Add(New SqlParameter("@Creation", SqlDbType.SmallDateTime, 9))
                End With
                ' Remplissage des valeurs de paramètre
                With cmd
                    .Parameters("@AR_Ref").Value = TextBox1.Text
                    .Parameters("@AR_Design").Value = TextBox2.Text
                    .Parameters("@FA_CodeFamille").Value = TextBox3.Text
                    .Parameters("@AR_UniteVen").Value = CInt(TextBox4.Text)
                    .Parameters("@AR_SuitStok").Value = CInt(TextBox5.Text)
                    .Parameters("@AR_HorStat").Value = CInt(TextBox6.Text)
                    .Parameters("@FORNISSEUR").Value = TextBox7.Text
                    .Parameters("@Creation").Value = TextBox8.Text
 
                End With
 
                cmd.CommandText = "insert into ARTICLECASA(AR_Ref,AR_Design,FA_CodeFamille,AR_UniteVen,AR_SuitStok,AR_HorStat,FORNISSEUR,Creation) values(@AR_Ref,@AR_Design,@FA_CodeFamille,@AR_UniteVen,@AR_SuitStok,@AR_HorStat,@FORNISSEUR,@Creation)"
                cmd.ExecuteNonQuery()

**safailizabet** · 21/03/2012, 09h45

Envoyé par Sankasssss

Il faut créer la commande avant de remplir les paramètres, aussi non les paramètres n'existeront pas dans la nouvelle commande :

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
 
            ' On crée un nouvel objet commande
            cmd = ccasa.CreateCommand()
            ' Création des paramètres sur la commande
            With cmd.Parameters
                    .Add(New SqlParameter("@AR_Ref", SqlDbType.VarChar, 19))
                    .Add(New SqlParameter("@AR_Design", SqlDbType.VarChar, 69))
                    .Add(New SqlParameter("@FA_CodeFamille", SqlDbType.VarChar, 11))
                    .Add(New SqlParameter("@AR_UniteVen", SqlDbType.SmallInt, 10))
                    .Add(New SqlParameter("@AR_SuitStok", SqlDbType.SmallInt, 8))
                    .Add(New SqlParameter("@AR_HorStat", SqlDbType.SmallInt, 25))
                    .Add(New SqlParameter("@FORNISSEUR", SqlDbType.VarChar, 15))
                    .Add(New SqlParameter("@Creation", SqlDbType.SmallDateTime, 9))
                End With
                ' Remplissage des valeurs de paramètre
                With cmd
                    .Parameters("@AR_Ref").Value = TextBox1.Text
                    .Parameters("@AR_Design").Value = TextBox2.Text
                    .Parameters("@FA_CodeFamille").Value = TextBox3.Text
                    .Parameters("@AR_UniteVen").Value = CInt(TextBox4.Text)
                    .Parameters("@AR_SuitStok").Value = CInt(TextBox5.Text)
                    .Parameters("@AR_HorStat").Value = CInt(TextBox6.Text)
                    .Parameters("@FORNISSEUR").Value = TextBox7.Text
                    .Parameters("@Creation").Value = TextBox8.Text
 
                End With
 
                cmd.CommandText = "insert into ARTICLECASA(AR_Ref,AR_Design,FA_CodeFamille,AR_UniteVen,AR_SuitStok,AR_HorStat,FORNISSEUR,Creation) values(@AR_Ref,@AR_Design,@FA_CodeFamille,@AR_UniteVen,@AR_SuitStok,@AR_HorStat,@FORNISSEUR,@Creation)"
                cmd.ExecuteNonQuery()

merci beaucoup pour votre aide ça marche bien

**StringBuilder** · 21/03/2012, 10h30

Si je ne m'abuse, il ne faut pas mettre le "@" dans le nom des paramètres lors des Parameter.Add

Apparemment, là ça marche car ils sont ignorés, mais ils sont inutiles.

probleme d'insertion dans une base de donnée [Débutant]

VB.NET

Discussions similaires

Partager

Partager