Я пытаюсь сохранить набор записей в XML-файл.Он создает XML-файл в указанном месте, но он пустой.Может ли кто-нибудь помочь мне здесь?
Set objConnection = CreateObject("ADODB.Connection")
Set objRecordSet = CreateObject("ADODB.Recordset")
Set objCommand = CreateObject("ADODB.Command")
objConnection.open "provider=SQLOLEDB;Server=SEA******;Database=ETL;Trusted_Connection=Yes"
Sql_Statement= ("select top 10 * from employees")
Set objRecordSet = objConnection.Execute(Sql_Statement)
objRecordSet.Save "C:\Documents\Payroll\CompareFiles\db2.xml",adPersistXML
objRecordSet.Close
objConnection.Close