Форум: "Потрепаться";
Текущий архив: 2004.08.22;
Скачать: [xml.tar.bz2];
ВнизЗагрузка 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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.039 c