L'index se trouve en dehors des limites du tableau

Version imprimable

Bonjour
J'éssaie d'afficher des combobox.items à partir d'une bd access.
Les items sont affichés dans le champ de cette manniére: 4|7|3
Je veux les afficher dans la combobox d'une façon verticale.
Je me sert de ce code:
Code:

1 2 3 4 5 6 7 Dim SeparValeur() As String Dim T As Integer With ComboBox1 SeparValeur = Split("verse", "|") For T = 0 To 5 .Items.Add(SeparValeur(T)) Next T
Je reçois ce message:
L'index se trouve en dehors des limites du tableau
Merci

18/10/2013, 13h05
callo
Ton tableau a combien d'élements? Fais attention à la taille du tableau. Si c'est 5 éléments, alors tu devrais avoir:
Code:

1 2 3 For T = 0 To 4 .Items.Add(SeparValeur(T)) Next T

Code:

SeparValeur = Split("verse", "|")

Tu demandes de décomposer la chaîne "verse" à chaque caractère | donc selon la logique, la chaîne "verse" ne contenant aucun | alors Split te retourne un tableau avec un seul élément (qui contient "verse"), et lorsque tu boucles, tu écris en dur la limite du tableau sans connaitre la limite de ton tableau, ton tableau n'ayant qu'un item, il ne peut boucler jusqu'à 5 ...
Code:

1 2 3 4 5 6 7 Dim SeparValeur() As String Dim T As Integer With ComboBox1 SeparValeur = Split("verse", "|") For T = 0 To SperValeur.Count() - 1 .Items.Add(SeparValeur(T)) Next T
En revanche, je ne pense pas que ce soit ce que tu souhaites faire ...
"verse" c'est quoi ? Réellement une chaîne ou une variable pour laquelle tu as fait l'erreur de la mettre entre "" ?

Dis-nous en plus sur ce que tu souhaites faire pour te donner des conseils adaptés.

18/10/2013, 15h20
zidane22

Merci beaucoup de vos réponse

En fait mon probléme et que je cherche un code qui me permet d'afficher les items du combobox d'une façon verticale.

Citation:

"verse" c'est quoi ?

"verse" est supposée etre le nom du champ à partir du quel je voudrais récupérer les enregistrements 4|7|3 et pouvoir les afficher dans la combobox d'une maniére verticale.
Merci
18/10/2013, 16h24
_Ez3kiel

Citation:

Envoyé par zidane22

Merci beaucoup de vos réponse

En fait mon probléme et que je cherche un code qui me permet d'afficher les items du combobox d'une façon verticale.

Je suis pas sûr de comprendre, les items d'une combobox s'affichent déjà de manière verticale ... Tu parles d'une combobox avec plusieurs colonnes ?
Peux-tu schématiser (même grossièrement) le résultat que tu veux obtenir avec ta combo ?

Citation:

Envoyé par zidane22

"verse" est supposée etre le nom du champ à partir du quel je voudrais récupérer les enregistrements 4|7|3 et pouvoir les afficher dans la combobox d'une maniére verticale.
Merci

Je lis enregistrement, donc je déduis que par champ tu désignes le nom d'une colonne d'une base de donnée ? Peut-on voir le code complet de ton accès à la base et de la récupération de tes données ?

Voici mon code pour ajouter

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim cb As New OleDb.OleDbCommandBuilder(da)
        Dim dsNewRow As DataRow
        dsNewRow = ds.Tables(0).NewRow()
        dsNewRow.Item("Nom") = TextBox1.Text
        dsNewRow.Item("Prenom") = TextBox2.Text
        dsNewRow.Item("Age") = TextBox3.Text
        dsNewRow.Item("verse") = ComboBox1.Items(0)
        For i = 1 To ComboBox1.Items.Count - 1
            dsNewRow.Item("verse") = dsNewRow.Item("verse") & "|" & CStr(ComboBox1.Items(i))
        Next
        'Dim cmd As OleDbCommand
        ds.Tables("data").Rows.Add(dsNewRow)
        da.Update(ds, "data")

Pour la lecture:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        con = New OleDb.OleDbConnection
        con.ConnectionString = "Provider=Microsoft.Jet.Oledb.4.0; Data Source=" & Application.StartupPath & "\data.mdb"
 
        SQL = "SELECT * FROM table1"
        da = New OleDb.OleDbDataAdapter(SQL, con)
        da.Fill(ds, "data")
        con.Close()
        MaxRows = ds.Tables("data").Rows.Count
        DataGridView1.DataSource = ds
        DataGridView1.DataMember = "data"
Dim SeparValeur() As String
        Dim T As Integer
        With ComboBox1
.DataSource = ds.Tables("data")
            .DisplayMember = "verse"
            SeparValeur = Split("verse", "|")
            For T = 0 To 5
                .Items.Add(SeparValeur(T))
            Next T

merci

bonjour
Verticalement votre....

1/parcourir les row du datable
2/pour chaque row :
-recuperer avec l'index de colonne approprie,ton champ dans string
-le splitter (split renvoie un tableau de string)
-l'ajouter à combox

archi simple et voici un exemple avec un datatable exemple avec une seule colonne :

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
 
'ajouter :
'- un bouton
'- un combo
'- un dgv pour comprendre l'exemple
Public Class frmSplitChamp
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim dt As DataTable = New DataTable
        AjoutColonnes(dt)
        AjoutLignes(dt)
        DataGridView1.DataSource = dt
 
        For Each dr As DataRow In dt.Rows
            For i As Integer = 0 To dt.Columns.Count - 1
 
                'lit valeur colonne
                Dim strValeur As String = dr.Item(i).ToString
 
                'split  valeur dans un array de string
                Dim arStr() As String = strValeur.Split("|")
 
                'charge le tableau dans combo....avec AddRange !!!
                ComboBox1.Items.AddRange(arStr)
            Next
 
        Next
 
 
    End Sub
    'cree 1 colonne  pour data table exemple
    Private Sub AjoutColonnes(ByVal dt As DataTable)
 
        Dim dc As DataColumn = New DataColumn
 
        ' add column 1
        dc = New DataColumn
        dc.Caption = "Title Col1"
        dc.ColumnName = "Column1"
        dc.DataType = GetType(String)
        dc.DefaultValue = Nothing
        dt.Columns.Add(dc)
 
 
 
    End Sub
    'ajoute 4 ligne  pour data table exemple
    Private Sub AjoutLignes(ByVal dt As DataTable)
        Dim stringAr(4) As String
        stringAr(0) = "4|7|3"
        stringAr(1) = "17|23|35"
        stringAr(2) = "14|17|13"
        stringAr(3) = "1004|1007|1003"
 
        For Each item As String In stringAr
            dt.Rows.Add(item)
        Next
 
    End Sub
End Class

bon code....

18/10/2013, 20h09
zidane22

merci MABROUKI
Votre code est extraordinaire. c'ést le code que je cherche pour l'appliquer sur mon combobox.
Malheureusement j'ai passé 2 heures essayant de l'adapter pour mon cas mais en vain.
pourriez vous me donner un coup de main pour y arriver?
merci
18/10/2013, 21h27
zidane22

Bonjour
enfin un progrés..
J'ai pu appliquer le code mais cette fois je reçois un message:

Citation:

Impossible de modifier la collection d'éléments lorsque la propriété DataSource est définie.

j'ai éssayé avec:

Code:

ComboBox1.DataSource = Nothing

mais ça pas marché.

rebonjour
Tu ajoutes un row en mettant dans son champ "verse" les items concatenes du ComboBox1 et separes ....par "|"...
Question :
- s'il y a plusieurs rows remplis de cette facon ,si on veut relire ,quel row lire car
=> d'une part un datatable contient plusieurs rows
=>et d'autre part tu as un seul combo qui doit contenir les items concatenes d'un seul row...

La seule solution c'est avoir un 2eme combo qui selectionne la row voulue
et ton combo ajouteras ses items du row selectionne....

Enfin notes au passage que ces maudits items sont toujours "verticaux" !!!...

tu pourrais reprendre ton code ainsi avec un 2eme combo charge de selectionner le row voulu:

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
 
 'un champ de portee form
 Private dt As DataTable = Nothing
 
  Private Sub frmSplitChamp_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        con = New OleDb.OleDbConnection
        con.ConnectionString = "Provider=Microsoft.Jet.Oledb.4.0; Data Source=" & Application.StartupPath & "\data.mdb"
 
        Sql = "SELECT * FROM table1"
        da = New OleDb.OleDbDataAdapter(Sql, con)
        da.Fill(ds, "data")
        con.Close()
        MaxRows = ds.Tables("data").Rows.Count
        DataGridView1.DataSource = ds
        DataGridView1.DataMember = "data"
 
        'ici le combox2 charge de recuperer le row selectionne
        ComboBox2.DataSource = dt
        ComboBox2.DisplayMember = "verse"
 
        'recupere l'intance du datatable
        dt  = ds.Tables("data")
 
        ' la suite se passe dans ComboBox2_SelectedIndexChanged
 
 
        End Sub
 
 Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox2.SelectedIndexChanged
        If dt Is Nothing Then Return  ' do nothing ...return
 
        Dim index As Integer = ComboBox2.SelectedIndex
 
        ' selected row  
        Dim dr As DataRow = dt.Rows(index)
 
        'lire la valeur de la  colonne du champ "verse" 
        Dim strValeur As String = dr.Item("verse").ToString
 
        'split  valeur dans un array de string
        Dim arStr() As String = strValeur.Split("|")
 
        'nettoye   ComboBox1
        ComboBox1.Items.Clear()
 
        'charge le tableau dans combobox1....avec AddRange !!!
        ComboBox1.Items.AddRange(arStr)
    End Sub

bon code....

19/10/2013, 00h31
zidane22

merci MABROUKI de votre précieuse aide.
J'ai pu rejoindre les deux code dans form_load event au lieu de l'event SelectedIndexChanged.Il m'a sufit juste de modifier cette ligne:

Code:

Dim index As Integer = ComboBox2.SelectedIndex

par

Code:

Dim index As Integer = ComboBox2.Items.Count - 1

Le code fonctionne tres bien et je vous remercie beaucoup pour ça, neaumoins j'aspire à trouver un code qui va me permettre de d'afficher la combobox items verticalement sans passer par la creation d'un deuxieme combo.
merci encvore.

Enfin c'ést presque résolu..
Dans form_load j'ai mis ce code.
Et j'ai pu me débarrasser du deuxieme combobox.
Cependant j'ai rendu compte que le code ne peux récupérer que le premier champ.

Code:

1
2
3
4
5
6
7
8
9
ComboBox1.DataSource = dt
        ComboBox1.DisplayMember = "verse"
        dt  = ds.Tables("data")
Dim index As Integer = ComboBox1.Items.Count -1
        Dim dr As DataRow = dt.Rows(index)
        Dim strValeur As String = dr.Item("verse").ToString
        Dim arStr() As String = strValeur.Split("|")
        ComboBox1.Items.Clear()
        ComboBox1.Items.AddRange(arStr)