1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
| chaine = "DRIVER={MySQL ODBC 5.1 Driver};SERVER=localhost;DATABASE=projet;UID=root;PASSWORD=;"
sql = "select genre.nom from genre order by genre.nom;"
connect = New OdbcConnection
connect.ConnectionString = chaine
connect.Open()
macommande = New OdbcCommand(sql)
madata = New OdbcDataAdapter(macommande)
macommande.Connection = connect
film = New DataSet
madata.Fill(film, "genre") 'la proprieté Fill permet de charger le Dataset
matable = film.Tables("genre")
cbxgenre.DataSource = matable
cbxgenre.DisplayMember = "genre.nom"
cbxgenre.ValueMember = "genre.nom" |
Partager