轉換數據庫數據轉換成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 | 
+---------+--------+ 

你會如何去做在原表中做到這一點？

您可能猜到了：通過更改數據庫結構以適應業務模型。