ну вот, в том же BOL читаем пример, о котором ты спрашивал:
на стороне сервера хранимая процедура
CREATE PROCEDURE SP_OpenXML_Example
@XMLDoc varchar(2000)
AS
DECLARE @ReturnCode INT
DECLARE @iDoc int
EXECUTE sp_xml_preparedocument @iDoc OUTPUT, @XMLDoc
SELECT * FROM OpenXML(@iDoc, '/ROOT/Customers',1)
WITH (CustomerID varchar(10), ContactName varchar(20))
EXECUTE sp_xml_removedocument @iDoc
SELECT @ReturnCode = 1
RETURN @ReturnCode
GO
Здесь мы передаём в процедуру XML (не более 2000 байт длиной) и делаем по нему запрос. Результатом работы процедуры будет таблица с запрошенными данными.
На стороне клиента (для SQL сервера) ASP-страница на VB, использующая ADO:
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Developer Studio"/>
<META HTTP-EQUIV="Content-Type" content="text/html" charset="iso-8859-1"/>
<TITLE>ADO 2.6 OpenXML Example - OpenXML.asp</TITLE>
<STYLE>
BODY
{
FONT-FAMILY: Tahoma;
FONT-SIZE: 8pt;
OVERFLOW: auto
}
H3
{
FONT-FAMILY: Tahoma;
FONT-SIZE: 8pt;
OVERFLOW: auto
}
</STYLE>
<!-- #include file="adovbs.inc" -->
<%
Response.Write "Page Generated @ " & Now() & "<BR/>"
Dim sConn
sConn = "Provider=SQLOLEDB;Data Source=MYSERVER1;Initial Catalog=Northwind;Trusted_Connection=yes;}
Response.write "Connect String = " & sConn & "<BR/>"
Dim adoConn
Set adoConn = Server.CreateObject("ADODB.Connection")
adoConn.ConnectionString = sConn
adoConn.CursorLocation = adUseClient
adoConn.Open
Response.write "ADO Version = " & adoConn.Version & "<BR/>"
Response.write "adoConn.State = " & adoConn.State & "<BR/>"
Dim sXMLDoc, sQuery
sXMLDoc = "<ROOT>"
sXMLDoc = sXMLDoc & "<Customers CustomerID='VINET' ContactName='Paul Henriot'>"
sXMLDoc = sXMLDoc & "<Orders CustomerID='VINET' EmployeeID='5' OrderDate='1996-07-04T00:00:00'>"
sXMLDoc = sXMLDoc & "<Order_0020_Details OrderID='10248' ProductID='11' Quantity='12'/>"
sXMLDoc = sXMLDoc & "<Order_0020_Details OrderID='10248' ProductID='42' Quantity='10'/>"
sXMLDoc = sXMLDoc & "</Orders>"
sXMLDoc = sXMLDoc & "</Customers>"
sXMLDoc = sXMLDoc & "<Customers CustomerID='LILAS' ContactName='Carlos Gonzlez'>"
sXMLDoc = sXMLDoc & "<Orders CustomerID='LILAS' EmployeeID='3' OrderDate='1996-08-16T00:00:00'>"
sXMLDoc = sXMLDoc & "<Order_0020_Details OrderID='10283' ProductID='72' Quantity='3'/>"
sXMLDoc = sXMLDoc & "</Orders>"
sXMLDoc = sXMLDoc & "</Customers>"
sXMLDoc = sXMLDoc & "</ROOT>"
sQuery = "SP_OpenXML_Example"
Response.write "sQuery = " & sQuery & "<BR/>"
Dim adoCmd
Set adoCmd = Server.CreateObject("ADODB.Command")
Set adoCmd.ActiveConnection = adoConn
adoCmd.CommandText = sQuery
adoCmd.CommandType = adCmdStoredProc
adoCmd.Parameters.Refresh
adoCmd.Parameters.Item(1).Value = sXMLDoc
Dim adoRS
Set adoRS = adoCmd.Execute()
Response.write "Data = " & adoRS.Fields(0).Value & "<BR/>"
adoRS.Close
Response.write "ReturnValue = " & adoCmd.Parameters.Item(0).Value & "<BR/>"
%>
</HEAD>
<BODY>
</BODY>
</HTML>
Здесь мы вручную составляем строчку XML, а затем средствами ADO вызваем описанную выше хранимую процедуру, куда в качестве параметра передаём строчку XML-документа. Далее я не так хорошо знаю VB, чтобы сказать, что делается потом. Подозреваю, что выводится значение первой колонки первой (вот этого я и не вижу - может опечатка) строки полученной таблицы, а также код возврата процедуры (в данном случае 1).
