Обработка баз данных на Visual Basic®.NET

 Dim daInventory As New SqlDataAdapter _
 ("select * from tblInventory ", en)
 daInventory.Fill(dsInventory, "tblInventory")
 ' Сохранение поля ID как XML-атрибута, а не элемента
 dsInventory.Tables("tblInventory").Columns("ID").ColumnMapping = _
 MappingType.Attribute
 ' Сокрытие поля WholesalePrice в сохраненном XML-файле
 dslnventory.Tables("tbllnventory").Columns _
 ("WholesalePrice").ColumnMapping = MappingType.Hidden
' Сохранение данных в XML-файле, включая встроенную схему.
 dsInventory.WriteXml("..\Inventory.xml", XmlWriteMode.WriteSchema)
End Sub

После вставки данных в объект DataSet для формирования XML-файла используются следующие два выражение. Первое выражение указывает на то, что поле ID следует сохранить как XML-атрибут:

dsInventory.Tables("tblInventory").Columns("ID").ColumnMapping = _
 MappingType.Attribute

Второе выражение указывает на сокрытие поля WholesalePrice в сохраненном XML-файле:

dslnventory.Tables("tbllnventory").Columns _
 ("WholesalePrice").ColumnMapping = MappingType.Hidden

Наконец, во время сохранения данных используется второй параметр метода WriteXML, который указывает на необходимость включения XSD-схемы вместе с данными. Полученный в результате XML-файл показан в листинге 10.8.

Листинг 10.8. Пример сохранения таблицы tblInventory в виде XML-файла

<?xml version="1.0" standalone="yes"?>
<NewDataSet>
 <xs:schema id="NewDataSet" xmlns="" xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
 <xs:element name="NewDataSet" msdata:IsDataSet="true">
 <xs:complexType>
 <xs:choice maxOccurs="unbounded">
 <xs:element name="tblInventory">
 <xs:complexType>
 <xs:sequence>
 <xs:element name="ProductName" type="xs:string" minOccurs="0" msdata:Ordinal="1" />
 <xs:element name="RetailPrice" type="xs:decimal" minOccurs="0" msdata:Ordinal="3" />
 <xs:element name="Description" type="xs:string" minOccurs="0" msdata:Ordinal="4" />
 </xs:sequence>
 <xs:attribute name="ID" type="xs:int" />
 <xs:attribute name="WholesalePrice" type="xs:decimal" use="prohibited" />
 </xs:complexType>
 </xs:element>
 </xs:choice>
 </xs:complexType>
 </xs:element>
 </xs:schema>
 <tblInventory ID="1">
 <ProductName>Rubber Chicken</ProductName>
 <RetailPrice>2.99</RetailPrice>
 <Description>The quintessential rubber chicken.</Description>
 </tblInventory>
 <tblInventory ID="2">
 <ProductName>Joy Buzzer</ProductName>
 <RetailPrice>9.99</RetailPrice>
 <Description>They will get a real shock out of this.</Description>
 </tblInventory>
 <tblInventory ID="3">
 <ProductName>Seltzer Bottle</ProductName>
 <RetailPrice>15.24</RetailPrice>
 <Description>Seltzer sold separately.</Description>
 </tblInventory>
 <tblInventory ID="4">
 <ProductName>Ant Farm</ProductName>
 <RetailPrice>14.99</RetailPrice>
 <Description>Watch ants where they live and breed.</Description>
 </tblInventory>
 <tblInventory ID="5">
 <ProductName>Wind-Up Robot</ProductName>
 <RetailPrice>29.99</RetailPrice>
 <Description>Giant robot: attack toybox!</Description>
 </tblInventory>
 <tblInventory ID="6">
 <ProductName>Rubber Eyeballs</ProductName>
 <RetailPrice>0.99</RetailPrice>
 <Description>Peek-a-boo!</Description>
 </tblInventory>
 <tblInventory ID="7">
 <ProductName>Doggy Mess</ProductName>
 <RetailPrice>1.99</RetailPrice>
 <Description>Yechhh!</Description>
 </tblInventory>
 <tblInventory ID="8">
 <ProductName>Mini-Camera</ProductName>
 <RetailPrice>9.99</RetailPrice>
 <Description>For future spies!</Description>
 </tblInventory>
 <tblInventory ID="9">
 <ProductName>Glow Worms</ProductName>
 <RetailPrice>1.99</RetailPrice>
 <Description>Makes them easy to find</Description>