Soyez le premier à donner votre avis sur cette source.
Snippet vu 16 847 fois - Téléchargée 29 fois
Dim CheminXML As String = Server.MapPath(CheminFichierXML) Dim DatasetImages As New DataSet() Dim Monrow As DataRow DatasetImages.ReadXml(CheminXML) If DatasetImages.Tables(0).Rows.Count > 0 Then ' Trie les données suivant la colonne "ID" DatasetImages.Tables(0).DefaultView.Sort = "ID" ' Charge les valeurs dans un Tableau de Rows (équivalent d'un DataTable) Dim LesRows As DataRow() = DatasetImages.Tables(0).Select("ID>0", "ID ASC") HttpContext.Current.Response.Write("Nombre de données dans le fichier XML ("& CheminFichierXML &") : ") HttpContext.Current.Response.Write( DatasetImages.Tables(0).Rows.Count &"<BR>") For Each Monrow In LesRows HttpContext.Current.Response.Write("Ligne :" & Monrow("ID") &"<BR>") Next Else HttpContext.Current.Response.Write("Pas de Données") End If
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.