' Определяем константы ADO.

Const adCmdText = 1

Const adExecuteStream = &H400

' Создание объектов

Dim cmd,conn,cmdStream

Dim ie

Set ie = CreateObject("InternetExplorer.Application")

ie.Navigate "about:blank"

Set cmd = CreateObject("ADODB.Command")

Set conn = CreateObject("ADODB.Connection")

Set cmdStream = CreateObject("ADODB.Stream")

conn.Provider = "sqloledb"

conn.Open "Data Source=server;Initial catalog=pubs;", "user", "password"

cmdStream.Open

Set cmd.ActiveConnection = conn

cmd.CommandType = adCmdText

' XPath-запрос

cmd.CommandText = "Авторы"

' Диалект XPath

cmd.Dialect = "{EC2A4293-E898-11D2-B1B7-00C04F680C56}"

cmd.Properties("Base Path") = "C:Inetpubwwwrootserver_pubs"

cmd.Properties("Output Stream") = cmdStream

' Аннотированная схема

cmd.Properties("Mapping Schema") = "schemamyschema.xml"

' Шаблон трансформации

cmd.Properties("XSL") = "templatefirst_select.xsl"

cmd.Properties("xml root") = "my_root"

cmd.Execute , , adExecuteStream

Dim str

str = cmdStream.ReadText

do

Поделитесь этой записью или добавьте в закладки