CONTENU DATASET

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        'prend les infos de la table Clients de la base de données et le met dans le dataset
        dsRaSql = objSql.mgInfoClient

        'envoie le contenue du dataset dans la fenetre "Sortie" (out)
        PrintTable(dsRaSql)

    End Sub


#Region " PrintTable "

    '''''''''''''''''''''''''''''''''''''''''''''''''''
    ''''''''''''''PrintTable''''''''''''''''''''''''
    '''''''''''''''''''''''''''''''''''''''''''''''''''
    Private Sub PrintTable(ByVal ds As DataSet)
        Console.WriteLine("Voici ce que nous avons maintenant dans le dataset:")
        Dim i As Integer
        For i = 0 To ds.Tables.Count - 1
            Dim dtclient As DataTable = ds.Tables(i)
            'première façon d'afficher le nom des colonnes
            Dim curcol As Integer
            For curcol = 0 To dtclient.Columns.Count - 1
                Console.Write(dtclient.Columns(curcol).ColumnName.Trim() & vbTab)
            Next
            Console.WriteLine()
            'deuxième façon d'afficher le nom des colonnes
            Dim col As New DataColumn
            For Each col In dtclient.Columns
                Console.Write(dtclient.Columns(col.ColumnName).ToString.Trim & vbTab)
            Next
            Console.WriteLine()
            'première façon d'afficher le contenu du dataset
            Dim currow As Integer
            For currow = 0 To dtclient.Rows.Count - 1
                For curcol = 0 To dtclient.Columns.Count - 1
                    Console.Write(dtclient.Rows(currow)(curcol).ToString().Trim() & vbTab)
                Next
                Console.WriteLine()
            Next
            Console.WriteLine()
        Next
    End Sub
#End Region

Télécharger le zip