Stocker des données dans un tableau

**scarfunk** · 10/05/2010, 12h32

Désolé si je ne suis pas doué mais cela me parrait assez compliqué sur le principe.Aprés c'est peut-etre plus simple en pratique...

Le souci c'est que mon serveur m'envoi les données toutes les secondes.

**mactwist69** · 10/05/2010, 12h59

Envoyé par scarfunk

Désolé si je ne suis pas doué mais cela me parrait assez compliqué sur le principe.Aprés c'est peut-etre plus simple en pratique...

Le souci c'est que mon serveur m'envoi les données toutes les secondes.

Que te parait il compliqué?

**mactwist69** · 10/05/2010, 13h06

Au lancement de ton application, tu créer ton dataset, puis tu lui ajoutes une datatable que tu lies a ton datagridview.

Ensuite a chaque fois que tu reçois une info, tu ajoutes une ligne:

Me.MonDGV.Tables("MaTable").rows.Add(tesinfos)

Et ton datagridview est mis à jour en direct tout seul... Qu'est ce que t'en dis?

**scarfunk** · 10/05/2010, 13h32

SI j'ai a peu pré compri, mon serveur m'envoi des données instantanées...Celles-ci sont stockées dans le dataset dans une table.
Et ensuite jaffiche mes données dan le DGV avec comme source le datatable?

**mactwist69** · 10/05/2010, 15h30

Ton dataset et ta datatable sont créer dès le départ de ton application.

Quand tu reçois tu as juste a ajouter une ligne a ta datatable.

Et comme il est lié au datagridview, y'a rien a faire, ça s'affiche tout seul!

You got it!

**scarfunk** · 10/05/2010, 15h32

a chaque fois que je crois avoir compris ben je me trompe.Suis-je bête?

**mactwist69** · 10/05/2010, 16h20

Après c'est comme le vélo, ça s'oublie pas !

**scarfunk** · 10/05/2010, 17h49

Envoyé par mactwist69

Mais non tu n'as pas besoin de toute la partie connexion.

Code :

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

1
2
3
4
5
6
7
Me.MonDataset = New Dataset
Me.MonDataset.Tables.Add("MaTable")
 
Me.MonDataset.Tables("MaTable").columns.add("Col1")
Me.MonDataset.Tables("MaTable").columns.add("Col2")
 
Me.MonDataset.Tables("MaTable").Rows.add("Salut", "Salut")

Est-ce qu'il est possible que je remplisse la premiere colonne de mon datatable avec des données que j'ai dans un dictionnaire et la deuxieme colonne avec les données que je recois du serveur?

**mactwist69** · 10/05/2010, 18h24

Tout est possible dans le monde merveilleux de Billou!

Quand tu ajoutes une lignes, tu peux utiliser des variables:

Code :

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

Me.MonDataset.Tables("MaTable").Rows.add(MonDictionnaire.Item(0), MaDataServeur.ToString)

Il faut juste qu'il y est le bon nombre de colonnes, sinon, à l'insertion de la ligne, ça va lever une exception.

**scarfunk** · 11/05/2010, 10h25

Donc si j'ai bien compris, je dis bien si

:

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
 
private sub FormLoad
     'je créé mon dataset
      Me.MonDataset = New Dataset
     'Je créé ensuite ma table
      Me.MonDataset.Tables.Add("Tab1")
 
     'Je créé maintenant 2 colonnes une pour le dico, l'autre pour les données
      Me.MonDataset.Tables("Tab1").columns.add("Dico")
      Me.MonDataset.Tables("Tab1").columns.add("Données")
 
     'j'créé des lignes en y ajoutant les données
     Me.MonDataset.Tables("Tab1").Rows.add(MonDictionnaire.Item(i), MaDataServeur.ToString)
 
     'et pour terminer j'affiche en fin les données dans mon DGV
     Me.MonDGV.Tables("Tab1").rows.Add()
 
end sub

Petit problème : "MaDataServeur.ToString"!les données que je recois du serveur sont traiter dans ma fonction recevoir...

Je ne sais pas si c'est juste mais bon.

**mactwist69** · 11/05/2010, 10h35

C'est presque ça:

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
 
private sub FormLoad
     'je créé mon dataset
      Me.MonDataset = New Dataset
     'Je créé ensuite ma table
      Me.MonDataset.Tables.Add("Tab1")
 
     'Je créé maintenant 2 colonnes une pour le dico, l'autre pour les données
      Me.MonDataset.Tables("Tab1").columns.add("Dico")
      Me.MonDataset.Tables("Tab1").columns.add("Données")
 
      Me.MonDGV.DataSource= Me.MonDataset.Tables("Tab1")
 
end sub
 
Private Function Recevoir
 
     'Code Recevoir
     ' - - -
 
     Me.MonDataset.Tables("Tab1").Rows.add(MonDictionnaire.Item(i), MaDataServeur.ToString)
 
 
End Function

**scarfunk** · 11/05/2010, 10h41

j'y étais presque

Je test et je te dis ça desuite...suspense...

**scarfunk** · 11/05/2010, 10h48

message d'erreur:

MonDataSet n'est pas un membre de 'WindowsApplication1.Client

**scarfunk** · 11/05/2010, 10h57

