Discussion :

[youssef619]

Bonjour,
je ne peux pas enregistrer une ligne de donnée dans une base de données Access avec des paramètres il ce block toujours dans l instruction Me.SqlCmdSauvegarde.ExecuteNonQuery()

y a t il une solution ?!

[bizet]

salut

rien compris, merci de reformuler et de donner plus de précisions (code, exemple,...)

[youssef619]

bon voila la plus par du temps j utilise l assistant pour crée les objets et ce que j ai fait dalleur mais maintenant je vais ercrire le code pour vous montrer le probleme

la declaration des paramettre dans l evenement load:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
    Private Sub Ajouter_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.OleDbCmdSauvegarde.Parameters.Add("@Netab", OleDbType.VarNumeric)
        Me.OleDbCmdSauvegarde.Parameters.Add("@Etab", OleDbType.VarChar, 255)
        Me.OleDbCmdSauvegarde.Parameters.Add("@Pref", OleDbType.VarChar, 255)
        Me.OleDbCmdSauvegarde.Parameters.Add("@DtCrea", OleDbType.VarNumeric)
        Me.OleDbCmdSauvegarde.Parameters.Add("@Adress", OleDbType.VarChar, 255)
        Me.OleDbCmdSauvegarde.Parameters.Add("@CPostal", OleDbType.VarChar, 255)
        Me.OleDbCmdSauvegarde.Parameters.Add("@tel", OleDbType.VarChar, 255)
        Me.OleDbCmdSauvegarde.Parameters.Add("@fax", OleDbType.VarChar, 255)
 
    End Sub

le code dand l evenement click du bouton de l enregistrement:

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
    Private Sub ButEnregistrer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButEnregistrer.Click
        Dim ChSQL As String = "INSERT INTO Etablissement ([Num Etab], [Etablissement ], [Préfecture ], [Date de création ], [Adresse ], [Code postal ], [Téléphone ], [Fax ]) "
        ChSQL += " VALUES(@Netab, @Etab, @Pref, @DtCrea, @Adress, @CPostal, @tel, @fax)"
        Me.OleDbCmdSauvegarde.CommandText = ChSQL
        Me.OleDbCmdSauvegarde.Parameters("@Netab").Value = Me.Num_EtabTextBox.Text
        Me.OleDbCmdSauvegarde.Parameters("@Etab").Value = Me.Etablissement_TextBox.Text
        Me.OleDbCmdSauvegarde.Parameters("@Pref").Value = Me.Préfecture_TextBox.Text
        Me.OleDbCmdSauvegarde.Parameters("@DtCrea").Value = Me.Date_de_création_TextBox.Text
        Me.OleDbCmdSauvegarde.Parameters("@Adress").Value = Me.Adresse_TextBox.Text
        Me.OleDbCmdSauvegarde.Parameters("@CPostal").Value = Me.Code_postal_TextBox.Text
        Me.OleDbCmdSauvegarde.Parameters("@tel").Value = Me.Téléphone_TextBox.Text
        Me.OleDbCmdSauvegarde.Parameters("@fax").Value = Me.Fax_TextBox.Text
        Me.OleDbCn.Open()
        Me.OleDbCmdSauvegarde.ExecuteNonQuery()
        Me.OleDbCn.Close()
 
    End Sub

le message d erreur est comme suit:

Code :

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

Type de nom non valide.

et ça plante dans "Me.OleDbCmdSauvegarde.ExecuteNonQuery()"