Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.08.22;
Скачать: CL | DM;

Вниз

Загрузка XML на SQL Server с помощью Delphi 7   Найти похожие ветки 

 
Гость   (2004-08-04 15:46) [0]

Здраствуйте!!

Помогите.
Есть XML документ. Пишу программку, которая открывает его и заливает на SQL Server. В тех примерах которые даны с Delphi 7, другая схема XML файла, у меня приходится редактировать XML, по пример. А файлы бывают жутко большие.


 
Polevi ©   (2004-08-04 17:02) [1]

function MoveXML(const ProcName, XML: WideString): WideString;
begin
 cmd:=CreateOleObject("ADODB.Command");
 cmd.ActiveConnection:=connString;
 strmOut:=CreateOleObject("ADODB.Stream");
 strmOut.Open;
 cmd.Properties.Item["Output Stream"].Value:=strmOut;
 cmd.Properties.Item["Xml Root"].Value:="ROOT";
 cmd.CommandType:=4; //stored proc
 cmd.CommandText:=ProcName;
 cmd.Parameters.Append(cmd.CreateParameter("@Xml",8,1,Length(XML),XML));
 cmd.Execute(RecCount,EmptyParam,$400);
 strmOut.Position:=0;
 Result:=strmOut.ReadText;
end;


 
Polevi ©   (2004-08-04 17:05) [2]

CREATE PROCEDURE SomeProc @Xml NTEXT AS
DECLARE @Tree INT, @Id INT
EXEC sp_xml_preparedocument @Tree OUT, @Xml
OPENXML(@Tree,XPathExpr) WITH (...)
EXEC sp_xml_removedocument @Tree
GO



Страницы: 1 вся ветка

Текущий архив: 2004.08.22;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.036 c
1-1092138101
daiv
2004-08-10 15:41
2004.08.22
Добрый день. Есть список файлов


4-1089275745
Alive
2004-07-08 12:35
2004.08.22
Dll, dll, dll....


1-1092062092
sdw_syscoder
2004-08-09 18:34
2004.08.22
Перевод каретки и строки #13#10 (0D/0A)


14-1091634622
SPE-Line
2004-08-04 19:50
2004.08.22
Иконки для программ


11-1079423831
solo2
2004-03-16 10:57
2004.08.22
Я опять про DCU, подходящих ответов не нашел