Discussion :

[majo59]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Philippe Vialatte]

Salut,

est-ce que ta connection est bien déclarée au niveau de ton tnsnames.ora ?

[majo59]

Oui, j'arrive d'ailleur à me connecter par SQL Plus

[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

[majo59]

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

[Philippe Vialatte]

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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