转换数据库数据转换成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？

我的代码是：

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 | 
+---------+--------+ 

你会如何去做在原表中做到这一点？

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