Base Oracle et vb.net 2008

Version imprimable

Bonjour,

j'ai un soucis pour me connecter.
Voici mon code :

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
 
Imports System.Data
Imports Oracle.DataAccess.Client ' ODP.NET Oracle managed provider
Public Class Gestion_notes
    Public oradb As String = "Data Source=localhost;User Id=gestionMatiere;Password=gestionMatiere;"
    Public conn As New OracleConnection(oradb)
 
    Private Sub Gestion_notes_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        Try
            conn.Open()
            'exemple de requete sql
            Dim sql As String = "select * FROM utilisateur"
 
            Dim cmd As New OracleCommand(sql, conn)
            'cmd.CommandType = CommandType.Text
            Dim dr As OracleDataReader = cmd.ExecuteReader()
            dr.Read()
            'Label1.Text = dr.Item("dname") ' lecture de la colonne (via le nom de colonne)
            'Label1.Text = dr.Item(0) ' lecture de la première colonne (via l'indice) 
            'Label1.Text = dr.GetString(0) ' lecture de la première colonne (via l'indice)
        Catch ex As Exception
            MessageBox.Show(ex.Message.ToString())
 
        End Try
 
    End Sub

Ce code fonctionnait très bien comme ceci sur le PC du lycée mais chez moi cela ne fonctionne pas.

Le message d'erreur :

Citation:

L'exception InvalidOperationException n'a pas été gérée. La référence d'objet n'est pas définie à une instance d'un objet.

Je n'ai pas plus d'infos. Apparemment c'est un problème redondant mais je n'ai pas trouvé de solution.
Je ne met que ce bout de code puisque l'erreur apparaît au lancement du programme, donc dans le load je suppose.

Si vous avez des idées,

merci.

18/04/2011, 15h21
Kropernic

As-tu la base de données oracle de ton lycée installée sur ton ordinateur chez toi ?
18/04/2011, 15h23
Pol63

l'erreur fournit aussi le numéro de ligne qui passe en erreur dans le stacktrace ...
18/04/2011, 15h25
feldi

Citation:

Envoyé par griftou

As-tu la base de données oracle de ton lycée installée sur ton ordinateur chez toi ?

Oui, je dispose d'oracle 10g ainsi que de SQL developper. La même installation qu'au lycée.

Citation:

Envoyé par Pol63

l'erreur fournit aussi le numéro de ligne qui passe en erreur dans le stacktrace ...

Stacktrace :

Citation:

à gestionMatiereEleve.My.MyProject.MyForms.Create__Instance__[T](T Instance) dans 17d14f5c-a337-4978-8281-53493378c1071.vb:ligne 190
à gestionMatiereEleve.My.MyProject.MyForms.get_Gestion_notes()
à gestionMatiereEleve.My.MyApplication.OnCreateMainForm() dans K:\AP\AP 5 - Gestion notes Oracle\gestionMatiereEleve\My Project\Application.Designer.vb:ligne 35
à Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.OnRun()
à Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.DoApplicationModel()
à Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.Run(String[] commandLine)
à gestionMatiereEleve.My.MyApplication.Main(String[] Args) dans 17d14f5c-a337-4978-8281-53493378c1071.vb:ligne 81
à System.AppDomain._nExecuteAssembly(Assembly assembly, String[] args)
à Microsoft.VisualStudio.HostingProcess.HostProc.RunUsersAssembly()
à System.Threading.ExecutionContext.Run(ExecutionContext executionContext, ContextCallback callback, Object state)
à System.Threading.ThreadHelper.ThreadStart()
18/04/2011, 15h31
Pol63

la création du form a planté, donc soit son constructeur a planté, soit des new dans des variables de classes
dans le code que tu nous donnes, la seule ligne correspondant à ca est

Code:

Public conn As New OracleConnection(oradb)

ce qui voudrait dire que la classe oracleconnection plante ... peut etre qu'elle n'aime pas la chaine de connexion
tu peux enlever cette ligne et déclarer conn dans le try catch pour voir l'erreur, ou voir s'il n'y a pas une InnerException dans l'erreur ...
18/04/2011, 15h38
feldi
Ouh la...
Bon déjà j'ai du réécrire la ligne dans chacun de mes sub, étant donné qu'il n'accepte pas de public dans la déclaration.
Ensuite au lancement, j'ai une message box : "La référence..."

La form se lance !
Et dès que je choisis une action, le script plante avec un message :
"La référence d'objet..." sur la ligne
Code:

1 2 Dim conn As New OracleConnection(oradb)
que j'ai réécrit dans mon autre sub.
18/04/2011, 15h44
Pol63

public ne peut pas apparaitre au sein d'une sub, il faut alors utiliser dim

sinon comme je l'ai dit, regarde s'il n'y a pas une innerexception sur ex en mettant un point d'arret sur le catch
18/04/2011, 15h48
feldi

J'ai mis un point d'arrêt sur Catch mais à part la message box qui pop pour me dire que la référence n'est pas définie, il ne se passe rien. Il lance la form.
Peut être que je n'ai pas bien compris ce que tu voulais dire...

Edit : dans valeur, il m'indique "Expression attendue". ça vient de la peut être ?
18/04/2011, 15h53
Pol63

tu mets ton point d'arret sur la ligne du messagebox
une fois dessus, tu sélectionnes ex et tu fais shift+F9 (ou clic droit espion express)
tu verras les propriétés de ex, dont une nommée InnerException
si elle ne vaut pas nothing, il y a des chances qu'elle t'en dise plus sur le problème
(innerexception est de type exception et peut donc aussi avoir une innerexception ...)
18/04/2011, 15h54
feldi

InnerException est à Nothing :/
19/04/2011, 15h52
feldi
Bon...

J'ai rajouté toutes les références possibles concernant Oracle (références .net et com), j'ai fais les imports de plusieurs "machins" (je sais pas si c'est des librairies, classes, ...) :
Code:

1 2 3 4 5 6 Imports System.Data Imports Oracle.DataAccess.Client ' ODP.NET Oracle managed provider Imports Oracle.DataAccess.Server Imports ORAOLEDBLib Imports Oracle.DataAccess.Types
J'ai toujours le même message d'erreur...
J'ai vraiment besoin de connaître la façon de régler ce problème pour au moins vérifier que ce j'ai déjà fait fonctionne :/
19/04/2011, 16h02
Pol63

demande sur le forum oracle ou c# (c# est pareil que vb.net à part la syntaxe et y a moins de noobs chez eux, donc potentiellement plus de pros ...)

sinon imports sert à ne pas avoir à taper les namespaces pour utiliser les noms, ca ne fait rien de plus
par exemple pour taper bitmap au lieu de system.drawing.bitmap on ajoute imports system.drawing en haut
ajouter une dll en référence permet par contre d'utiliser les classes contenues dedans
19/04/2011, 16h05
feldi

OK merci des précisions !
19/04/2011, 16h20
Bluedeep

Déjà, neutraliser l'exception handler et dérouler en pas à pas plutot que mettre des BP, et nous dire quelle est la ligne qui plante, ce sera plus simple.
19/04/2011, 16h51
Pol63

je pense que c'est le new OrclaConnection(chaine) qui plante
je crois que j'ai déjà vu des gens avec la même erreur sur le forum ...
19/04/2011, 17h03
Bluedeep

Citation:

Envoyé par Pol63

je pense que c'est le new OrclaConnection(chaine) qui plante
je crois que j'ai déjà vu des gens avec la même erreur sur le forum ...

Je connais mal le formattage des chaines de connexions de Oracle (surtout sans passer par le TNSNAMES) mais le DataSource=LocalHost me semble suspect.
19/04/2011, 17h27
feldi

Citation:

Envoyé par Bluedeep

Déjà, neutraliser l'exception handler et dérouler en pas à pas plutot que mettre des BP, et nous dire quelle est la ligne qui plante, ce sera plus simple.

Neutraliser l'exception handler = enlever le try catch ?
Si oui, j'ai essayé. Mode pas à pas : il s'arrête sur la ligne du Public conn...

Et l'espion sur conn me dit que sa valeur est à nothing.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Dim oradb As String = "Data Source=(DESCRIPTION=" _
           + "(ADDRESS_LIST=(ADDRESS=(PROTOCOL=TCP)(HOST=OTNSRVR)(PORT=1521)))" _
           + "(CONNECT_DATA=(SERVER=DEDICATED)(SERVICE_NAME=ORCL)));" _
           + "User Id=gestionMatiere;Password=gestionMatiere;"
    'Public oradb As String = "Data Source=127.0.0.1;User Id=gestionMatiere;Password=gestionMatiere;"
    'Public conn As New OracleConnection(oradb)
 
 
    Public Sub Gestion_notes_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()

J'ai repris ce code du cours de développez.com : http://xo.developpez.com/tutoriel/do...acle/odt/#L3.2

J'ai cette fois ci le message :

Citation:

La référence d'objet...

dans une message box et le programme se lance enfin !

Par contre, quand je clique sur un bouton, par exemple :

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
 
Private Sub btnAjoutEleve_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAjoutEleve.Click
        Dim conn As New OracleConnection()
        conn.ConnectionString = oradb
        Dim requeteProf As String = "SELECT COUNT DISTINCT(nomProf) FROM prof"
        Dim requeteClasse As String = "SELECT COUNT DISTINCT(nomClasse) FROM Classe"
 
        Dim orclCommand As New OracleCommand(requeteProf, conn)
        Dim orclCommand2 As New OracleCommand(requeteClasse, conn)
 
        'conn.Open()
        'définition de la requete sql
 
        Dim MonDataSet As New DataSet
 
        Dim mondataSet2 As New DataSet
 
 
        'Mon adapter recupere les données de ma requete
        'ici sql est ta requete sql et conn est ta connexion oracle
        Dim MonAdapter As New OracleDataAdapter(requeteProf, conn)
        Dim monadapter2 As New OracleDataAdapter(requeteClasse, conn)
 
        'que j'insere dans mon dataset
        MonAdapter.Fill(MonDataSet, "prof")
        monadapter2.Fill(mondataSet2, "classe")
        If mondataSet2.Tables("classe").Rows.Count > 0 Then
            Dim Matable2 As New DataTable
            Matable2 = mondataSet2.Tables("classe")
            AjoutEleve.ShowDialog()
        Else
            MessageBox.Show("Attention, il n'y a pas de classes enregistrées. L'ajout d'un élève est donc impossible")
        End If
        If MonDataSet.Tables("prof").Rows.Count > 0 Then
            Dim Matable As New DataTable
            Matable = MonDataSet.Tables("prof")
            AjoutEleve.ShowDialog()
        Else
            MessageBox.Show("Attention, il n'y a pas de profs enregistrés. L'ajout d'un élève est donc impossible")
        End If
 
 
    End Sub

l'appli plante et j'obtiens un message d'erreur sur

Citation:

Dim conn As New OracleConnection()

de mon sub Ajout_Eleve avec toujours le même message

Citation:

La référence ...

Une idée ? :/

19/04/2011, 18h00
Bluedeep

Question : utilises tu le provider Microsoft pour Oracle ou celui de Oracle ?
19/04/2011, 18h01
feldi

Euh joker ?
Non sérieusement, aucune idée. J'ai simplement installé ma base, configuré l'utilisateur gestionMatiere et commencé à coder mon programme.
19/04/2011, 18h11
Bluedeep

Citation:

Envoyé par feldi

Euh joker ?
Non sérieusement, aucune idée. J'ai simplement installé ma base, configuré l'utilisateur gestionMatiere et commencé à coder mon programme.

Si c'est la version Microsoft, le NS est System.Data.OracleClient si c'est celui de Oracle, c'est quelque chose comme Oracle.Data.etc ....
19/04/2011, 18h12
Pol63

il a fait des imports oracle.quelquechose ...
19/04/2011, 18h25
Bluedeep

Citation:

Envoyé par Pol63

il a fait des imports oracle.quelquechose ...

Ah oui, c'était marqué dans le code. Au temps pour moi.

Donc le constructeur par défaut merdouille.

As tu essayé un autre ? (si il y en a).
19/04/2011, 18h40
feldi

Citation:

Envoyé par Bluedeep

Ah oui, c'était marqué dans le code. Au temps pour moi.

Donc le constructeur par défaut merdouille.

As tu essayé un autre ? (si il y en a).

Comme ? Le créer moi-même ?
19/04/2011, 20h00
feldi

Problème résolu.
Fallait supprimer toutes les références, faire une référence à System.Data.OracleClient et faire un

Code:

import system.data.oracleclient

C'est tout...

Bon maintenant j'ai un problème comme j'utilise W7 en 64 bits et qu'apparemment ma version oracle est en 32 bits...