Connection oracle 9i par vb.net OleDB

Version imprimable

Bonjour a tous,

Je débute en VB.net, et dans le cadre de mon stage je doit faire une application reliée au serveur oracle de l'entreprise. J'ai cherché un peu (2 jours ^^) pour savoir quelle méthode utiliser, et je suis tombé sur OleDB qui semble être la mieux adaptée.

Le problème c'est que je n'arrive pas a me connecter et à faire un simple SELECT :s

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
 
        Dim myConnection As New System.Data.OleDb.OleDbConnection("Data Source=SERVEUR;User Id=MON_ID;Password=MON_PASS;")
 
        Dim myCommand As New System.Data.OleDb.OleDbCommand("select monchamp from matable where *****;", myConnection)
 
        Dim myReader As System.Data.OleDb.OleDbDataReader = myCommand.ExecuteReader(CommandBehavior.CloseConnection)
 
        Try
            'ouverture de la connexion
            myCommand.Connection.Open()
            MessageBox.Show("Connexion ok!")
 
            While myReader.Read()
                ListView1.Items.Add(myReader.GetString(1))
            End While
 
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        Finally
 
            myReader.Close()
            myConnection.Close()
 
        End Try

Merci d'avance, je suis en galère depuis Mardi :s

08/01/2010, 10h40
Philippe Vialatte

Salut,

est-ce que ta connection est bien déclarée au niveau de ton tnsnames.ora ?
08/01/2010, 10h45
majo59

Oui, j'arrive d'ailleur à me connecter par SQL Plus
08/01/2010, 11h33
Philippe Vialatte

A quel endroit exactement as-tu un problème ?

Ouverture de la connection, ou execution de la requète.

Je regarde un peu ton code, est-ce que c'est un copier-coller sauvage de ton code actuel ?

Parce que si oui, il faudrait peut-être passer ton ExecuteReader après avoir ouvert la connection
08/01/2010, 11h41
majo59

je suis d'accord, mais lorsque je le met après, il me dit que myReader n'est pas défini :s

Normal, tu as changé la portée de myReader...

Plutôt que de t'embeter avec le finally, essaye de faire ca :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Try
   Using myConnection As New OleDbConnection("Data Source=SERVEUR;User Id=MON_ID;Password=MON_PASS;")
      Using command As New OleDbCommand("select monchamp from matable where *****;", myConnection)
 
         myConnection.Open()
         MessageBox.Show("Connexion ok!")
 
         Using reader As OleDbDataReader = command.ExecuteReader()
            While myReader.Read()
               ListView1.Items.Add(myReader.GetString(1))
            End While
         End Using
      End Using
   End Using
Catch ex As Exception
   MessageBox.Show(ex.Message)
End Try

Merci mais ça ne marche toujours pas :'(

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 myConnection As New System.Data.OleDb.OleDbConnection("Data Source=SERVEUR;User Id=MON_ID;Password=MON_PASS;")
 
       Dim myCommand As New System.Data.OleDb.OleDbCommand("select monchamp from matable where *****;", myConnection)
 
        Dim myReader As System.Data.OleDb.OleDbDataReader = myCommand.ExecuteReader(CommandBehavior.CloseConnection)
 
 
        Try
            Using myConnection As New OleDbConnection("Data Source=SERVEUR;User Id=MON_ID;Password=MON_PASS;")
                Using command As New OleDbCommand("select monchamp from matable where *****;", myConnection)
 
                    myConnection.Open()
                    MessageBox.Show("Connexion ok!")
 
                    Using reader As OleDbDataReader = command.ExecuteReader()
                        While myReader.Read()
                            ListView1.Items.Add(myReader.GetString(1))
                        End While
                    End Using
                End Using
            End Using
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try

erreurs:

Citation:

La variable 'myConnection' masque une variable dans un bloc englobant.

Citation:

Type 'OleDbConnection' non défini.

J'en ai marre :(

Citation:

Envoyé par majo59

La variable 'myConnection' masque une variable dans un bloc englobant.

