Question

我正在编写一个简单的XML Web服务，并希望返回原始XML。我这样做是通过创建一个表示XML的字符串文字。我的数据源是一个SqlDataReader对象，它包含存储的proc调用的结果。我现在这样做的方法是使用while循环并从item属性中读取值，如下所示：

'string builder to create the literal
Dim sb As New StringBuilder()
sb.Append("<?xml version='1.0' encoding='ISO-8859-1'?>")
sb.Append("<members>")

'dr is an instance of SqlDataReader
While (dr.Read())
    sb.Append("<member>")
    sb.Append(String.Concat("<PersonnelID>", dr.Item("PersonnelID"), "</PersonnelID>"))
    sb.Append(String.Concat("<FirstName>", dr.Item("FirstName"), "</FirstName>"))
    sb.Append("</member>")
End While
sb.Append("</members>")

问题是存储过程中返回的十几个字段并将其中的每一个写出来似乎效率低下。有没有办法迭代每一行获取列名和值，所以我可以这样做：

sb.Append(String.Concat("<",ColName,">", dr.Item(ColName), "</",ColName,">"))

有人可以建议我怎么做吗？谢谢！

Answer 1

这应该有效（仅为了完整性而添加了using语句）：

Using dr = cmd.ExecuteReader()
    Dim sb As New System.Text.StringBuilder()
    sb.Append("<?xml version='1.0' encoding='ISO-8859-1'?>")
    sb.Append("<members>")
    While (dr.Read())
        sb.Append("<member>")
        For i = 0 To dr.FieldCount - 1
            sb.Append(String.Format("<{0}>{1}</{0}>", dr.GetName(i), dr(i)))
        Next
        sb.Append("</member>")
    End While
    sb.Append("</members>")
End Using

Ado.net迭代遍历SqlDataReader行中的每一列

1 个答案: