Insertion de données dans une BDD Oracle avec VB.NET

Version imprimable

Bonsoir chers amis développeurs et chères amies développeuses !! C'est un petit souci qui m'amène parmi vous, car aprés avoir passé l'aprem sur msdn library, et aprés avoir écumé le forum, en désespoir de cause, je viens vous embêter et prendre un peu de votre temps pour que vous m'aidiez à voir plus clair dans le code que voici =>

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
Private Sub bt_ajout_pays_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_ajout_pays.Click
 
            Dim pays As String
            pays = zs_ajout_pays.Text
            Dim maConnexion As OracleClient.OracleConnection
            Dim myCommand As OracleClient.OracleCommand
            Dim Requete As String
            Dim ConnexionSQL As String
            ConnexionSQL = "Data Source=PLOP;Persist Security Info=True;User ID=PLIP;Unicode=True"
            maConnexion = New OracleClient.OracleConnection(ConnexionSQL)
            Requete = "INSERT INTO PAYS (NO_PAYS, NOM_PAYS) VALUES (50, @pays)"
            myCommand = New OracleClient.OracleCommand(Requete, maConnexion)
            With myCommand.Parameters
                .Add(New OracleClient.OracleParameter("50", OracleClient.OracleType.Int16))
                .Add(New OracleClient.OracleParameter("@pays", OracleClient.OracleType.VarChar))
            End With
            Try
                myCommand.Connection.Open()
                myCommand.ExecuteOracleNonQuery(1)
                myCommand.Connection.Close()
            Catch ex As OracleClient.OracleException
                Console.WriteLine(ex.Message)
            End Try
            msg = zs_ajout_pays.Text & " a bien été ajouté"
            MsgBox(msg)
            zs_ajout_pays.Clear()
            bt_ajout_pays.Text = "Ajouter"
End Sub

C'est simplement un code qui devrait me permettre d'ajouter une ligne dans une table, mais en fait, rien ne se passe :?
Je développe sous Visual Studio 2005 (oué sinon je posterais pas ici) en vb.net, et je dois insérer des données dans une base Oracle avec un client oracle8i...

Si vous arrivez à déceler où j'ai commis une erreur, faites le savoir haut et fort !!!
D'avance merci :)

21/01/2008, 19h16
Bluedeep

Bonsoir

A vue de nez et bien que je ne sois pas exactement un pro de Oracle :

- ton 50 dans ta chaine doit être remplacé par le nom d'un paramètre. Il ne constitue pas a priori un nom de paramètre valide.

- Par ailleurs tu ne donne de valeurs à aucun de tes deux paramètres.

Ca ne peut donc pas marcher.

effectivement si tu mets "50" en dur dans la requête, tu n'as pas besoin d'un paramètre pour, ça, donc tu peux enlever la ligne suivante:

Code:

.Add(New OracleClient.OracleParameter("50", OracleClient.OracleType.Int16))

De plus, sous Oracle les les changements que tu fais sont exécutés dans une transaction: tant que tu n'as pas validé la transaction ("commit"), les changements ne sont pas réellements répercutés dans la base, ils ne sont visibles que dans ta session. Tu peux voir ça comme un fichier que tu modifies, tant que tu n'as pas cliqué sur "enregistrer", le fichier n'est pas modifié. Ici, tu te déconnectes immédiatement de la base sans avoir fait le commit, donc tes modifications disparaissent... ("rollback" implicite).
Essaie comme ça:
Code:

1 2 3 4 5 6 7 myCommand.Connection.Open() Dim t as OracleTransaction = myCommand.Connection.BeginTransaction() myCommand.Transaction = t myCommand.ExecuteOracleNonQuery(1) t.Commit() myCommand.Connection.Close()
EDIT: Celà dit, je me demande si le provider ADO.NET n'est pas en mode "auto-commit", c'est à dire qu'il fait le commit automatiquement avant de se déconnecter... donc ce n'est peut-être pas ça le problème, mais essaie toujours.
A part ça, cette ligne pose un problème:

Code:

myCommand.ExecuteOracleNonQuery(1)

Le paramètre de cette fonction est passé par référence (ByRef), donc il faut passer une variable, pas une constante; en plus le paramètre n'est pas un entier, il est de type OracleString. D'ailleurs j'arrive pas à croire que le compilateur laisse passer ça... Encore un des gros défauts de Visual Basic mis en évidence !
Code:

