echec de la conversion de paramètre d'un string en int32

**sycoulibaly** · 14/02/2009, 23h32

SVP Aidez moi je suis fatigué de chercher et ce depuis 3 semaines.Quand je cique sur le bouton Ajouter j'ai l'erreur suivante:
echec de la conversion de paramètre d'un string en int32
Voici le code de mon Bouton Ajouter. Je vs présente tout le code.
Excusez moi

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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
Dim maConnexionSQLsrv As OleDbConnection
        Dim myCommand As OleDbCommand
        Dim maRequete, ConnexionSQL As String
 
        'Récupération de la chaine de connexion au serveur de base de données
        ConnexionSQL = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=..\Etablissements.accdb"
        maConnexionSQLsrv = New OleDbConnection(ConnexionSQL)
 
        'Requete mise a jour de la table client
        maRequete = "INSERT INTO [Etudiants] ( [Telephone_personnel],[Telephone_professionnel],[Telephone_mobile],[Page_Web],[Numero_telecopie],[NumInscription],[Telephone_du_contact_urgences1],[Telephone_du_contact_urgences2],[Tel_medecin],[Adresse_Etudiant],[nom],[Prenom],[Lieu_Naissance],[Ville],[Code_Postal],[Departement],[Remarques],[IDEtudiant],[Date_Inscription],[contact_urgence],[Relation_urgences],[Nom_medecin],[Allergies],[Medicaments],[Etablissements],[NumExo],[Specialite_Etudiant],[niveau_Etudiant],[Classe_Etudiant],[Pays_Région]) VALUES (@Telephone_personnel,@Telephone_professionnel,@Telephone_mobile,@Page_Web,@Numero_telecopie,@NumInscription,@Telephone_du_contact_urgences1,@Telephone_du_contact_urgences2,@Tel_medecin,@Adresse_Etudiant,@nom,@Prenom,@Lieu_Naissance,@Ville,@Code_Postal,@Departement,@Remarques,@IDEtudiant,@Date_Inscription,@contact_urgence,@Relation_urgences,@Nom_medecin,@Allergies,@Medicaments,@Etablissements,@NumExo,@Specialite_Etudiant,@niveau_Etudiant,@Classe_Etudiant,@Pays_Région)"
 
        'Création de la commande SQL
        myCommand = New OleDbCommand(maRequete, maConnexionSQLsrv)
 
        'Création et décalartion des paramètres
        With myCommand.Parameters
            .Add(New OleDbParameter("@Telephone_personnel", OleDbType.Integer, 16))
            .Add(New OleDbParameter("@Telephone_professionnel", OleDbType.Integer, 16))
            .Add(New OleDbParameter("@Telephone_mobile", OleDbType.Integer, 16))
            .Add(New OleDbParameter("@Page_Web", OleDbType.VarChar, 50))
            .Add(New OleDbParameter("@Numero_telecopie", OleDbType.Integer, 16))
            .Add(New OleDbParameter("@NumInscription", OleDbType.Integer, 10))
            .Add(New OleDbParameter("@Telephone_du_contact_urgences1", OleDbType.Integer, 16))
            .Add(New OleDbParameter("@Telephone_du_contact_urgences2", OleDbType.Integer, 16))
            .Add(New OleDbParameter("@Tel_medecin", OleDbType.Integer, 16))
            .Add(New OleDbParameter("@Adresse_Etudiant", OleDbType.VarChar, 35))
            .Add(New OleDbParameter("@Nom", OleDbType.VarChar, 25))
            .Add(New OleDbParameter("@Prenom", OleDbType.VarChar, 50))
            .Add(New OleDbParameter("@Lieu_Naissance", OleDbType.VarChar, 35))
            .Add(New OleDbParameter("@Ville", OleDbType.VarChar, 35))
            .Add(New OleDbParameter("@Code_Postal", OleDbType.VarChar, 35))
            .Add(New OleDbParameter("@Departement", OleDbType.VarChar, 35))
            .Add(New OleDbParameter("@Remarques", OleDbType.VarChar, 150))
            .Add(New OleDbParameter("@IDEtudiant", OleDbType.VarChar, 10))
            .Add(New OleDbParameter("@Date_Inscription", OleDbType.Date))
 
            .Add(New OleDbParameter("@contact_urgence", OleDbType.Integer, 16))
            .Add(New OleDbParameter("@Relation_urgences", OleDbType.VarChar, 25))
            .Add(New OleDbParameter("@Nom_medecin", OleDbType.VarChar, 35))
            .Add(New OleDbParameter("@Allergies", OleDbType.VarChar, 35))
            .Add(New OleDbParameter("@Medicaments", OleDbType.VarChar, 35))
            .Add(New OleDbParameter("@Etablissements", OleDbType.Integer, 3))
            .Add(New OleDbParameter("@NumExo", OleDbType.Integer, 2))
            .Add(New OleDbParameter("@Specialite_Etudiant", OleDbType.VarChar, 25))
            .Add(New OleDbParameter("@niveau_Etudiant", OleDbType.VarChar, 25))
            .Add(New OleDbParameter("@Classe_Etudiant", OleDbType.VarChar, 10))
            .Add(New OleDbParameter("@Pays_Région", OleDbType.VarChar, 25))
 
        End With
 
        'Attribution des valeurs aux paramètres
 
        With myCommand
 
            .Parameters("@Telephone_personnel").Value = Val(TelPersonnel.Text)
            .Parameters("@Telephone_personnel").Value = Val(TelPersonnel.Text)
            .Parameters("@Telephone_professionnel").Value = Val(TelProfessionnel.Text)
            .Parameters("@Telephone_mobile").Value = Val(TelMobile.Text)
            .Parameters("@Page_Web").Value = Mail.Text
            .Parameters("@Numero_telecopie").Value = Val(Telecopie.Text)
            .Parameters("@NumInscription").Value = Val(NumInscription.Text)
            .Parameters("@Telephone_du_contact_urgences1").Value = Val(TelUrgence1.Text)
            .Parameters("@Telephone_du_contact_urgences2").Value = Val(TelUrgence2.Text)
            .Parameters("@Tel_medecin").Value = Val(TelMedecin.Text)
            .Parameters("@Adresse_Etudiant").Value = Adresse.Text
            .Parameters("@Nom").Value = Nom.Text
            .Parameters("@Prenom").Value = Prenoms.Text
            .Parameters("@Lieu_Naissance").Value = LieuNais.Text
            .Parameters("@Ville").Value = Ville.Text
            .Parameters("@Code_Postal").Value = CP.Text
            .Parameters("@Departement").Value = Departement.Text
            .Parameters("@Remarques").Value = Remarque.Text
            .Parameters("@IDEtudiant").Value = Val(IDEtudiant.Text)
            .Parameters("@Date_Inscription").Value = CDate(Date_Inscription.Text)
 
            .Parameters("@contact_urgence").Value = Val(ContactUrgence.Text)
            .Parameters("@Relation_urgences").Value = RelationUrgence.Text
            .Parameters("@Nom_medecin").Value = NomMedecin.Text
            .Parameters("@Allergies").Value = Allergies.Text
            .Parameters("@Medicaments").Value = Medicaments.Text
            .Parameters("@Etablissements").Value = ComBoBoxEtab.Text
            .Parameters("@NumExo").Value = ComboBoxExo.Text
            .Parameters("@Specialite_Etudiant").Value = ComboBoxSpecialite.Text
            .Parameters("@niveau_Etudiant").Value = ComboBoxNiveau.Text
            .Parameters("@Classe_Etudiant").Value = ComboBoxClasse.Text
            .Parameters("@Pays_Région").Value = ComboBoxPays.Text
 
 
        End With
 
        Try
 
            'Execution de la requête
            myCommand.Connection.Open()
            myCommand.ExecuteNonQuery()
            myCommand.Connection.Close()
 
 
            MsgBox("Inscription effectuée!", MsgBoxStyle.Information)
        Catch ex As Exception
            MsgBox(ex.Message)
 
 
 
        End Try

