[VB.NET] JSON的产生与读取汇入

前端之家收集整理的这篇文章主要介绍了[VB.NET] JSON的产生与读取汇入前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。

不詳細介紹JSON是什麼東東啦,反正就是一種資料交換或是傳遞的格式,還挺方便使用的唷。

範例大概狀況是這樣,我有兩個Table是一對多的狀況,就是一個訂單底下有很多Item項目,

主要任務就想把這兩個Table的資料產生成JSON的格式。

前置作業

Imports Newtonsoft.Json
Imports Newtonsoft.Json.Linq
這兩個要用的先Imports進來。
  1. 先建立Data Object
01 Public Class JsonDO
02
03 Private A As Integer = 0
04 Private B As String = ""
05 Private C As Integer = 0
06
07 Private item As Object
08
09
10 Public Property pA() As Integer
11 Get
12 Return A
13 End Get
14 Set(ByVal value As Integer)
15 A= value
16 End Set
17 End Property
18
19 Public Property pB() As String
20 Get
21 Return B
22 End Get
23 Set(ByVal value As String)
24 B= value
25 End Set
26 End Property
27
28 Public Property pC() As Integer
29 Get
30 Return C
31 End Get
32 Set(ByVal value As Integer)
33 C= value
34 End Set
35 End Property
36
37 Public Property pItem() As Object
38 Get
39 Return item
40 End Get
41 Set(ByVal value As Object)
42 item = value
43 End Set
44 End Property
45
46
47 End Class

2.把資料撈出來後塞進JsonDO,然後就可以產生JSON囉

1 Dim Jstring As String
2 Dim Jrecord As New JsonDO
3
4 '省略把資料塞進DO的Code唷~
5
6 '這段就是產生JSON的
7 Jstring = JsonConvert.SerializeObject(Jrecord)

3.抓取JSON中的值匯入

01 '因為是範例所以還是先產生JSON字串,等等才可以讀取。
02 Dim ImportJson As JObject
03 ImportJson = JsonConvert.DeserializeObject(Of JObject)(Jstring)
04
05 '這段意思就是我要讀取主檔資料表中Item欄位資料
06 Dim JsonOB As Object
07 JsonOB = ImportJson .Item("pItem")
08
09 '如果要讀取第二層Item欄位中的細項可以這樣寫,那個 i 要給迴圈用的。
10 JsonOB = ImportJson .Item("pItem").ElementAt(i).Item("pautoid")
11
12 '大致寫法就是這樣,有些Code有省略,請見諒^^。

產生出來的JSON可以到這裡去看唷 http://jsonviewer.stack.hu/

依我這個Demo的範例產生出來就是這樣。

因為要跟對方交換資料,所以就試了一下,對方給我的資料只要是照著我的DO那樣去產生的話,

這樣我就可以直接塞進去資料庫了^^,有不完善的地方還請大家多多指教。

猜你在找的VB相关文章