Extraire les données d'un dataset

Version imprimable

02/04/2010, 12h58
jacko842

Extraire les données d'un dataset
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:

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

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

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

Bonjour,
essayer ca:

Code:

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

02/04/2010, 13h08
jacko842

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

Merci
02/04/2010, 13h16
Graffito

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

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

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

Code:

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:

ObjetDataTableTblDim = ObjetDataSetTblDim.Tables("tblDimensions")

Code:

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: :mrgreen:

Code:

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 :ccool:

Bonne continuation ;)

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

Code:

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 :ccool:

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

Code:

ObjetDataTableTblDim = ObjetDataSetTblDim.Tables("tblDimensions")
Code:

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 :mouarf:

Utilise au minimum un with :
Code:

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)

Citation:

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é.

03/04/2010, 20h21
jacko842

Merci pour tous ces renseignements :ccool: