Voici une petite fonction très simple qui affiche le contenue d'un DATASET dans la fenêtre de sortie (OUT) de VS 2003.
Fort utile dans le débugage!
Source / Exemple :
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
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.