Normal, tu la déclare 2 fois :
Code:

1 2 3 4 5 Dim myConnection As New System.Data.OleDb.OleDbConnection("Data Source=SERVEUR;User Id=MON_ID;Password=MON_PASS;") ... Try Using myConnection As New OleDbConnection("Data Source=SERVEUR;User Id=MON_ID;Password=MON_PASS;")
Citation:

Type 'OleDbConnection' non défini.

Ajoute l'import qui va bien en haut :

Code:

Imports System.Data.OleDb

Citation:

J'en ai marre

Mouais, après, je pense que si tu es vraiment très débutant, il faudrait que tu commences par un petit coup de lecture des tutoriaux qui vont bien, genre celui de p.lasserre :
http://plasserre.developpez.com/cours/vb-net

12/01/2010, 09h03
majo59

Bonjour,

Voila, j'ai presque réussi ce que je voulais faire.

Dans ma chaine de connexion, j'ai le nom de la base, le log, le password, mais j'ai également le provider, et je ne sait pas ce que c'est!

C'est en fonction du serveur? du client? ou alors je doit l'initialiser??? Car je n'arrive pas à me connecter à ma base :s

Merci d'avance.
12/01/2010, 09h18
laedit

Le provider, c'est le namespace des classes qui vont te servir à te connecter à ta base de données.
En l'occurrence, vu que tu passe par du OleDb, c'est tout simplement : System.Data.OleDb
12/01/2010, 09h33
majo59

Quelle rapidité :)

Il m'affiche ce message d'erreur

Citation:

le fournisseur "System.Data.OleDb " n'est pas inscrit sur l'odinateur local

Merci d'avance
12/01/2010, 09h46
laedit

Il faudrait que tu installe le connecteur .net d'Oracle sur ton ordinateur, afin que le fichier Machine.config (qui liste les providers en autre) soit modifié en conséquence.

Mais je pense que je me suis planté de provider, vu que c'est de l'OleDb tu dois le préciser dans la chaîne de connection, ayant lu en diagonale je pensais au provider qu'on doit indiquer dans le fichier de configuration de l'application.

Dans ton cas, c'est OraOLEDB.Oracle.

Un site à connaître : http://www.connectionstrings.com/

Et la partie OleDb pour Oracle : http://www.connectionstrings.com/oracle#p20
12/01/2010, 09h51
majo59

merci pour l'aide que tu m'apportes!

Ensuite, j'ai trouvé un provider qui fonctionne également (en plus de OraOLEDB.Oracle), c'est MSDAORA.1

Mais j'ai un nouveau message d'erreur :

Citation:

"ora-12154"

à ce que j'ai pu comprendre cela viens de mon tnsnames.ora...

Cordialement

PS: J'arrive pourtant à me connecter à ma base avec SQL Plus, c'est donc que mon tnsnames.ora est correct
01/02/2010, 14h24
silahi

Travaillant sur une application développé sur vb6 j'ai aussi la même erreur, si quelqu'un pouvait apporter sa lumière ça serait le bienvenu :(

Citation:

Envoyé par majo59

merci pour l'aide que tu m'apportes!

Ensuite, j'ai trouvé un provider qui fonctionne également (en plus de OraOLEDB.Oracle), c'est MSDAORA.1

Mais j'ai un nouveau message d'erreur : à ce que j'ai pu comprendre cela viens de mon tnsnames.ora...

Cordialement

PS: J'arrive pourtant à me connecter à ma base avec SQL Plus, c'est donc que mon tnsnames.ora est correct
02/02/2010, 10h10
silahi

ET en passant par une connection DSN
Bonjour, me concernant j'ai réussie à contourner le problème donc je met en ligne la ma réponse au cas où.

Alors je suis passer par une connexion dsn, vu que j'arriver pas à trouver ce qui clocher dans le tnsnames.ora.
Code:

1 2 3 Public adodbConnection As New ADODB.Connection adodbConnection.ConnectionString = "DSN=NomDsn;UID=Users;PWD=MotDePasse;" adodbConnection.Open