[Oracle] Object reference not set to an instance of an object.

Bonjour,

J'ai mis en place une connexion à une base Oracle via VB mais je rencontre un petit problème :

J'ai déclaré ceci hors du Main() :

Code:

1
2
3
4
 
' Connection Oracle
Dim connectionOra As ADODB.Connection
Dim requeteOra As ADODB.Recordset

Ensuite j'ouvre (début) et ferme(fin) la connection dans le Main() :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
'Déclaration de la variable de connexion
connectionOra = New ADODB.Connection
 
'Définition de la chaîne de connexion
Dim connectionString = "ACCESSDB=OLEDB-ORACLE;Provider=ORAOLEDB.ORACLE.1;Password=MotDePasse;User ID=Utilisateur;Data Source=BaseDeDonnée"
 
' Ouverture de la connection à la base de donnée
connectionOra.Open(connectionString, "", "", 0)
 
...
 
' Déconnexion de la base de donnée
connectionOra.Close()

Et durant le traitement, j'appelle différente fonction qui éxécute des requétes dans la base ouverte précédemment :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Dim tabDonnees(1) As Object
tabDonnees(0) = False
tabDonnees(1) = "A Renseigner"
Try
   theme = Replace(theme, "'", "''")
   soustheme = Replace(soustheme, "'", "''")
   requeteOra.Open("SELECT COUNT(*) FROM MATABLE WHERE ""Theme""='" & theme & "' AND ""Sous-theme""='" & soustheme & "'", connectionOra)
   requeteOra.MoveFirst()
      tabDonnees(0) = True
      tabDonnees(1) = requeteOra("COUNT(*)")
   End If
   Return tabDonnees
Catch err As Exception
   incrementerLog(codeLogErreur, "[errFct] " & err.Message & " -> " & err.StackTrace)
   Return tabDonnees
End Try

Mon erreur apparait lorsque le script éxécute cette ligne :

Code:

1
2
 
requeteOra.Open("SELECT COUNT(*) FROM MATABLE WHERE ""Theme""='" & theme & "' AND ""Sous-theme""='" & soustheme & "'", connectionOra)

L'erreur est :

Code:

1
2
 
[errFct] Object reference not set to an instance of an object. ->    at verif_completion.Module_objet.recupererFamille(String theme, String soustheme) in D:\Batchn2\2008-10-09\verif_completion\Module_objet.vb:line 1186

Pourriez-vous me donner un petit coup de main ? Car je n'arrive pas à cibler le probléme.

Merci d'avance.