在VB中将XML对象作为字符串返回答案

【问题标题】：Return XML object as String in VB在VB中将XML对象作为字符串返回
【发布时间】：2014-12-20 08:39:06
【问题描述】：

我目前正在完成一个项目，我正在使用 Visual Basic 和 COM（组件对象模型）从一个古老的 Adobe Workflow 服务器迁移数据。

我正在尝试从 VB 中的记录集中提取 XML 对象并将其放置在 XML 文件 (data.xml) 中。问题是当我尝试将其打印到外部文件时，我收到一条错误消息...

"Cast from type 'IXMLData' to type 'String' is not valid."

我现有的代码是...

    'Open a recordset
    record = conn.Execute(SELECT xmldata FROM WorkItems)

    'Open the FileSystemObject objFs 
    objFs = CreateObject("Scripting.FileSystemObject")

    'Open a textstream (objTextStream) to virtual created file 
    objTextStream = objFs.CreateTextFile(locationStr, True)

    'Store and concatinating content into a variable
    strWriteString = "<?xml version=\1.0\encoding=\UTF-8\?>" & vbCrLf

    Dim recordXml = record.Collect(0)
    Do While Not record.EOF
        strWriteString = strWriteString & "<dummy>" & recordXml & "</dummy>" & vbCrLf
        record.MoveNext()
    Loop
    record.Close()

我尝试将对象设置为字符串，但没有成功，而且由于我在 Visual Studio 2003 中，我发现很难添加必要的库。谁能指出我应该做的正确方向？

【问题讨论】：

标签： xml vb.net visual-studio vba recordset

【解决方案1】：

在数据库中，第一列的类型是什么？换句话说，recordXml 的类型是什么？显然它不是可以直接转换为字符串的东西。找出数据类型，然后你就可以弄清楚如何转换它。

如果您在应用程序中使用 Option Explicit 可能会有所帮助，需要声明变量。

【讨论】：