1 2 3 Dim rowid as OracleString myCommand.ExecuteOracleNonQuery(rowid)

Citation:

Envoyé par Bluedeep

Ca ne peut donc pas marcher.

Ok, je mets donc des valeurs dans mes paramètres,

Citation:

tant que tu n'as pas validé la transaction ("commit"), les changements ne sont pas réellements répercutés dans la base

D'acc, je rajoute donc ce que tu proposes :)
Citation:
A part ça, cette ligne pose un problème:
Code:

1 2 myCommand.ExecuteOracleNonQuery(1)
Le paramètre de cette fonction est passé par référence (ByRef), donc il faut passer une variable, pas une constante; en plus le paramètre n'est pas un entier, il est de type OracleString
Houh bin tu vois, là j'apprends un truc ^^

ce qui donne =>
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 Private Sub bt_ajout_pays_Click(ByVal... Dim pays As String pays = zs_ajout_pays.Text 'UNE CHAINE DE TEXTE TAPEE PAR L'UTILISATEUR Dim num As Integer num = 20 'UN NOMBRE QUE J'AI CHOISI AU HASARD ConnexionSQL = "Data Source=BLIP;Persist Security Info=True;User ID=BLOP;Unicode=True" maConnexion = New OracleClient.OracleConnection(ConnexionSQL) Requete = "INSERT INTO PAYS (NO_PAYS, NOM_PAYS) VALUES (@num, @pays)" myCommand = New OracleClient.OracleCommand(Requete, maConnexion) With myCommand.Parameters .Add(New OracleClient.OracleParameter("@num", OracleClient.OracleType.Int16)) .Add(New OracleClient.OracleParameter("@pays", OracleClient.OracleType.VarChar)) End With Try myCommand.Connection.Open() Dim t As OracleClient.OracleTransaction = myCommand.Connection.BeginTransaction() myCommand.Transaction = t Dim rowid As OracleClient.OracleString myCommand.ExecuteOracleNonQuery(rowid) t.Commit() myCommand.Connection.Close() Catch ex As OracleClient.OracleException Console.WriteLine(ex.Message) End Try
Mais ça ne marche pas mieux, donc le problème ne vient pas de là :P

Petite question... faut-il attribuer une valeur à rowid ?????? Je pense que oui, et si c'est le cas, quelle valeur dois-je lui donner ? J'avoue que je n'ai pas tout à fait compris ce petit point :)

En tout cas merci pour vos messages !

22/01/2008, 10h40
Bluedeep

Citation:

Envoyé par tomlev

De plus, sous Oracle les les changements que tu fais sont exécutés dans une transaction: tant que tu n'as pas validé la transaction ("commit"), les changements ne sont pas réellements

Mais pas du tout !!!!

Ce que tu dis est vrai en cas d'utilisation d'une transaction explicite (comme pour tous les SGBD et ce n'est pas propre à Oracle), mais si tu ne démarre pas une transaction, tu peux faire un update qui sera répercuté à la DB comme avec n'importe quel autre SGBD (enfin pour ceux que je connais : Sql Server, Oracle, PostGre).

Pour être plus précis, si tu ne déclare pas explicitement une transaction, une transaction implicite est utilisée au niveau de la commande ou de la proc. stoc. (mais encore une fois, tu as le même comportement avec Sql Server ou PostGre - quoique je ne sois pas sur à 100% pour ce dernier).

.

Hem hem, je me suis dit que si la requête ne s'executait pas c'était ptet parce que les paramètres qui lui sont passés ont une valeur nulle... du coup l'insert ne se fait pas. Donc j'ai un peu revu le code, mais ça ne marche toujours pas :mrgreen:
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 Dim pays As String pays = PAPOUASIE Dim num As Integer num = 20 Dim maConnexion As OracleClient.OracleConnection Dim myCommand As OracleClient.OracleCommand Dim Requete As String Dim ConnexionSQL As String ConnexionSQL = "Data Source=PLIP;Persist Security Info=True;User ID=PLOP;Unicode=True" maConnexion = New OracleClient.OracleConnection(ConnexionSQL) Requete = "INSERT INTO PAYS (NO_PAYS, NOM_PAYS) VALUES (" & num & " , '" & pays & "')" myCommand = New OracleClient.OracleCommand(Requete, maConnexion) Try myCommand.Connection.Open() Dim t As OracleClient.OracleTransaction = myCommand.Connection.BeginTransaction() myCommand.Transaction = t Dim rowid As OracleClient.OracleString rowid = New OracleClient.OracleString myCommand.ExecuteOracleNonQuery(rowid) t.Commit() myCommand.Connection.Close() Catch ex As OracleClient.OracleException Console.WriteLine(ex.Message) End Try
Le code s'execute sans planter mais il ne se passe rien... Jcomprend pas.
Siouplait, si vous avez une idée de génie, je suis preneur XD

22/01/2008, 15h47
tomlev

Citation:

Envoyé par Bluedeep

Mais pas du tout !!!!

Ce que tu dis est vrai en cas d'utilisation d'une transaction explicite (comme pour tous les SGBD et ce n'est pas propre à Oracle), mais si tu ne démarre pas une transaction, tu peux faire un update qui sera répercuté à la DB comme avec n'importe quel autre SGBD (enfin pour ceux que je connais : Sql Server, Oracle, PostGre).

Pour être plus précis, si tu ne déclare pas explicitement une transaction, une transaction implicite est utilisée au niveau de la commande ou de la proc. stoc. (mais encore une fois, tu as le même comportement avec Sql Server ou PostGre - quoique je ne sois pas sur à 100% pour ce dernier).

.

Ben je sais pas, dans mon environnement de travail (Oracle 9, Solaris 9) le commit n'est pas implicite... si je me déconnecte sans commit, les modifs sont perdues.

Citation:

Houh bin tu vois, là j'apprends un truc

ben il suffisait de regarder la doc, je l'ai pas sorti d'un chapeau ;)

Citation:

Petite question... faut-il attribuer une valeur à rowid ?????? Je pense que oui, et si c'est le cas, quelle valeur dois-je lui donner ?

Non, rowid est un paramètre de sortie de la fonction ExecuteOracleNonQuery, c'est à dire que c'est la fonction qui donne une valeur à la variable. Et c'est pour ça qu'il faut passer une variable et non une valeur littérale...
Le rowid est l'identifiant interne d'une ligne, généré par Oracle, et tu ne peux pas choisir toi-même la valeur

Bon j'ai trouvé d'où venait l'erreur... L'ouverture de la connexion n'aurait pas du se trouver dans le Try : au moins j'aurais vu qu'il n'y avait pas le mot de passe dans la chaine de connexion ^^ Vraiment débile comme erreur... Merci quand même de votre aide.

Voici le code corrigé, ça pourra peut-être aider des gens :)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 Dim maConnexion As OracleClient.OracleConnection Dim myCommand As OracleClient.OracleCommand Dim Requete As String Dim ConnexionSQL As String Dim no as Integer Dim pays as String ConnexionSQL = "chaine de connexion" maConnexion = New OracleClient.OracleConnection(ConnexionSQL) Requete = "INSERT INTO PAYS (NO_PAYS, NOM_PAYS) VALUES (" & no & " , '" & pays & "')" myCommand = New OracleClient.OracleCommand(Requete, maConnexion) myCommand.Connection.Open() Try myCommand.ExecuteNonQuery() Catch ex As OracleClient.OracleException Console.WriteLine(ex.Message) End Try myCommand.Connection.Close() msg = "Le pays " & zs_ajout_pays.Text & " a bien été ajouté" MsgBox(msg)
Par contre, une petite question encore : sauriez vous comment récuperer le résultat d'une requete de sélection dans une variable ??
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 ConnexionSQL = "chaine de connexion" maConnexion = New OracleClient.OracleConnection(ConnexionSQL) Requete = "SELECT MAX(NO_PAYS)AS NUM FROM PAYS" myCommand = New OracleClient.OracleCommand(Requete, maConnexion) myCommand.Connection.Open() Try myCommand.ExecuteNonQuery() 'RECUPERER LE RESULTAT DE LA REQUETE ET LE METTRE DANS UNE VARIABLE... Catch ex As Exception Console.WriteLine(ex.Message) End Try
je voudrais récupérer le plus grand NO_PAYS et le caler dans une variable... La requête est bonne, il me manque juste un petit coup de pouce :)