Discussion :

[feldi]

Bonjour,

je cherche à faire un ajout de ligne dans ma base de données.
J'ai donc pour cela une commande Insert :

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
 
Try
            Dim majIdUtilisateur As Integer
 
            Dim conn As New OracleConnection()
            conn.ConnectionString = oradb
            conn.Open()
            Dim requeteInsertClt As String
            requeteInsertClt = "INSERT INTO Utilisateur VALUES ('" & majIdUtilisateur & "', '" & txtNomEleve.Text & "','" & txtPrenomEleve.Text & "', '" & lbNomClasse.SelectedIndex.ToString & "', '" & lbNomProf.SelectedIndex.ToString & "', '" & txtDaigl.Text & "','" & txtAlsi.Text & "', '" & txtReseau.Text & "', '" & txtGeosi.Text & "')"
            Dim command As New OracleClient.OracleCommand(requeteInsertClt)
            command.Connection = conn
 
            command.ExecuteNonQuery()
            MessageBox.Show("L'enregistrement de l'élève " & txtNomEleve.Text & " " & txtPrenomEleve.Text & " en classe " & lbNomClasse.SelectedValue & Environment.NewLine & " avec comme prof principal Mr/Mme " & lbNomProf.SelectedValue & " a été éffectué")
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub

La requête est censée enregistrer :
1 id (le champ auto-incrémenté), le nom, le prénom, le nom de la classe (récupéré de lbNomClasse), le nom du prof (récupéré de lbNomProf) ainsi que les 4 notes.

J'ai 2 problèmes :

• le numéro auto-incrémenté : je ne sais pas comment le gérer dans la requête sous-vb. J'ai crée la séquence et le trigger pour l'auto incrémentation pour les enregistrements directement depuis la base mais je ne sais pas comment l'utiliser depuis vb.net .

• le nom de la classe et le nom du prof : avec ma méthode, il récupère le numéro de la ligne de la listbox et non pas le nom, ce qui provoque une erreur étant donné que dans ma table, les classes ont comme clé primaire leur nom.

Si vous avez des idées, conseils, ...

Merci !

[The_Big_Lebowski]

le numéro auto-incrémenté

Si ton champs Id est typé comme autoincrement dans ta table, c'est la séquence qui se charge de l'auto incrémenter, tu n'as rien à faire.
Dans la construction de ta requête INSERT, tu ne dois pas "gérer" l'insertion de l'ID de ton élève.

Ta requête SQL doit ressembler à peu près à ça :

Code :

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

1
2
 
INSERT INTO Utilisateur (nomDuChamp1, nomDuChamp2, ...) VALUES (valeurDuChamp1, valeurDuChamp2, ...)

le nom de la classe et le nom du prof ... les classes ont comme clé primaire leur nom

Je pense qu'il faut revoir la structure de ta base de données si ce n'est pas trop tard.
Utilise plutot des identifiants uniques pour tes profs (Champ AutoIncrement), et ceci est valable pour l'ensemble de tes élèves aussi (Préserver l'unicité) des homonymes peuvent exister.

ListBox: voir le lien suivant
http://plasserre.developpez.com/cour...rms3#LVIII-H-1

[feldi]

Merci pour tes réponses.

Par contre, quand je ne déclare pas l'insertion de l'id, j'ai droit à un message d'erreur

Nombre de valeurs insuffisantes

J'ai mis un Id unique en clé primaire pour les utilisateurs, les profs et les matières suite à ton conseil.

=> la séquence et le trigger pour les utilisateurs :

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
 
CREATE SEQUENCE MajIdUtilisateur
  START WITH 1
  MAXVALUE 999999999999999999999999
  MINVALUE 1
  NOCYCLE
  NOCACHE
  NOORDER;
 
CREATE OR REPLACE TRIGGER MAJIdUtilisateur
   BEFORE INSERT
   ON Utilisateur
   FOR EACH ROW
BEGIN
   SELECT MajIdUtilisateur.NEXTVAL
     INTO :NEW.idUtilisateur
     FROM DUAL;
END;
/

et ma requête (qui plante toujours) :

Code :

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

1
2
 
requeteInsertClt = "INSERT INTO Utilisateur VALUES ('" & txtNomEleve.Text & "','" & txtPrenomEleve.Text & "', '" & lbNomClasse.SelectedItem & "', '" & lbNomProf.SelectedItem & "', '" & txtDaigl.Text & "','" & txtAlsi.Text & "', '" & txtReseau.Text & "', '" & txtGeosi.Text & "')"

Edit : j'y pense maintenant. Ma table utilisateur a comme clef étrangère le nom du prof sous format NUMBER étant donné que j'ai fais le lien avec l'idProf qui est clé primaire sur la table PROF.

Peut être que le message d'erreur vient de la ? Et donc, comment faire le lien entre l'idProf clé primaire de la table PROF et le nom du prof recherché dans l'ajout d'un élève ?
Puisque je ne peux pas relier un champ non clé primaire avec une clé étrangère :/

Edit 2 :

Code :

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

1
2
3
 
Dim numProf As Integer = lbNomProf.SelectedIndex + 1
requeteInsertClt = "INSERT INTO Utilisateur VALUES ('" & txtNomEleve.Text & "','" & txtPrenomEleve.Text & "', '" & lbNomClasse.SelectedItem & "', '" & numProf & "', '" & txtDaigl.Text & "','" & txtAlsi.Text & "', '" & txtReseau.Text & "', '" & txtGeosi.Text & "')"

J'arrive donc à obtenir le numéro du prof. Mais j'obtiens toujours le message d'erreur :

Nombre de valeurs insuffisant

Donc je pense qu'il y a un problème au niveau de l'ID :/

[The_Big_Lebowski]

Transforme ta requête

Code :

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

1
2
requeteInsertClt = "INSERT INTO Utilisateur (champs 1, champs 2, champs3, ...) VALUES ('" & txtNomEleve.Text & "','" & txtPrenomEleve.Text & "', '" & lbNomClasse.SelectedItem & "', '" & lbNomProf.SelectedItem & "', '" & txtDaigl.Text & "','" & txtAlsi.Text & "', '" & txtReseau.Text & "', '" & txtGeosi.Text & "')"

[feldi]

En modifiant ma requête comme tu m'as conseillé, j'obtiens un autre message d'erreur :

Impossible d'insérer NULL dans GESTIONMATIERE.UTILISATEUR.IDUTILISATEUR

Donc le trigger ne se lance pas. :/


ça fonctionne ! En fait mon trigger a eu un problème, je l'ai recrée et tout fonctionne ! Merci !