1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
Try
lbEleve.Items.Clear()
Dim conn As New OracleConnection()
conn.ConnectionString = oradb
conn.Open()
'les requêtes SQL
Dim sQuery As String = "SELECT nomUtilisateur FROM Utilisateur ORDER BY nomUtilisateur"
Dim cmd As OracleCommand = New OracleCommand(sQuery, conn)
'lien entre l'objet command et la base de données
cmd.Connection = conn
'On instancie nos OracleDataReader
Dim reader As OracleDataReader = cmd.ExecuteReader()
'Tant qu'il y a des résultats à lire, on les affiche
Do While reader.Read()
lbEleve.Items.Add(reader.Item(0))
Loop
reader.Close()
Catch ex As Exception
MessageBox.Show(ex.Message.ToString())
End Try |
