.net JSON格式應用

2013-09-09
.net JSON格式應用
 
JSON資料集格式:
 
下載
 
具有層級的資料格式
[
  {
    "dataSet": {
      "dataName": "dataValue",
      "dataName": "dataValue",
      "dataSet2": {
        "dataName": "dataValue",
        "dataName": "dataValue"
      },
      "dataSet3": {
        "dataName": "dataValue",
        "dataName": "dataValue"
      }
    }
  },
  {
    "dataSet": {
      "dataName": "dataValue",
      "dataName": "dataValue",
      "dataSet2": {
        "dataName": "dataValue",
        "dataName": "dataValue"
      },
      "dataSet3": {
        "dataName": "dataValue",
        "dataName": "dataValue"
      }
    }
  }
]
 
不具有層級的資料格式
 
{
  "dataName": "dataValue",
  "dataName": "dataValue"
}
 
需要的Library (請下載附加文件)
 
I mports Newtonsoft.Json
I mports Newtonsoft.Json.Linq
 
讀取JSON格式資料 
(具層級)
 
Dim JsonString As String = JSON的資料集
Dim getJson As JObject
getJson = JsonConvert.DeserializeObject(Of JObject)(JsonString)
Dim DataSet As Object = getJson.Item("資料層集名稱")
Dim DataName As Object = DataSet.Item("資料層集底下的資料名稱")
Dim PrintOutValue As String = DataName.ToString '由於讀取的內容為物件格式,若要在文件中印出來則需要將該JSON物件轉換為字串
 
(不具層級)
 
Dim JsonString As String = JSON的資料集
Dim getJson As JObject
getJson = JsonConvert.DeserializeObject(Of JObject)(JsonString)
Dim DataName As Object = getJson.Item("資料名稱")
Dim PrintOutValue As String = DataName.ToString '由於讀取的內容為物件格式,若要在文件中印出來則需要將該JSON物件轉換為字串
 
 
製作JSON格式資料
由資料庫內容轉換
 
queryString = "Select top 20 * From [資料庫名稱][dbo][資料表]" 'SQL指令 (此範例只讀取20列資料)
Dim dt As New DataTable '建立一組dataTable
Dim conn As New SqlConnection(connString) '建立連結
Dim da As New SqlDataAdapter(queryString, conn) '執行指令
da.Fill(dt) '將讀取的資料置入DataTable
conn.Close()
Dim JsonOutput as String = JsonConvert.SerializeObject(dt,Formatting.Indented) '將DataTable內的資料轉換為Json格式
Me.文件中id名稱.InnerText = JsonOutput '將轉換好的內容顯示在頁面中
 
 
在線JSON格式閱讀器
 

Contact

Github

Codepen

歡迎參觀我的賣場
© 2013 Copyright Digishot Web | Design Tools
Visitors【526544】
digishot webdesign studio