Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Хелп! Срочно .. вопрос по XML и БД (+) [D6, MSSQL]


Игорь ©   (2004-03-23 10:30:00) 

Возникла срочная задача: есть схема XML - файл *.xsd .. определяющая схему XML для импорта в другую БД .. схема большая .. из неё требуется взять часть и по образу части схемы создать свой XML с данными своей БД. Времени на изучение RTFM не осталось, поиском ничего не нашел .. буду благодарен за любые ценные комментарии, примеры .. как это можно сделать в кратчайшие сроки и наиболее грамотно. Не дайте пропасть в условиях deadline :)


Polevi   (2004-03-23 11:40:00) [1]

http://rusinfo.by.ru/articles/db/other/1.shtml


Polevi   (2004-03-23 11:35:00) [2]

function GetXmlBySchema(XPathRequest, SchemaFileName: string):string;
var
 cmd,strmOut,recCount:OleVariant;
begin
 strmOut:=CreateOleObject('ADODB.Stream');
 strmOut.Open;
 cmd:=CreateOleObject('ADODB.Command');
 cmd.ActiveConnection:='...';
 cmd.Properties.Item['Output Stream'].Value:=strmOut;
 cmd.Properties.Item['Mapping Schema'].Value:=SchemaFileName;
 cmd.Properties.Item['Xml Root'].Value:='Root';
 cmd.Dialect := '{ec2a4293-e898-11d2-b1b7-00C04f680c56}'; //dbguid_xpath
 cmd.CommandText:=XPathRequest;
 cmd.Execute(RecCount,EmptyParam,$400);
 strmOut.Position:=0;
 Result:=strmOut.ReadText;
end;


Наверх

Титульная страница Поиск, карта сайта Написать письмо