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 26 27 28 29 30 31 32 33
|
Dim oradb As String = "Data Source=127.0.0.1;User Id=gestionMatiere;Password=gestionMatiere;"
Private Sub AjoutEleve_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim conn As New OracleConnection()
conn.ConnectionString = oradb
conn.Open()
'On instancie notre OracleDataReader
Dim sQuery As String = "SELECT DISTINCT NOMPROF FROM PROF"
Dim sQuery2 As String = "SELECT DISTINCT NOMCLASSE FROM CLASSE"
Dim cmd As OracleCommand = New OracleCommand(sQuery)
Dim cmd2 As OracleCommand = New OracleCommand(sQuery2)
Dim reader As OracleDataReader = cmd.ExecuteReader()
Dim reader2 As OracleDataReader = cmd2.ExecuteReader()
'Tant qu'il y a des résultats à lire, on les affiche
cmbNomClasse.Items.Clear()
cmbNomProf.Items.Clear()
Do While reader.Read()
cmbNomProf.Items.Add(reader.GetString(2))
Loop
Do While reader2.Read()
cmbNomClasse.Items.Add(reader.GetString(1))
Loop
reader.Close()
reader2.Close()
End Sub |
Partager