Не мудрствуя лукаво, возьму запрос из самого первого примера этой статьи. Вот полный исходный текст vbs-скрипта:
Const adopenStatic = 3Const adLockReadOnly = 1Const adCmdText = 1Const adPersistXML = 1Dim rsSet rs = CreateObject("ADODB.Recordset")rs.Open "select au_fname,au_lname,address from authors where au_fname like 'M%'", _ "Provider=sqloledb;Data Source=server;Initial Catalog=pubs;" & _ "User Id=user;Password=password;", adopenStatic, adLockReadOnly, adCmdTextrs.Save "c:\myrs.xml", adPersistXML |
Следующий пример демонстрирует загрузку XML-документа в объект Recordset:
Const adopenStatic = 3Const adLockReadOnly = 1Const adCmdFile = 256Dim rsSet rs = CreateObject("ADODB.Recordset")rs.Open "c:\myrs.xml", "Provider=MSPersist;", adopenStatic, adLockReadOnly, adCmdFile |