将数据库数据转换为 JSON

Question

我想将数据库数据转换为 JSON，但是我使用 JavaScriptSerializer 使用本网站的代码得到的结果是这样的

[{"Yes":6,"No":1,"Maybe":4}].

我的数据库表包含三列，分别命名为 Yes、No 和 Maybe，但我想要一个 JSON 格式，例如：

[{"name":"Yes","data":6},{"name":"No","data":2},{"name":"Maybe","data":3}].

表示如何在VB中将其转换为key:value对？

我的代码是：

Dim serializer As New System.Web.Script.Serialization.JavaScriptSerializer()
Dim rows As New List(Of Dictionary(Of String, Object))()
Dim row As Dictionary(Of String, Object)
For Each dr As DataRow In dt.Rows
    row = New Dictionary(Of String, Object)()
    For Each col As DataColumn In dt.Columns
        row.Add(col.ColumnName, dr(col))
    Next
    rows.Add(row)
Next
json_data = serializer.Serialize(rows)

Answer 1

改成

For Each col As DataColumn In dt.Columns
    row.Add("name", col.ColumnName)
    row.Add("data", dr(col))

Answer 2

问题不在代码中。问题是数据库模式一开始就不好。

不好：

+---------+--------+-----------+
| Yes     | No     | Maybe     |
+---------+--------+-----------+
|       6 |      2 |         4 |
+---------+--------+-----------+

好：

+---------+--------+
| Name    | Data   |
+---------+--------+
| Yes     |      6 |
+---------+--------+
| No      |      2 |
+---------+--------+
| Maybe   |      4 |
+---------+--------+

编辑

@Downvoter：假设您想稍后添加一个新属性“也许”。

+---------+--------+
| Name    | Data   |
+---------+--------+
| Yes     |      6 |
+---------+--------+
| No      |      2 |
+---------+--------+
| Maybe   |      4 |
+---------+--------+
| Perhaps |      9 |
+---------+--------+

您将如何在原始表格中执行此操作？

您可能猜到了：通过更改数据库结构以适应业务模型。