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

Прайс Кевин Т.

<state>OR</state>

<zip>89076</zip>

</Stores>

<Stores diffgr:id="Stores7" msdata:rowOrder="6" diffgr:hasChanges="inserted">

<stor_name>New Store</stor_name>

</Stores>

 </NewDataSet>

 <diffgr:before>

<Stores diffgr:id="Stores1" msdata:rowOrder="0">

<stor_id>6380</stor_id>

<stor_name>Eric the Read Books</stor_name>

<stor_address>788 Catamaugus Ave.</stor_address>

<city>Seattle</city>

<state>WA</state>

<zip>98056</zip>

</Stores>

<Stores diffgr:id="Stores2" msdata:rowOrder="1">

<stor_id>7066</stor_id>

<stor_name>Barnum's</stor_name>

<stor_address>567 Pasadena Ave.</stor_address>

<city>Tustin</city>

<state>CA</state>

<zip>92789</zip>

</Stores>

 </diffgr:before>

</diffgr:diffgram>

НА

ЗАМЕТКУ

Для сохранения только измененных записей в формате DiffGram следует использовать метод GetChanges:

Dim ChangedDataSet = dsSales.GetChanges

ChangedDataSet.WriteXml("..\Changes.xml", XmlWriteMode.DiffGram)

В листинге 10.7 приведено содержимое файла DiffGram.xml, полученного в pезультате выполнения этого метода. 

Листинг 10.7. XML-файл changes.xml в формате DiffGram только с измененными записями

<?xml version="1.0" standalone="yes"?>

<diffgr:diffgram xmlns:msdata="urn:schemas-microsoft-com:xml-msdata" xmlns:diffgr="urn:schemas-microsoft-com:xml-diffgram-v1">

 <NewDataSet>

<Stores diffgr:id="Stores1" msdata:rowOrder="0" diffgr:hasChanges="modified">

<stor_id>999</stor_fd>

<stor_name>Eric the Read Books</stor_name>

<stor_address>788 Catamaugus Ave.</stor_address>

<city>Seattle</city>

<state>WA</state>

<zip>98056</zip>

</Stores>

<Stores diffgr:id="Stores3" msdata:rowOrder="2" diffgr:hasChanges="inserted">

<stor_name>New Store</stor_name>

</Stores>

 </NewDataSet>

 <diffgr:before>

<Stores diffgr:id="Stores1" msdata:rowOrder="0">

<stor_id>6380</stor_id>

<stor_name>Eric the Read Books</stor_name>

<stor_address>788 Catamaugus Ave.</stor_address>

<city>Seattle</city>

<state>WA</state>

<zip>98056</zip>

</Stores>

<Stores diffgr:id="Stores2" msdata:rowOrder="1">

<stor_id>7066</stor_id>

<stor_name>Barnum's</stor__name>

<stor_address>567 Pasadena Ave.</stor_address>

<city>Tustin</city>

<state>CA</state>

<zip>92789</zip>

</Stores>

 </diffgr:before>

</diffgr:diffgram>

Бизнес-ситуация 10.1:

подготовка XML-файлов для бизнес-партнеров

Компания Jones Novelty обменивается информацией с помощью электронных средств передачи данных со многими своими поставщиками и партнерами. Развитие этой тенденции, вероятно, приведет к тому, что компании придется спустя какое-то время применить качественно новое решение, например систему Microsoft BizTalk Server. В настоящее время Брэд Джонс стремится удовлетворить текущие потребности и сохранить конкурентоспособность, применяя XML для передачи транзакций. Для этого будут использованы уже описанные возможности XML и ряд других, которые описываются далее. Следует отметить, что многие требования можно удовлетворить даже без использования "мощных и тяжеловесных" платформ, инструментов и технологий, например XSLT.

Сначала следует организовать отправку XML-файла с перечнем товаров на складах. Для этого должны быть посланы сведения из всех полей таблицы tblInventory, за исключением поля WholesalePrice. Хотя это можно организовать с помощью простого запроса, который включает все поля, кроме WholesalePrice, в данном примере используется способ на основе XML-свойств. Для создаваемого XML-файл существует еще одно требование: в него необходимо включить XSD-схему с описанием всех полей как элементов, за исключением поля ID, которое передается с помощью атрибута.

Для создания этого приложения выполните перечисленные ниже действия.

1. Запустите интегрированную среду разработки Visual Studio .NET и создайте новый проект Visual Basic Windows Application. Для этого в диалоговом окне New Project (Новый проект) выберите тип проекта Visual Basic Project в области Project Types (Типы проектов), а затем шаблон Windows Application (Приложение Windows) в области Templates (Шаблоны).

2. Назовите проект BusinessCaseIO.

3. Укажите путь к файлам проекта.