Select et Insert base Oracle

Version imprimable

Bonjour à tous,

j'ai encore un soucis avec mon programme Oracle ^^
Code:

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 Dim oradb As String = "Data Source=127.0.0.1;User Id=gestionMatiere;Password=gestionMatiere;" Private Sub AjoutEleve_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim conn As New OracleConnection() conn.ConnectionString = oradb conn.Open() 'On instancie notre OracleDataReader Dim sQuery As String = "SELECT DISTINCT NOMPROF FROM PROF" Dim sQuery2 As String = "SELECT DISTINCT NOMCLASSE FROM CLASSE" Dim cmd As OracleCommand = New OracleCommand(sQuery) Dim cmd2 As OracleCommand = New OracleCommand(sQuery2) Dim reader As OracleDataReader = cmd.ExecuteReader() Dim reader2 As OracleDataReader = cmd2.ExecuteReader() 'Tant qu'il y a des résultats à lire, on les affiche cmbNomClasse.Items.Clear() cmbNomProf.Items.Clear() Do While reader.Read() cmbNomProf.Items.Add(reader.GetString(2)) Loop Do While reader2.Read() cmbNomClasse.Items.Add(reader.GetString(1)) Loop reader.Close() reader2.Close() End Sub
Donc, en suivant divers tuto trouvés sur le net et sur développez.com, j'arrive à ce code. Problème, il ne fait rien.
Par rapport au getString du datareader, j'en ai déduit que c'est la position du champ voulu dans la table (ici, le nom du prof est en 2ème position dans la table et le nom de la classe en 1ère position).

Je n'ai donc ni message d'erreur, ni remplissage de combobox. J'en déduis donc qu'il y a un problème quelque part.
J'aimerais déjà pouvoir remplir ces combobox et passer aux autres questions ensuite ^^

Merci !

PS : par rapport à la connexion, je l'ai redéfini sur cette page qui est une autre IHM appelée par mon programme principal. Je ne sais pas si j'ai bien fait ou non...

21/04/2011, 14h23
Pol63

mets un try catch et un point d'arret dans le catch pour être sur qu'il n'y a pas d'erreur

l'évènement load du form est une exception, ca peut sortir du sub sur une erreur sans l'afficher dans certains cas (sur un os x64 en théorie)
il ne faut donc pas mettre de code sans try catch dans cet évènement
21/04/2011, 14h29
feldi

Aahhh...
Message :

Citation:

opération non valide, la connexion n'est pas établie...

Donc par rapport à la connexion, la façon dont je l'ai déclaré n'est pas bonne ?
21/04/2011, 14h45
Pol63
avant de faire executeX sur un command, il faut lui dire quel objet connexion il doit utiliser
Code:

1 2 cmd.connection = conn
21/04/2011, 14h50
feldi

Merci !
Je vais continuer à t'embêter un peu.
J'ai une erreur :

Citation:

L'index se trouve en dehors des limites du tableau.

Donc cette erreur se produit au niveau de la lecture et de l'ajout des résultats puisque c'est le seul "tableau" dont je dispose.
Le nombre entre parenthèse ne correspond il pas au numéro du champ dans la table demandée ?
21/04/2011, 15h30
Pol63

non
une requête peut être liée à plusieurs tables en meme temps
le numéro à mettre est l'index de la colonne parmis les colonnes de ta requête, l'index commence à 0
donc pour tes 2 requete c'est 0 qu'il faut utiliser vu qu'elles ne retournent qu'une seule colonne

Merci pour tes conseils. J'arrive désormais à afficher les noms des profs ! Plus que l'affichage du nom des classes !

Code:

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
 
