[VB.NET] JSON的產生與讀取匯入

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

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

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

前置作業

Imports Newtonsoft.Json
Imports Newtonsoft.Json.Linq

這兩個要用的先Imports進來。

先去 http://json.codeplex.com/ 下載DLL回來參考

先建立Data Object

 
        01 
        Public  Class @H_301_45@JsonDO  
       
        02 
         
        03 
        Private @H_301_45@A As  Integer @H_301_45@= 0  
       
        04 
        Private @H_301_45@B As  String @H_301_45@= "" 
       
        05 
        Private @H_301_45@C As  Integer @H_301_45@= 0  
       
        06 
         
        07 
        Private @H_301_45@item As  Object 
       
        08 
         
        09 
         
        10 
        Public Property @H_301_45@pA() As Integer 
       
        11 
        Get 
       
        12 
        Return @H_301_45@A  
       
        13 
        End Get 
       
        14 
        Set@H_301_45@(ByVal @H_301_45@value As  Integer@H_301_45@)  
       
        15 
        @H_301_45@A= value  
       
        16 
        End Set 
       
        17 
        End Property 
       
        18 
         
        19 
        Public Property @H_301_45@pB() As String 
       
        20 
        Get 
       
        21 
        Return @H_301_45@B  
       
        22 
        End Get 
       
        23 
        Set@H_301_45@(ByVal @H_301_45@value As  String@H_301_45@)  
       
        24 
        @H_301_45@B= value  
       
        25 
        End Set 
       
        26 
        End Property 
       
        27 
         
        28 
        Public Property @H_301_45@pC() As Integer 
       
        29 
        Get 
       
        30 
        Return @H_301_45@C  
       
        31 
        End Get 
       
        32 
        Set@H_301_45@(ByVal @H_301_45@value As  Integer@H_301_45@)  
       
        33 
        @H_301_45@C= value  
       
        34 
        End Set 
       
        35 
        End Property 
       
        36 
         
        37 
        Public Property @H_301_45@pItem() As Object 
       
        38 
        Get 
       
        39 
        Return @H_301_45@item  
       
        40 
        End Get 
       
        41 
        Set@H_301_45@(ByVal @H_301_45@value As  Object@H_301_45@)  
       
        42 
        @H_301_45@item = value  
       
        43 
        End Set 
       
        44 
        End Property 
       
        45 
         
        46 
         
        47 
        End  Class

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

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

3.抓取JSON中的值匯入

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

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

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

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

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

原文链接：https://www.f2er.com/vb/259351.html

[VB.NET] JSON的產生與讀取匯入

猜你在找的VB相关文章