**Pol63** · 15/02/2009, 13h05

il faudrait nous dire à quelle ligne ca plante
m'enfin ca a l'air simple comme soucis

et retire moi c'est Val() de partout, c'est pas très .net

il est aussi possible de gagner un peu de place avec

mycommand.parameters.Add("@parametre",type).value = cint(textbox.text)

enfin ton erreur vient du fait qu'un textbox ne contient pas un nombre

**sycoulibaly** · 15/02/2009, 14h01

Lorsque je remplace val par cInt j'ai le message d'erreur dès la première ligne.

La conversion de la chaîne "" en type 'Integer' n'est pas valide. je crois que c'est parceque mon telPersonnel.text est vide. Comment faire pour resoudre les cas ou un champ est vide. J'ai également un problème avec HeureInscription.text qui contient l'heure d'inscription et DateInscription qui contient la date d'inscription

Code :

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

1
2
3
4
5
 With myCommand
 
            .Parameters("@Telephone_personnel").Value = CInt(TelPersonnel.Text)
            .Parameters("@Dateinscription").Value = CDate(Dateinscription.Text)
            .Parameters("@HeureInscription").Value = CDate(HeureInscription.Text)

**Plexi86** · 15/02/2009, 15h01

Envoyé par sycoulibaly

Lorsque je remplace val par cInt j'ai le message d'erreur dès la première ligne.