Public Class AjoutEleve
 
    Dim oradb As String = "Data Source=127.0.0.1;User Id=gestionMatiere;Password=gestionMatiere;"
 
    Private Sub AjoutEleve_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try
            Dim conn As New OracleConnection()
            conn.ConnectionString = oradb
            conn.Open()
 
            'les requêtes SQL
            Dim sQuery As String = "SELECT DISTINCT nomProf FROM prof"
            Dim sQuery2 As String = "SELECT DISTINCT nomClasse FROM classe"
 
            Dim cmd As OracleCommand = New OracleCommand(sQuery, conn)
            Dim cmd2 As OracleCommand = New OracleCommand(sQuery2, conn)
 
            'lien entre l'objet command et la base de données
            cmd.Connection = conn
            cmd2.Connection = conn
 
            'On instancie nos OracleDataReader
            Dim reader As OracleDataReader = cmd.ExecuteReader()
            Dim reader2 As OracleDataReader = cmd2.ExecuteReader()
 
            'On met à zéro si jamais il y a des enregistrements non voulus
            lbNomClasse.Items.Clear()
            lbNomProf.Items.Clear()
 
            'Tant qu'il y a des résultats à lire, on les affiche
            Do While reader.Read()
                lbNomProf.Items.Add(reader.Item(0))
            Loop
            Do While reader2.Read()
                lbNomClasse.Items.Add(reader.Item(1))
            Loop
 
            reader.Close()
            reader2.Close()
 
        Catch ex As Exception
            MessageBox.Show(ex.Message.ToString())
        End Try
 
    End Sub

Edit : FUUUUU ! J'avais oublié un 2 à datareader pour le lbClasse...

Bon, maintenant que ça fonctionne, on peut passer à la suite.

Code:

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
 
Private Sub btnValider_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnValider.Click
 
        'erreur conversion double ?
        'If txtNomEleve.Text = "" Or txtPrenomEleve.Text = "" Or System.Convert.ToString(txtDaigl.Text) = "" Or System.Convert.ToString(txtAlsi.Text) = "" Or System.Convert.ToString(txtReseau.Text) = "" Or System.Convert.ToString(txtGeosi.Text) = "" Or txtDaigl.Text < 0 Or txtDaigl.Text > 20 Or txtAlsi.Text < 0 Or txtAlsi.Text > 20 Or txtReseau.Text < 0 Or txtReseau.Text > 20 Or txtGeosi.Text < 0 Or txtGeosi.Text > 20 Then
        '    If txtNomEleve.Text = "" Then
        '        MsgBox("Attention, vous devez entrer un nom pour l'élève !")
        '    ElseIf txtPrenomEleve.Text = "" Then
        '        MsgBox("Attention, vous devez entrer un prénom pour l'élève !")
        '    ElseIf System.Convert.ToString(txtDaigl.Text) = "" Or System.Convert.ToString(txtAlsi.Text) = "" Or System.Convert.ToString(txtReseau.Text) = "" Or System.Convert.ToString(txtGeosi.Text) = "" Then
        '        MsgBox("Attention, vous devez entrer toutes les notes de l'élève !")
        '    ElseIf txtDaigl.Text < 0 Or txtDaigl.Text > 20 Or txtAlsi.Text < 0 Or txtAlsi.Text > 20 Or txtReseau.Text < 0 Or txtReseau.Text > 20 Or txtGeosi.Text < 0 Or txtGeosi.Text > 20 Then
        '        MsgBox("Attention, les notes doivent être comprises entre 0 et 20 !")
        '    End If
        'Else
        Try
            Dim conn As New OracleConnection()
            conn.ConnectionString = oradb
            conn.Open()
            Dim requeteInsertClt As String
            requeteInsertClt = "INSERT INTO Utilisateur VALUES ('" & txtNomEleve.Text & "','" & txtPrenomEleve.Text & "', '" & lbNomClasse.SelectedValue & "', '" & lbNomProf.SelectedValue & "', '" & txtDaigl.Text & "','" & txtAlsi.Text & "', '" & txtReseau.Text & "', '" & txtGeosi.Text & "')"
            Dim command As New OracleClient.OracleCommand(requeteInsertClt)
            command.Connection = Conn
 
            command.ExecuteNonQuery()
        Catch ex As Exception
            Console.WriteLine(ex.Message)
        End Try
        'End If
 
    End Sub

Un mélange de bouts de code trouvés un peu partout, qui ne produit rien. :/
Pas de message d'erreur, ni d'enregistrements.

Vous voyez d’où ça peut venir ?

Edit : En fait si j'ai un message d'erreur (~~mais la message box ne s'affiche pas~~ j'avais mis console.writeline au lieu de messagebox.show :/). Ma table utilisateur débute avec un Id auto incrémenté.
Pour cela j'ai suivi un tuto qui expliquait qu'il fallait créer une séquence et un trigger pour faire l'auto incrément :

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;
/

Donc ça a été fait, maintenant je ne sais pas comment l'utiliser pour qu'il enregistre les infos que je désire avec le numéro auto incrémenté.

Comment on utilise la requête sous vb.net + le trigger de la base oracle ?