1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
| Dim conect_config As String = Obj_BDD.Connect_BDD(BDD.Oracle.s_Name_Serv, BDD.Oracle.s_Name_BD, BDD.Oracle.s_Login, BDD.Oracle.s_Passw)
Dim Oraclecon As New OracleConnection(conect_config)
Dim dr = Obj_BDD.Execute_requete("SELECT ref_piece " & _
"FROM piece " & _
"ORDER BY piece.ref_piece ", Oraclecon)
Try
While dr.Read
Cbx_ListRef.Items.Add(CStr(dr.Item(0)))
'Initialise par défaut la sélection du ComboBox a Visiteur (Index=0)
Cbx_ListRef.SelectedItem = Cbx_ListRef.Items(0)
End While
Catch ex As Exception
MsgBox(ex.ToString)
End Try |
Partager