Erreur d'insertion sqlserver

Version imprimable

Bonjour,
je sais pas pourquoi ça bloque alors que le même code sur une autre table d'une autre base de données marche et ça me met en rage,voici mon code:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Dim cn As New SqlConnection Dim cmd As New SqlCommand cn.ConnectionString = "Data Source=MEHDI-PC\SQLEXPRESS;Integrated Security=SSPI;Initial Catalog=eco" Try cn.Open() cmd.Connection = cn cmd = New SqlCommand("insert into AGENTS(NOM_AG,PRENOM_AG,ADR_AG,TEL_AG) values('" + TextBox1.Text + "','" + TextBox2.Text + "','" + TextBox3.Text + "','" + TextBox4.Text + "');", cn) cmd.ExecuteNonQuery() MsgBox("Ajout avec succes") Catch ex As Exception MsgBox("Erreur d'insertion") Finally cn.Close() End Try
quand j'exécute il m'affiche le message erreur d'insertion.
je mentionne que ma table est comme suit:
Code_AG qui est une clé primaire est qui s'incrémente automatiquement.
je précise que quand j'ai lancé la requête sur sqlserver ce dernier me pose la valeur du champ nom dans le champs code.
Merci.

31/03/2013, 14h19
Sankasssss
Bonjour,

exactement les mêmes remarques que dans votre précédente discussion :
- Utilise les requêtes paramètrées.
- Mettre ex.ToString dans le catch et nous donner le message d'erreur.
31/03/2013, 14h28
mehdi.cheddani

le message indique que:
les données de chaines ou binaires seront tronquées.

Changer votre code par une utilisation des paramètres comme précédemment indiqué :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
        Dim cn As New SqlConnection
        Dim cmd As New SqlCommand
        cn.ConnectionString = "Data Source=MEHDI-PC\SQLEXPRESS;Integrated Security=SSPI;Initial Catalog=eco"
        Try
            cn.Open()
            cmd.Connection = cn
            cmd.CommandText = "insert into AGENTS( NOM_AG , PRENOM_AG , ADR_AG , TEL_AG ) values( ? , ? , ? , ? )"
            cmd.Parameters.Add("nom", SqlDbType.VarChar).Value = TextBox1.Text
            cmd.Parameters.Add("nom", SqlDbType.VarChar).Value = TextBox2.Text
            cmd.Parameters.Add("nom", SqlDbType.VarChar).Value = TextBox3.Text
            cmd.Parameters.Add("nom", SqlDbType.VarChar).Value = TextBox4.Text
 
            cmd.ExecuteNonQuery()
            MsgBox("Ajout avec succes")
        Catch ex As Exception
            MsgBox("Erreur d'insertion " & ex.ToString)
        Finally
            cn.Close()
        End Try

Vérifiez le type des champs de la base de donnée et changé les lignes de 8 à 11 en conséquence.

Exécutez et dite nous si vous avez encore un message d'erreur?

31/03/2013, 14h47
mehdi.cheddani

question:
par quoi je dois remplacer les point d'interrogations qu'il y dans la requête et par quoi remplacer "nom" qui se répète dans cmd.parametrs.add.
Merci.

Excuse moi, j'ai été trop vite avec les copiez collé :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
  Dim cn As New SqlConnection
        Dim cmd As New SqlCommand
        cn.ConnectionString = "Data Source=MEHDI-PC\SQLEXPRESS;Integrated Security=SSPI;Initial Catalog=eco"
        Try
            cn.Open()
            cmd.Connection = cn
            cmd.CommandText = "insert into AGENTS( NOM_AG , PRENOM_AG , ADR_AG , TEL_AG ) values( ? , ? , ? , ? )"
            cmd.Parameters.Add("nom", SqlDbType.VarChar).Value = TextBox1.Text
            cmd.Parameters.Add("prenom", SqlDbType.VarChar).Value = TextBox2.Text
            cmd.Parameters.Add("adr", SqlDbType.VarChar).Value = TextBox3.Text
            cmd.Parameters.Add("tel", SqlDbType.VarChar).Value = TextBox4.Text
 
            cmd.ExecuteNonQuery()
            MsgBox("Ajout avec succes")
        Catch ex As Exception
            MsgBox("Erreur d'insertion " & ex.ToString)
        Finally
            cn.Close()
        End Try

Les ? ne sont pas à remplacé, c'est le framework qui s'en charge, il les remplace par la valeur des paramètres créés après

31/03/2013, 15h05
mehdi.cheddani

Snakasssss je te remercie et en fait vous allez penser que je suis con mais c'est bien une faute de con en fait sur la base de données le champs Adresse la taille était de 1 :oops:
Merci beaucoup et je vous demanderai de bien m'aider sur l'autre discussion parcque c'est elle qui m'emmerde.
31/03/2013, 15h12
Sankasssss

Pas de soucis, mais quand un membre telle que rv26t demande d'utiliser les requêtes paramétrées, suivez son conseil, il le fait pour votre bien. Ces paramètres permettent d'enlever pas mal de problèmes de sécurités.

Pensez à mettre votre sujet en résolu avec le bouton :resolu: en bas.