1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
| Dim custconn As OracleConnection = New OracleConnection(connectstr)
Dim monreader As OracleDataReader, mescomm As New OracleCommand
Dim MaRequete As String
MaRequete = "select nomemploye from EMPLOYE order by nomemploye asc"
'Remplissage du ListBox1 contenant les vues
custconn.Open()
mescomm.Connection = custconn
mescomm.CommandType = CommandType.Text
mescomm.CommandText = MaRequete
monreader = mescomm.ExecuteReader
ListBox1.Items.Clear()
Do While monreader.Read
ListBox1.Items.Add(Trim(monreader!nomemploye) )
Loop
custconn.Close() |