Discussion :

[sniper59]

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

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

merci d'avance

[m_brun]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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()

[sniper59]

merci pour ton aide

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

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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