La conversion de la chaîne "" en type 'Integer' n'est pas valide. je crois que c'est parceque mon telPersonnel.text est vide. Comment faire pour resoudre les cas ou un champ est vide.

Ben voilà tu as la réponse!
Chaîne vide ne peut être convertie en type integer.

Pour ça tu fais un traitement de la saisie utilisateur, si c'est vide, tu affiches soit un message d'erreur, soit tu remplaces la chaîne vide par zéro.
Ou autre solution si le champ n'est pas obligatoire, alors lorsqu'il est null tu passes dans une autre requête qui l'initialise à null dans ta BDD.

**Sankasssss** · 15/02/2009, 15h01

Il te suffit de contrôler ce que contien ton textBox...
genre :

Code :

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

1
2
3
4
5
If TelPersonnel.Text.Equals("") Then
.Parameters("@Telephone_personnel").Value = 0
Else
.Parameters("@Telephone_personnel").Value = CInt(TelPersonnel.Text)  
End If

tu peux (doit) aussi contrôler que ce que l'utilisateur rentre est bien du numérique...
genre :

Code :

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

1
2
3
4
5
6
    Private Sub TelPersonnel_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TelPersonnel.KeyPress
        If Not Char.IsDigit(e.KeyChar) And Not Char.IsControl(e.KeyChar) Then
            'Tous les caractères non numériques ne sont pas traités sur le TextBox.
            e.Handled = True
        End If
    End Sub

**sycoulibaly** · 15/02/2009, 22h29

J'ai fais exactement ce que vous avez dit mais j'ai le message suivant:

Echec de la conversion de la valeuur de paramètre d'un String en Int 32

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
With myCommand
            If TelPersonnel.Text.Equals("") Then
                .Parameters("@Telephone_personnel").Value = 0
            Else
                .Parameters("@Telephone_personnel").Value = CInt(TelPersonnel.Text)
            End If
 
            If TelProfessionnel.Text.Equals("") Then
                .Parameters("@Telephone_professionnel").Value = 0
            Else
                .Parameters("@Telephone_professionnel").Value = CInt(TelProfessionnel.Text)
            End If
            If TelMobile.Text.Equals("") Then
                .Parameters("@Telephone_mobile").Value = 0
            Else
                .Parameters("@Telephone_mobile").Value = CInt(TelMobile.Text)
            End If

**Sankasssss** · 15/02/2009, 22h33

Regarde où l'erreur est déclenchée, met un point d'arrêt et regarde la valeur qu'il y a dans la propriété .text de tes textbox...

EDIt : juste par hasard, dans les textbox de numéro de tel, tu ne rentrerais pas des / ou . ?

REEDIT : au début de ta méthode tu devrais absolument tester si tes textbox qui vont être converti en int contienne bien que du numérique
genre :

Code :

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

1
2
3
4
If Not IsNumeric(TextBox1.Text) Or Not IsNumeric(TextBox2.Text) Then
                MsgBox("Veuillez vérifier que...")
                Exit Sub
            End If

echec de la conversion de paramètre d'un string en int32

VB.NET

Vue hybride

Discussions similaires

Partager

Partager