Comment remplir une liste d'une base Access
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:
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.