Message d'erreur lors de l'ajout de données dans une base access

**hugnka** · 01/04/2012, 06h13

salut tout le monde. Voilà je tente de mettre en place une application windows Forms avec vb.net 2008. Lors de l'ajout de données avec ce code

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
Private Sub cmd_enregistrer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd_enregistrer.Click
        ' Déclaration de la variable cmd
        ' OleDbCommand représentera ici une instruction SQL à exécuter par rapport à une source de données
        Dim cmd As OleDb.OleDbCommand
        ' Déclaration de sql_ajouter, qui contiendra la requête SQL permettant d'ajouter un enregistrement
        Dim sql_ajouter As String
 
        ' On écrit notre requête et on l'assigne à la variable sql_ajouter
        sql_ajouter = "INSERT INTO Membre (Matricule,dat_adh,nom, pren,dat_naiss,sexe,pays,ville,lang_parl,tel,cel,nbre_enf,typ_memb,profession,stat_marital,depart,autre_depart,respo) VALUES(Val_Matricule,Val_dat_adh, Val_Nom,Val_Prenom ,Val_dat_naiss,Val_sexe,Val_pays,Val_ville,Val_lang_parl,Val_tel,Val_cel,Val_nbre_enf,Val_typ_memb,Val_profession,Val_stat_marital,Val_depart,Val_autre_depart,Val_respo)"
 
        ' Initialisation de la requête
        cmd = New OleDb.OleDbCommand(sql_ajouter, con)
 
        ' On définit les paramètres utilisés pour le bon déroulement de la requête
        ' On assigne à Val_pren" le texte contenu dans le prenom
        cmd.Parameters.AddWithValue("Val_Matricule", Matricule_txt)
        cmd.Parameters.AddWithValue("Val_dat_adh", Dat_adhtxt)
        ' On assigne à Val_Nomm" le texte contenu dans le nom
        cmd.Parameters.AddWithValue("Val_nom", Nom.Text)
        cmd.Parameters.AddWithValue("Val_pren", Prenom.Text)
        cmd.Parameters.AddWithValue("Val_dat_naiss", Dat_naisstxt)
        cmd.Parameters.AddWithValue("Val_sexe", Sexe)
        cmd.Parameters.AddWithValue("Val_pays", pays_txt)
        cmd.Parameters.AddWithValue("Val_ville", ville_txt)
        cmd.Parameters.AddWithValue("Val_lang_parl", lang_parltxt)
        cmd.Parameters.AddWithValue("Val_tel", tel_txt)
        cmd.Parameters.AddWithValue("Val_cel", cel_txt)
        cmd.Parameters.AddWithValue("Val_nbre_enf", nbr_enftxt)
        cmd.Parameters.AddWithValue("Val_typ_memb", typ_txt)
        cmd.Parameters.AddWithValue("Val_profession", profess_txt)
        cmd.Parameters.AddWithValue("Val_stat_marital", statmar_txt)
        cmd.Parameters.AddWithValue("Val_depart", depart_txt)
        cmd.Parameters.AddWithValue("Val_autre_depart", autrde_txt)
        cmd.Parameters.AddWithValue("Val_respo", respo_txt)
 
        ' Ouverture de la connexion
        cmd.Connection.Open()
        ' Exécution de la requête SQL
        cmd.ExecuteReader()
        ' Fermeture de la connexion
        cmd.Connection.Close()
 
        ' On efface les  "textbox"
        Matricule_txt.Text = ""
        Dat_adhtxt.Text = ""
        Prenom.Text = ""
        Nom.Text = ""
        Dat_naisstxt.Text = ""
        Sexe.Text = ""
        pays_txt.Text = ""
        ville_txt.Text = ""
        lang_parltxt.Text = ""
        tel_txt.Text = ""
        cel_txt.Text = ""
        profess_txt.Text = ""
        nbr_enftxt.Text = ""
        typ_txt.Text = ""
        statmar_txt.Text = ""
        depart_txt.Text = ""
        respo_txt.Text = ""
        autrde_txt.Text = ""
 
 
        ' Message indiquant que le nouveau membre a bien été enregistré
        MsgBox("Le nouveau membre a bien été enregistré.", MsgBoxStyle.Information)
 
        ' On vide le dataset
        ds.Clear()
 
        ' et on le réaffiche en faisant appel à Connexion()
        ' pour que notre nouveau contact apparaisse bien
        Connexion()
 
        ' Si la table contient 1 seul enregistrement après avoir cliqué sur le bouton ajouter
        ' il faut activer tous les boutons
        If Max_Enregistrements = 1 Then
            cmd_modifier.Enabled = True
            cmd_suivant.Enabled = True
            cmd_precedent.Enabled = True
            cmd_premier.Enabled = True
            cmd_dernier.Enabled = True
            cmd_supprimer.Enabled = True
        End If
    End Sub

