Discussion :

[Igmar]

Bonjour, le sujet est dans l'intitulé du message. Tout simplement je n ariive pas a remplir une liste d'une base de données Access.

Voici le code :

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
23
24
25
26
27
28
29
30
31
 Dim i As Integer
                    Dim Listbox1 As New ComboBox
                    While cRepertoire <> ""
                        dsFB.Clear()
                        '    MsgBox("Dans Manu " & cRepertoire & "  " & cKey)
                        istat = Get_Private_Profile_String(cRubrique, cKey, "", cRepertoire, cIniFile)
                        cRepertoire = cRepertoire.Replace("n", "")
                        cKey = CType(Val(cKey) + 1, String)
                        Listbox1.Items.Add(cRepertoire)
                    End While
                    SQLadd = "SELECT * FROM  Liste_FB "
                    cmd.CommandText = SQLadd
                    cmd.Connection = cn
                    cmd.ExecuteNonQuery()
                    cbListeFB = New OleDbCommandBuilder(da1)
                    da1.SelectCommand = cmd
                    da1.Fill(dsFB, "ListeFB")
                    dtt = dsFB.Tables("ListeFB")
                    Dim j As Integer
 
                    For i = 0 To dtt.Rows.Count - 1
                        For j = 0 To Listbox1.Items.Count - 2
 
                            MsgBox(Listbox1.Items(j))
                            dsFB.Tables("ListeFB").Rows(i).Item("FB_ID_format") = Listbox1.Items(j)
                            'dsFB.Tables("ListeFB"). = Listbox1
                        Next
                        'dtt = dsFB.Tables("ListeFB")
                    Next
                    da1.Update(dsFB, "ListeFB")
                    dsFB.AcceptChanges()

J'ai comme résultat le remplissage de la colonne de seulement le dernier item de la Listview. Alors que je parcours bien la ListView et que je rempli la colonne. Mais la valeur est ecrasé sur le premier index. Et je ne voi pas comment changé d'index.
Pour info les valeurs de la ListVIew sont issu d'un fichier de parametrage .ini.
Merci de votre aide.

[Igmar]

Alors les développeurs, vous êtes là ??

Personne n'a une petite piste ??

J'ai bo chercher, je trouve rien !!!

[Aspic]

Je comprends pas ton code et je ne vois pas de listview mais une combobox !! que tu as appellée listbox ^^

[Igmar]

Oui en fait j'ai fai une modif pensant que le résultat pourrait avancée...
Pou être plus clair, je charge des données dans un combobox ou bien une listview peut importe cela ne sert que de passerelle. Les données sont issues d'un fichier .ini. Le souci n'est pas la puisque je les récupèrent (dans un listview ou combobox) mais plutot au niveau de la sauvegarde de ses données dans une base de données.
Donc 2 choix s'offrent a priori a moi c'est la le pb)
- une commande SQL insérant un nouvel enregistrement dans la colonne qui va bien.
- passer par un Dataset, en ajoutant un enregistrement.

Et comme résultat de mon programme (pas tres clair, il est vrai.. je débute ) j'ai le dernier élément du Combobox. Les éléments sont écrasés.

Voila j'espere avoir été plus clair.
En tout cas je te remercies Aspic pour ton aide !

[Aspic]

Bah oui fais une requete Insert dans ta BDD pour enregistrer... Ou est le soucis exactement ?

[Igmar]

La requète !!! Et oui je ne vois pas bien comment faire, en plus j'étais partie vers le DataSet et en fait c'est la galère...

Si tu as une idée de la requète... J'écume les tutos en attendant une éventuelle proposition.

Merci

Damien