VB.Net Tutorial/Database ADO.net/DataSet — различия между версиями

Материал из VB Эксперт
Перейти к: навигация, поиск
м (1 версия)
 
(нет различий)

Текущая версия на 15:56, 26 мая 2010

Build up a 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
               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")
       Catch Ex As Exception
           Console.WriteLine("Exception: " & Ex.Message)
           Console.WriteLine(Ex.ToString)
           Console.ReadLine()
       End Try
   End Sub

End Module</source>