Discussion :

[bucabuca]

salut
je développe une application de gestion des élèves et je suis bloqué à l'ajout d'un nouveau enregistrement .
ma table est:

create table eleves (NEleve int identity primary key, nom varchar(50), prenom varchar(50), groupe float, note1 float , note2 float, moyenne float)

un module qui contient des variables globales:

Code :

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

1
2
3
4
5
6
7
8
9
 
Imports System.Data.OleDb
 
Module Module1
    'instancier l'objet de connexion
    Public Cn As New OleDbConnection("Provider=MicroSoft.ACE.OLEDB.12.0; Data Source=" & Application.StartupPath & "\gestion.accdb")
    Public CmdCombo, CmdList As New OleDbCommand
    Public DrCombo, DrList As OleDbDataReader
End Module

un bouton add dont le code est:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click
        Cn.Open()
        CmdList.CommandType = CommandType.Text
        CmdList.CommandText = "INSERT INTO ELEVES (NEleve, Nom, Prenom, Groupe) values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & Val(TextBox4.Text) & "'"
        CmdList.Connection = Cn
        CmdList.ExecuteNonQuery()
        MsgBox("Elève ajouté avec succès", MsgBoxStyle.Information, "Ajout")
        Cn.Close()
 
    End Sub

Mon problème est que je n'arrive pas à remplir un nouveau enregistrement par des données de 4 textbox et laisser les autres champs de l'enregistrement vides.
merci d'avance

[_Ez3kiel]

Quel est le message d'erreur ?
C'est volontaire la non-fin de parenthèse dans ta requête d'Insert ?

[bucabuca]

Quel est le message d'erreur ?
C'est volontaire la non-fin de parenthèse dans ta requête d'Insert ?

le message d"erreur est:
Aucune valeur donnée pour un ou plusieurs des paramètres requis.

[Rainui]

Bonsoir,

L'insert vous demande de donner des valeurs à note1 float , note2 float, moyenne float.

Vérifiez dans Access, pour les champs concernés, que la propriété Null Interdit ne soit pas sur Oui.
Si c'est sur oui, vous pouvez donner une valeur par défaut aux champs et il ne devrait plus vous embéter.
Sinon, dans le requête d'insert, donnez lui tout les paramètres pour remplir tout les champs.

[bucabuca]

Bonsoir,

L'insert vous demande de donner des valeurs à note1 float , note2 float, moyenne float.

Vérifiez dans Access, pour les champs concernés, que la propriété Null Interdit ne soit pas sur Oui.
Si c'est sur oui, vous pouvez donner une valeur par défaut aux champs et il ne devrait plus vous embéter.
Sinon, dans le requête d'insert, donnez lui tout les paramètres pour remplir tout les champs.

la propriété Null Interdit des champs note1 float , note2 float, moyenne float est Non.
J'ai au changé la reqête par celle-ci:

CmdClasse.CommandText = "INSERT INTO ELEVES VALUES (TextBox1.Text, TextBox2.Text, TextBox3.Text, Val(TextBox4.Text), 0, 0, 0, 0, 0)"

le même message persiste

[Rainui]

Bonsoir,

Il semble qu'il y ai un problème d'écriture dans votre requête, essayez avec :

Code :

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

1
2
3
4
5
6
 
With _cmd
    .CommandType = CommandType.Text
    .CommandText = "INSERT INTO Elèves (NEleve, Nom, Prenom, Groupe) VALUES ('" & TextBox1.Text & "', '" & TextBox2.Text & "', '" & TextBox3.Text & "', '" & TextBox4.Text & "');"
    .Connection = _Con
End With

Ou :

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
 
Dim _cmd2 As New OleDbCommand
    With _cmd2
        .CommandType = CommandType.Text
        .CommandText = "INSERT INTO Elèves (NEleve, Nom, Prénom, Groupe) VALUES (@P1, @P2, @P3, @P4);"
        .Connection = _Con
        With .Parameters
            .Add("@P1", OleDbType.Char).Value = TextBox1.Text
            .Add("@P2", OleDbType.Char).Value = TextBox2.Text
            .Add("@P3", OleDbType.Char).Value = TextBox3.Text
            .Add("@P4", OleDbType.Decimal).Value = TextBox4.Text
        End With
    End With
    Try
        _Con.Open()
        _cmd2.ExecuteNonQuery()
        _Con.Close()
    Catch ex As Exception
        MessageBox.Show(ex.Message)
    End Try

[bucabuca]

Bonsoir,

Il semble qu'il y ai un problème d'écriture dans votre requête, essayez avec :

Code :

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

1
2
3
4
5
6
 
With _cmd
    .CommandType = CommandType.Text
    .CommandText = "INSERT INTO Elèves (NEleve, Nom, Prenom, Groupe) VALUES ('" & TextBox1.Text & "', '" & TextBox2.Text & "', '" & TextBox3.Text & "', '" & TextBox4.Text & "');"
    .Connection = _Con
End With

Ou :

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
 
Dim _cmd2 As New OleDbCommand
    With _cmd2
        .CommandType = CommandType.Text
        .CommandText = "INSERT INTO Elèves (NEleve, Nom, Prénom, Groupe) VALUES (@P1, @P2, @P3, @P4);"
        .Connection = _Con
        With .Parameters
            .Add("@P1", OleDbType.Char).Value = TextBox1.Text
            .Add("@P2", OleDbType.Char).Value = TextBox2.Text
            .Add("@P3", OleDbType.Char).Value = TextBox3.Text
            .Add("@P4", OleDbType.Decimal).Value = TextBox4.Text
        End With
    End With
    Try
        _Con.Open()
        _cmd2.ExecuteNonQuery()
        _Con.Close()
    Catch ex As Exception
        MessageBox.Show(ex.Message)
    End Try

merci Rainui
problème réglé
RESOLU

[rv26t]

Bonjour,

Dans tous les cas il est préférable d'utiliser les requêtes paramètrées. Pour apprendre voir :Tuto ou Faq.