DataSet.ReadXml : DataSet « System.Data « VB.Net by API

1. VB.Net by API
2. System.Data
3. DataSet

DataSet.ReadXml

  


Imports System.Data.SqlClient
Imports System.Data

Module Module1

    Sub Main()
        Try
            Dim DS As New DataSet()

            DS.ReadXml("Authors.XML")

            Dim XMLContent As String = DS.GetXml()

            Dim I As Integer

            For I = 0 To DS.Tables(0).Rows.Count - 1
                Console.WriteLine(DS.Tables(0).Rows(I).Item("Title"))
                Console.WriteLine(DS.Tables(0).Rows(I).Item("Author"))
                Console.WriteLine(DS.Tables(0).Rows(I).Item("Publisher"))
                Console.WriteLine(DS.Tables(0).Rows(I).Item("Price"))
            Next

        Catch Ex As Exception
            Console.WriteLine("Exception: " & Ex.Message)
            Console.WriteLine(Ex.ToString)
        End Try

    End Sub

End Module

   
    
  

Related examples in the same category