Insert base Oracle, champ auto incrémenté et récupération valeur listbox

Bonjour,

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

Code:

---

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 !

Citation:

---

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:

---

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

---

Citation:

---

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

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

Citation:

---

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:

---

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:

---

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:

---

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 :

Citation:

---

Nombre de valeurs insuffisant

---

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

Transforme ta requête

Code:

---

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 & "')"

---

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

Citation:

---

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 !