remplir combobox avec donnée excel

Version imprimable

09/10/2011, 22h03
sniper59

remplir combobox avec donnée excel

bonjour à tous,

j'avoue mon impuissance après une journée de recherche avec google pour résoudre mon petit problème de débutant

dans mon application, j'essaye de remplir une combobox avec une colonne issu d'un fichier excel (le fichier est rempli manuellement, j'ai juste besoin de récupérer les données)

exemple, je récupére toutes des données issues de la colonne A

ensuite, j'aimerai affiché la valeur correspondante dans un textbox (ça,je pense y arrivé une fois que je serai lire un fichier excel)

exemple, j'ai choisi la ligne équivalente à A1, je copie dans le textbox la valeur de B1 etc...

un truc très simple pour un pro, mais une montagne pour moi :oops:

si quelqu'un pouvait m'aiguiller sur la méthode :ccool:

merci d'avance

Bonjour,
Voici une ancienne méthode qui pourra te donner une piste de travail :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Dim ds As New DataSet
Dim ma_commande As OleDb.OleDbDataAdapter
Dim ma_connexion As OleDb.OleDbConnection
ma_connexion = New OleDb.OleDbConnection("provider=Microsoft.Jet.OLEDB.4.0"& _
"; data source=" & Me.OpenFileDialog_Importation_MP.FileName & _
"; Extended Properties=Excel 8.0;")
ma_commande = New OleDb.OleDbDataAdapter("Select * from [Feuil1$]",
ma_connexion)
 
ma_commande.Fill(ds)
mon_combo.DataSource = ma_commande
mon_combo.DataTextField = "TitreColonneAfficher"
mon_combo.DataValueField = "TitreColonneValeurStock"
mon_combo.DataBind()

merci pour ton aide :ccool:

ça m'a mis le pied à l'étrier , mais j'ai changé de "base de donnée":mouarf:
car la methode avec excel ne me retourner que la première ligne 8O

donc du coup je suis passé sous une BDD access avec le code si dessous
et la nickel, j'arrive enfin à avancer ;)
en prime je vais meme chercher le chemin de mon fichier qui se trouve avec mon executable

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
        ' Chemin de l'éxécutable
        ' Pour les WinForm, on peut aussi utiliser Application.ExecutablePath
        Dim exepath As String = Environment.GetCommandLineArgs()(0)
        ' Répertoire de l'executable
        exedir = exepath.Substring(0, exepath.LastIndexOf("\"c))
 
        ' remplie le ComboBox
        strConn = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source= " & exedir & "\mabase.mdb;"   'Initialisation de la chaîne de paramètres pour la connexion
        strSql = "SELECT table.* FROM table"                                          'Initialisation de la chaîne contenant l'instruction SQL
 
        ObjetConnection = New OleDbConnection                       ' Instanciation d'un Objet Connexion
        ObjetConnection.ConnectionString = strConn                  ' Donner à la propriété ConnectionString les paramètres de connexion
        ObjetConnection.Open()                                      ' Ouvrir la connexion
        ObjetCommand = New OleDbCommand(strSql)                     ' Instancier un objet Commande
        ObjetDataAdapter = New OleDbDataAdapter(ObjetCommand)       ' Instancier un objet Adapter
        ObjetCommand.Connection() = ObjetConnection                 ' initialiser l'objet Command
        ObjetDataAdapter.Fill(ObjetDataSet, "table")  ' Avec l'aide de la propriété Fill du DataAdapter charger le DataSet
        ObjetDataTable = ObjetDataSet.Tables("table") ' Mettre dans un Objet DataTable une table du DataSet
 
        ComboBox.DataSource = ObjetDataSet.Tables("table")    ' Indiquer au ComboBox d'afficher la table (indiquer la source)
        ComboBox.DisplayMember = "value"                                  ' Indiquer quelle colonne afficher