Discussion :

[jacko842]

Bonjour j'ai besoin d'utiliser un dataset que j'ai déjà remplis mais je n'arrive pas a extraire les données de celui-ci.

Je sais qu'il y a la notion de DataRow: chaque DataTable inclut plusieurs objets DataRow qui contiennent les données de la source dans un enregistrement ou une présentation de type enregistrement;
DataColumn: plusieurs objets DataColumn définissent les colonnes de chaque DataRow.

J'ai essayé ceci:

Code :

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

MsgBox(dts.Tables.Item(1).Rows(0).ToString)

Mais ça me renvois système.data.datarow
J'ai aussi essayé çà

Code :

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

1
2
3
 
        MsgBox (dts.Tables["test"].Rows[0][0])
        MsgBox (dts.Tables[0].Rows[0]["CustomerID"])

Mais ça me renvois identificateur attendu.

Merci d'avance

[sihammaster]

Bonjour,
essayer ca:

Code :

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

1
2
3
4
 
dim dt as new DataTable()
dt=dts.Table("Ta Table")
Me.TextBox1.Text = dt.Rows(0)("nom")

[jacko842]

Ok super, donc je dois passé par un datatable pour extraire les données du dataset

Merci

[Graffito]

Et aussi penser à la fonction bien pratique : DataTable.Select() qui renvoie une liste de DataRows filtrée.

[hunteshiva]

pas besoin de passer par un datable pour extraire des éléments de ton DataSet

les erreurs générées sont normales a mes yeux

Code :

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

1
2
MsgBox (dts.Tables["test"].Rows[0][0])
        MsgBox (dts.Tables[0].Rows[0]["CustomerID"])

tu utilise des crochets "[]" ...
c'est pas des parenthèses plutôt ??
*j'ais jamais essayé comme sa*



je te montre une partie du programme que je suis en train de dévelloper qui fonctionne très bien

Code :

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

ObjetDataTableTblDim = ObjetDataSetTblDim.Tables("tblDimensions")

Code :

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

1
2
3
4
5
6
7
8
9
10
'Enregistrement des valeurs dans des variables
            dtNumCoupure = CInt(ObjetDataTableTblDim.Rows(indexCmbxCoupure(cmbxNomCoupure.SelectedIndex)).Item("NumCoupure").ToString)
            dtNomCoupure = ObjetDataTableTblDim.Rows(indexCmbxCoupure(cmbxNomCoupure.SelectedIndex)).Item("NomCoupure").ToString
            dtCodeProduit = ObjetDataTableTblDim.Rows(indexCmbxCoupure(cmbxNomCoupure.SelectedIndex)).Item("CodeProduit").ToString
            dtLargeurPalette = CInt(ObjetDataTableTblDim.Rows(indexCmbxCoupure(cmbxNomCoupure.SelectedIndex)).Item("LargeurPalette").ToString)
            dtLongueurPalette = CInt(ObjetDataTableTblDim.Rows(indexCmbxCoupure(cmbxNomCoupure.SelectedIndex)).Item("LongueurPalette").ToString)
            dtHauteurPalette = CInt(ObjetDataTableTblDim.Rows(indexCmbxCoupure(cmbxNomCoupure.SelectedIndex)).Item("HauteurPalette").ToString)
            dtLargeurBoite = CInt(ObjetDataTableTblDim.Rows(indexCmbxCoupure(cmbxNomCoupure.SelectedIndex)).Item("LargeurBoite").ToString)
            dtLongueurBoite = CInt(ObjetDataTableTblDim.Rows(indexCmbxCoupure(cmbxNomCoupure.SelectedIndex)).Item("LongueurBoite").ToString)
            dtHauteurBoite = CInt(ObjetDataTableTblDim.Rows(indexCmbxCoupure(cmbxNomCoupure.SelectedIndex)).Item("HauteurBoite").ToString)

c'est asse lourd j'avoue


mais en résumé la méthode est simple:

Code :

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

1
2
3
4
5
6
maVariable = monDataSet.Tables(NomTable).Rows(indexLigne).Item(indexColonne).ToString
'avec NomTable = string et les index = Integer
 
'ou
maVariable = monDataSet.Tables(NomTable).Rows(indexLigne).Item(NomColonne).ToString
'avec l'index = integer et NomTable, NomColonne = String

je t'ais mis sa un peut vite alors il y a p-e des erreus mais je pense pas



Bonne continuation

[hunteshiva]