,j'ai une erreur à cette ligne

Code :

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

 cmd.ExecuteReader()

disant :

Type de données incompatible dans l'expression du critère.

Et dépuis je suis coincé. Il faut préciser que Matricule est mon ID dans ma table MEMBRE.
J'utilise également un code qui me permet de naviguer entre les différents enregistrements(Suivant,Précédent,Premier et Dernier) voici le code me permettant de les gérer avec mon Sub Navigation

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
Private Sub Navigation()
 
        ' Pour naviguer dans la table,nous utilisons la variable Place_Enregistrement
        ' déclarée en haut de cette page. On lui ajoutera ou  otera 1:
        ' +1 pour l'enregistrement suivant, -1 pour l'enregistrement précédent.
        ' La partie importante de ces lignes est rows(Place_Enregistrement): cela permet
        ' de nous déplacer dans les lignes du dataset.
 
 
        ' on assigne à Val_ID l'ID de l'enregistrement en cours (que l'on utilisera pour
        ' mettre à jour / modifier un enregistrement)
        Val_ID = ds.Tables("Liste_Membre").Rows(Place_Enregistrement).Item(0)
        ' On place ensuite les valeurs dans les textbox correspondant à chaque label
        Matricule_txt.Text = ds.Tables("Liste_Membre").Rows(Place_Enregistrement).Item(1)
        Dat_adhtxt.Text = ds.Tables("Liste_Membre").Rows(Place_Enregistrement).Item(2)
        Nom.Text = ds.Tables("Liste_Membre").Rows(Place_Enregistrement).Item(3)
        Prenom.Text = ds.Tables("Liste_Membre").Rows(Place_Enregistrement).Item(4)
        Dat_naisstxt.Text = ds.Tables("Liste_Membre").Rows(Place_Enregistrement).Item(5)
        Sexe.Text = ds.Tables("Liste_Membre").Rows(Place_Enregistrement).Item(6)
        pays_txt.Text = ds.Tables("Liste_Membre").Rows(Place_Enregistrement).Item(7)
        ville_txt.Text = ds.Tables("Liste_Membre").Rows(Place_Enregistrement).Item(8)
        lang_parltxt.Text = ds.Tables("Liste_Membre").Rows(Place_Enregistrement).Item(9)
        tel_txt.Text = ds.Tables("Liste_Membre").Rows(Place_Enregistrement).Item(10)
        cel_txt.Text = ds.Tables("Liste_Membre").Rows(Place_Enregistrement).Item(11)
        nbr_enftxt.TextAlign = ds.Tables("Liste_Membre").Rows(Place_Enregistrement).Item(12)
        typ_txt.Text = ds.Tables("Liste_Membre").Rows(Place_Enregistrement).Item(13)
        profess_txt.Text = ds.Tables("Liste_Membre").Rows(Place_Enregistrement).Item(14)
        statmar_txt.Text = ds.Tables("Liste_Membre").Rows(Place_Enregistrement).Item(15)
        depart_txt.Text = ds.Tables("Liste_Membre").Rows(Place_Enregistrement).Item(16)
        autrde_txt.Text = ds.Tables("Liste_Membre").Rows(Place_Enregistrement).Item(17)
        respo_txt.Text = ds.Tables("Liste_Membre").Rows(Place_Enregistrement).Item(18)
    End Sub