OUi donc je reprends.Désolé pour l'érreur précédent j'ai rectifier le tir!

C'est cette ligne la qui ne lui plait pas trop:

Code :

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

1
2
 
 Me.MonDataset.Tables("Tab1").Rows.add(MonDictionnaire.Item(i), MaDataServeur.ToString)

**scarfunk** · 11/05/2010, 12h00

Voila ma fonction recevoir avec l'emplacement de la ligne à rajouter:

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
32
33
34
35
36
37
38
39
40
41
42
 
Function recevoir() As String
 
        Dim returnData As String = Nothing
        Dim inStream(10024) As Byte
        Dim serverStream As NetworkStream
        Dim x As Integer = 0
 
        If clientSocket.Connected Then
            Try
                serverStream = clientSocket.GetStream()
                serverStream.Read(inStream, 0, CInt(clientSocket.ReceiveBufferSize))
                returnData = System.Text.Encoding.ASCII.GetString(inStream)
 
                Dim len As Integer = returnData.IndexOf("$")
 
                If len < 0 Then
                    len = 0
                End If
 
                If Donnees.ETAT = Donnees.ATTE Or Donnees.ETAT = Donnees.CONN Then
                    MiseEnFormeConn(returnData)
                Else
                    If Donnees.ETAT = Donnees.AUTH Then
                        x = MiseEnFormeDonnees(returnData)
                        MsgBox(x)
                    End If
                End If
 
                returnData = returnData.Substring(0, len)
 
                'ligne à rajouter
 
 
            Catch ex As Exception
                'MsgBox(ex.Message)
                msg(Donnees.ERR_REC)
            End Try
        End If
        Return returnData
 
    End Function

et voici la ligne que j'ai à rajouter dans la fonction recevoir:

Code :

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

1
2
 
Me.DataSet.Tables("Tab1").rows.add(DicAff.DicEssais.Values, returndata)

DicAFF est un module qui contient des collection (de type dictionnaire) et des structures.

DicEssais.Values me permet d'afficher seulement les valeurs du dictionnaires mais dans mon datagrid il m'affiche l'erreur suivante:

System.Collection.Generic.Dictionnary '2+ValueCollection[System.String,System.string]

**mactwist69** · 11/05/2010, 12h12

Tout semble bon, a part l'appel au dictionnaire. Et malheureusement, je ne l'ai encore jamais utilisé.

Mais apparemment:

Code :

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

DicAff.DicEssais.Values

Ne désigne pas UN élément en particulier.
Ça devrait, a priori, ressembler a quelque chose comme:

Code :

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

DicAff.DicEssais(12).Values

ou

Code :

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

DicAff.DicEssais.Item(12).Values

Il faut que tu regardes aussi ce que te retourne cette fonction, si c'est juste un String ou une Collection de String (un ensemble de 2 string).

**scarfunk** · 11/05/2010, 12h44

Les dictionnaire possède une clé et une valeur.
Ensuite a toi de voir si tu veux afficher clé ou valeur ou les deux.

Le souci c'est que moi je veux afficher toutes les valeurs de mon dictionnaires...

**mactwist69** · 11/05/2010, 12h52

Et bien tu peux toujours:

Code :

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

Me.DataSet.Tables("Tab1").rows.add(DicAff.DicEssais.Cle.Values & " " & DicAff.DicEssais.Valeur.Values, returndata)

ou un truc dans le genre...

**scarfunk** · 11/05/2010, 12h59

Dans mon cas dans la premiere colonne je ne veux afficher que les valeur et non pas les clés...

précédement voila comment je remplissais la premiere colonne de mon DGV avec ma collection:

Code :

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

1
2
3
4
5
6
7
8
9
For Each kvp As KeyValuePair(of string , string) in DicoAff.DicEssais
     if kvp.Value <> Nothing then
           if j > DGV.RowCount - 1 then
                  DGV.Row.Add()
           end if
           DGV.Rows(j).Cells(0).Value = kvp.Value
           j += 1
     end if
next kvp

**scarfunk** · 12/05/2010, 10h58

Bon alors je me suis penché sur le problème toute la soirée et je n'ai toujours pas la solution.Je vous explique.

Lorsque je rempli mon dataSet manuellement c'est-a-dire que je tape directement mon texte dedans tous fonctionne corectement:

Code :

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

1
2
3
4
5
6
7
8
 
For i = 0 To Ubound(Tab) - 1
     If i<> Nothing then 
          If i > DataGridView1.rowCount - 1 then
               Me.DataSet.Tables("Tab1").Rows.Add("blabla",Tab(i))
          End If 
     End If
Next

Mais lorsque je lui dis de remplir la table automatiquement il me génére un erreur et je ne comprend pas du tout pourquoi.
Voici le code:

Code :

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

1
2
3
4
5
6
7
 
For Each kvp As KeyValuePair(Of string,string) In DicoAff.DicEssais 'dicoaff est un module et dicessais une collection (de type dictionnaire
      If Kvp.Value <> Nothing then
            Me.DataSet.Tables("Tab1").Rows.Add(kvp.value,Tab(i))
            i = i + 1
      end if
Next kvp

AIDEZ MOI !!!!!!!!

Stocker des données dans un tableau

VB.NET

Discussions similaires

Partager

Partager