je te rajout un bout de code qui pourra te servir on se sais jamais

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
 'Ouverture de la base a l'aide d'une interface "OpenFileDIalog" de VB.net
        Dim dialogOpen As New OpenFileDialog
        With dialogOpen
            .InitialDirectory = Application.StartupPath & "\" 'répertoire sur lequel s'ouvrira la boite
            .Title = "Choisir une fichier" 'titre de la barre
            .Filter = "Base de données(*.mdb)|*.mdb" 'filtre, seules les fichiers .mdb apparaîtront
            .ShowDialog() ' on ouvre la boite de dialogue enfin
 
        End With
 
 
        '################################################################
        '########### Initialisation des chaînes de connexion ############
        '################################################################
        'Initialisation de la chaîne de paramètres pour la connexion
        strConn = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & dialogOpen.FileName & ";"

j'utilise les base de données Access mais tu a juste a adapter le code si sa t'interesse
tu change le filtre et tu a une fenétre propre pour ouvrir ta base et récuperer le chemin de ta base

[Sankasssss]

je te montre une partie du programme que je suis en train de dévelloper qui fonctionne très bien

Code :

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

ObjetDataTableTblDim = ObjetDataSetTblDim.Tables("tblDimensions")

Code :

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

1
2
3
4
5
6
7
8
9
10
'Enregistrement des valeurs dans des variables
            dtNumCoupure = CInt(ObjetDataTableTblDim.Rows(indexCmbxCoupure(cmbxNomCoupure.SelectedIndex)).Item("NumCoupure").ToString)
            dtNomCoupure = ObjetDataTableTblDim.Rows(indexCmbxCoupure(cmbxNomCoupure.SelectedIndex)).Item("NomCoupure").ToString
            dtCodeProduit = ObjetDataTableTblDim.Rows(indexCmbxCoupure(cmbxNomCoupure.SelectedIndex)).Item("CodeProduit").ToString
            dtLargeurPalette = CInt(ObjetDataTableTblDim.Rows(indexCmbxCoupure(cmbxNomCoupure.SelectedIndex)).Item("LargeurPalette").ToString)
            dtLongueurPalette = CInt(ObjetDataTableTblDim.Rows(indexCmbxCoupure(cmbxNomCoupure.SelectedIndex)).Item("LongueurPalette").ToString)
            dtHauteurPalette = CInt(ObjetDataTableTblDim.Rows(indexCmbxCoupure(cmbxNomCoupure.SelectedIndex)).Item("HauteurPalette").ToString)
            dtLargeurBoite = CInt(ObjetDataTableTblDim.Rows(indexCmbxCoupure(cmbxNomCoupure.SelectedIndex)).Item("LargeurBoite").ToString)
            dtLongueurBoite = CInt(ObjetDataTableTblDim.Rows(indexCmbxCoupure(cmbxNomCoupure.SelectedIndex)).Item("LongueurBoite").ToString)
            dtHauteurBoite = CInt(ObjetDataTableTblDim.Rows(indexCmbxCoupure(cmbxNomCoupure.SelectedIndex)).Item("HauteurBoite").ToString)

c'est asse lourd j'avoue

C'est surtout pas facile a lire

Utilise au minimum un with :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
'Enregistrement des valeurs dans des variables
        With ObjetDataTableTblDim.Rows(indexCmbxCoupure(cmbxNomCoupure.SelectedIndex))
            dtNumCoupure = CInt(.Item("NumCoupure").ToString)
            dtNomCoupure = .Item("NomCoupure").ToString
            dtCodeProduit = .Item("CodeProduit").ToString
            dtLargeurPalette = .Item("LargeurPalette").ToString)
            dtLongueurPalette = CInt(.Item("LongueurPalette").ToString)
            dtHauteurPalette = CInt(.Item("HauteurPalette").ToString)
            dtLargeurBoite = CInt(.Item("LargeurBoite").ToString)
            dtLongueurBoite = CInt(.Item("LongueurBoite").ToString)
            dtHauteurBoite = CInt(.Item("HauteurBoite").ToString)
      End With

C'est quand même mieux, et en plus c'est plus performant : With...End With, instruction (Visual Basic)

With...End With permet d'appliquer une série d'instructions à l'objet spécifié, sans désigner à chaque fois le nom de l'objet. Si le chemin d'accès de qualification à l'objet est long, l'utilisation de With...End With peut améliorer vos performances. Un bloc With permet également d'éviter les frappes répétées du chemin d'accès de qualification et les erreurs de frappe d'un de ses éléments.

Par exemple, pour modifier plusieurs propriétés d'un seul objet, placez les instructions d'assignation de propriétés dans With...End With ; vous ne faites ainsi référence qu'une seule fois à l'objet, au lieu de le faire à chaque assignation de propriété.