![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Хелп! Срочно .. вопрос по 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;