VB.Net Tutorial/Database ADO.net/DataSet XML — различия между версиями
Admin (обсуждение | вклад) м (1 версия) |
(нет различий)
|
Текущая версия на 15:56, 26 мая 2010
Load XML data to DataSet
<source lang="vbnet">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</source>
Save data in DataSet to xml file
<source lang="vbnet">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 DS.Tables(0).Rows(I).Item("Author") = UCase(DS.Tables(0).Rows(I).Item("Author")) Next 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 DS.WriteXml("NewAuthors.xml") Console.ReadLine() Catch Ex As Exception Console.WriteLine("Exception: " & Ex.Message) Console.WriteLine(Ex.ToString) End Try End Sub
End Module</source>