Il faut dire que la variable Val_ID contient l'ID de l'enregistrement en cours
Merci d'avance pour les éventuelles réponses.

**Sankasssss** · 01/04/2012, 11h11

Bonjour,

j'ai déjà eu ce problème via oleDb.
C'est parce que vous utilisez AddWithValue qui cherche à mettre automatiquement le bon type (integer, varChar, decimal...)
essayez de mettre vous mêmes le type de la colonne de cette manière :

Code :

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

cmd.Parameters.Add("Val_nbre_enf", OleDb.OleDbType.Integer).value = nbr_enftxt

De plus, en oleDb, les paramètres doivent normalement être indiqué par de point d’interrogation dans la requête :
Citation de la MSDN

The syntax for parameter placeholders depends on the data source. The .NET Framework data providers handle naming and specifying parameters and parameter placeholders differently. This syntax is customized to a specific data source, as described in the following table.

Data provider

Parameter naming syntax

System.Data.SqlClient => Uses named parameters in the format @parametername.
System.Data.OleDb => Uses positional parameter markers indicated by a question mark (?).
System.Data.Odbc => Uses positional parameter markers indicated by a question mark (?).
System.Data.OracleClient => Uses named parameters in the format :parmname (or parmname).

donc la requête doit devenir :

Code :

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

1
2
sql_ajouter = "INSERT INTO Membre (Matricule,dat_adh,nom, pren,dat_naiss,sexe,pays,ville,lang_parl,tel,cel,nbre_enf,typ_memb,profession,stat_marital,depart,autre_depart,respo) "
sql_ajouter &=  " VALUES( ?, ?, ? ,? ,? ,? ,? ,? ,? ,? ,? ,? ,? ,? ,? ,? ,? ,? )"

Et les paramètres doivent être déclaré dans l'ordre d'apparition des points d’interrogation

**hugnka** · 01/04/2012, 11h28

Merci pour votre réponse mais je n'arrive pas à bien cerner ce que vous dites au niveau des points d’interrogation. Merci

**Sankasssss** · 01/04/2012, 12h02

Donc msdn nous dit :

System.Data.OleDb => Uses positional parameter markers indicated by a question mark (?).

donc :

Utilise des marqueurs de paramètres positionnels indiqués par un point d'interrogation (?).

Il nous dises donc que le marqueur est positionnel, qu'il dépend donc de sa position dans la requête et qu'il va falloir déclarer les paramètres dans l'ordre positionnel des points d’interrogation...

donc dans le cas :

Code :

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

1
2
sql_ajouter = "INSERT INTO Membre (Matricule,dat_adh,nom, pren,dat_naiss,sexe,pays,ville,lang_parl,tel,cel,nbre_enf,typ_memb,profession,stat_marital,depart,autre_depart,respo) "
sql_ajouter &=  " VALUES( ?, ?, ? ,? ,? ,? ,? ,? ,? ,? ,? ,? ,? ,? ,? ,? ,? ,? )"

Le premier paramètre à ajouter est le matricule, ensuite dat_adh, etc, etc...
Le nom du paramètre n'a plus d'importance du moment qu'il est unique.

**hugnka** · 01/04/2012, 13h41

Envoyé par Sankasssss

Bonjour

Code :

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

cmd.Parameters.Add("Val_nbre_enf", OleDb.OleDbType.Integer).value = nbr_enftxt

,

Merci c'est ce que je fais mais cette ligne

Code :

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

 cmd.ExecuteReader()

apparait en jaune disant

Type de données incompatible dans l'expression du critère.

Je ne sais pas comment faire ou bien dois-je le faire pour les autres champs? Merci

**Sankasssss** · 01/04/2012, 13h45

Excusez moi je n'avais pas fait attention que vous utilisiez ExecuteReader (pourtant vous l'aviez bien marqué

), changez cette méthode par ExecuteNonQuery

**shayw** · 01/04/2012, 14h15

Salut

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
 Public Sub INSERT()
        Dim sql_ajouter As String
        Dim cmd As OleDb.OleDbCommand
 
        sql_ajouter = "INSERT INTO Membre (Matricule ,dat_adh ,nom, pren,dat_naiss,sexe,pays,ville,lang_parl,tel,cel,nbre_enf,typ_memb,profession,stat_marital,depart,autre_depart,respo) "
        sql_ajouter &= "VALUES([Val_Matricule?],[Val_dat_adh?],[Val_Nom?],[Val_Prenom?] ,[Val_dat_naiss?],[Val_sexe?],[Val_pays?],[Val_ville?],[Val_lang_parl?],[Val_tel?],[Val_cel?],[Val_nbre_enf?],[Val_typ_memb?],[Val_profession?],[Val_stat_marital?],[Val_depart?],[Val_autre_depart?],[Val_respo?]);"
        'TU DOIS DEFINIR Le TYPE DE CHAQUE PARAMETRE CORESPONDANT AU TYPE DE TON TABLEAU Membre
        'IL SE PEUT QUE TU DOIS FAIRE DES CONVERSIONS DE TYPE PARCE QUE TOUTES TES DONNEES VIENNENT DES TEXTBOXES 
        ' DONC DE TYPE STRING
 
        ' AUSSI NE PAS OUBLIER DE METTRE OPTION EXPLICIT  ON ET OPTION STRICT ON 
        ' ET DE RETIRER LA REFERENCE VISUALBASIC DE TON PROJET
        cmd.Parameters.Add("Val_Matricule?", ).Value = Matricule_txt.text
 
        cmd.Parameters.Add("Val_dat_adh?", ) = Dat_adhtxt.text
        cmd.Parameters.Add("Val_nom?", ) = Nom.Text
        cmd.Parameters.Add("Val_pren?", ) = Prenom.Text
        cmd.Parameters.Add("Val_dat_naiss?", ) = Dat_naisstxt.text
        cmd.Parameters.Add("Val_sexe?", ) = Sexe.text
        cmd.Parameters.Add("Val_pays?", ) = pays_txt.text
        cmd.Parameters.Add("Val_ville?", ) = ville_txt.text
        cmd.Parameters.Add("Val_lan?", ) = lang_parltxt.text
        cmd.Parameters.Add("Val_tel?", ) = tel_txt.text
        cmd.Parameters.Add("Val_cel?", ) = cel_txt.text
        cmd.Parameters.Add("Val_nbre_enf?", ) = nbr_enftxt.text
        cmd.Parameters.Add("Val_typ_memb?", ) = typ_txt.text
        cmd.Parameters.Add("Val_profession?", ) = profess_txt.text
        cmd.Parameters.Add("Val_stat_marital?", ) = statmar_txt.text
        cmd.Parameters.Add("Val_depart?", ) = depart_txt.text
        cmd.Parameters.Add("Val_autre_depart?", ) = autrde_txt.text
        cmd.Parameters.Add("Val_respo?", ) = respo_txt.text
        ' Ouverture de la connexion
        cmd.Connection.Open()
        ' Exécution de la requête SQL
        'cmd.ExecuteReader()
        'cmd.ExecuteReader c'est pour les select les query qui rendent une réponse 
        ' la on utilise cmd.ExecuteNonQuery()
        cmd.ExecuteNonQuery()
        ' Fermeture de la connexion
        cmd.Connection.Close()
        ' On efface les  "textbox"
        Matricule_txt.Text = String.Empty
        Dat_adhtxt.Text = String.Empty
        Prenom.Text = String.Empty
        Nom.Text = String.Empty
        Dat_naisstxt.Text = String.Empty
        Sexe.Text = String.Empty
        pays_txt.Text = String.Empty
        ville_txt.Text = String.Empty
        lang_parltxt.Text = String.Empty
        tel_txt.Text = String.Empty
        cel_txt.Text = String.Empty
        profess_txt.Text = String.Empty
        nbr_enftxt.Text = String.Empty
        typ_txt.Text = String.Empty
        statmar_txt.Text = String.Empty
        depart_txt.Text = String.Empty
        respo_txt.Text = String.Empty
        autrde_txt.Text = String.Empty
 
 
 
    End Sub

**hugnka** · 01/04/2012, 14h20

Merci le message d'erreur précédent n'apparait plus mais un autre apparait. En fait j'utilise un NumericUpDown et sa conversion échoue et j'ai cette ligne en jaune

Code :

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

cmd.ExecuteNonQuery()

disant

Échec de la conversion de la valeur de paramètre d'un NumericUpDown en int32

Merci.

**Sankasssss** · 01/04/2012, 14h29

@ hugnka :

Envoyé par hugnka

Merci le message d'erreur précédent n'apparait plus mais un autre apparait. En fait j'utilise un NumericUpDown et sa conversion échoue et j'ai cette ligne en jaune

Code :

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

cmd.ExecuteNonQuery()

disant Échec de la conversion de la valeur de paramètre d'un NumericUpDown en int32 Merci.

Vous pourriez mettre le code entier utilisé?

Cette erreur provient à coup sur d'une utilisation d'un NumericUpDown sans la méthode value.

@ shayw :

Code :

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

1
2
 sql_ajouter = "INSERT INTO Membre (Matricule ,dat_adh ,nom, pren,dat_naiss,sexe,pays,ville,lang_parl,tel,cel,nbre_enf,typ_memb,profession,stat_marital,depart,autre_depart,respo) "
        sql_ajouter &= "VALUES([Val_Matricule?],[Val_dat_adh?],[Val_Nom?],[Val_Prenom?] ,[Val_dat_naiss?],[Val_sexe?],[Val_pays?],[Val_ville?],[Val_lang_parl?],[Val_tel?],[Val_cel?],[Val_nbre_enf?],[Val_typ_memb?],[Val_profession?],[Val_stat_marital?],[Val_depart?],[Val_autre_depart?],[Val_respo?]);"

n'est pas valide, suivant la règle :

The syntax for parameter placeholders depends on the data source. The .NET Framework data providers handle naming and specifying parameters and parameter placeholders differently. This syntax is customized to a specific data source, as described in the following table.

Data provider

Parameter naming syntax

System.Data.SqlClient => Uses named parameters in the format @parametername.
System.Data.OleDb => Uses positional parameter markers indicated by a question mark (?).
System.Data.Odbc => Uses positional parameter markers indicated by a question mark (?).
System.Data.OracleClient => Uses named parameters in the format :parmname (or parmname).

C'est ceci qui est bon :

Code :

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

1
2
sql_ajouter = "INSERT INTO Membre (Matricule,dat_adh,nom, pren,dat_naiss,sexe,pays,ville,lang_parl,tel,cel,nbre_enf,typ_memb,profession,stat_marital,depart,autre_depart,respo) "
sql_ajouter &=  " VALUES( ?, ?, ? ,? ,? ,? ,? ,? ,? ,? ,? ,? ,? ,? ,? ,? ,? ,? )"

Voir cette page MSDN qui donne :

Code :

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

1
2
3
Dim queryString As String = "SELECT * FROM Table1 WHERE Field1 LIKE ?"
Dim command As OleDbCommand = New OleDbCommand(queryString, connection)
command.Parameters.Add("@p1", OleDbType.Char, 3).Value = "a"

Message d'erreur lors de l'ajout de données dans une base access [Débutant]

VB.NET

Vue hybride

Discussions similaires

Partager

Partager