[VB.NET] การแปลงข้อมูลจาก DataTable ให้อยู่ในรูปแบบ JSON

thongkorn

สำหรับโค้ดในวันนี้แอดมินจะทำการจำลองเหตุการณ์ว่า เราสามารถนำข้อมูลมาจากฐานข้อมูลใดๆก็ได้ เช่น MS Access, MSSQL หรือ MySQL มาใส่ไว้ใน DataTable จากนั้นทำการแปลงข้อมูล (Serialize) เหล่านี้ให้อยู่ในรูปแบบของ JSON (JavaScript Object Notation) ซึ่งมันก็เป็นรูปแบบ Text File ธรรมดานี่แหละ คล้ายๆกับ XML (Extensible Markup Language) เพียงแต่มีการจัดรูปแบบที่แตกต่างกันออกไป จากนั้นทำการแยกแยะข้อมูล JSON เข้ามาแสดงผลไว้ใน DataGridView นอกจากนี้แอดมินยังได้นำเสนอ การเลือกเอาเฉพาะบางฟิลด์มาแสดงผลลงใน ListView ส่วน TextBox จะแสดงรูปแบบข้อมูลของ JSON

Add Reference ... NewtonSoft.Json.Net20 จะอยู่ในโฟลเดอร์ Package และต้อง Add System.Web.Extensions ที่อยู่ใน .Net Framework ด้วย


มาดูโค้ดต้นฉบับกันเถอะ

1. Imports Newtonsoft.Json
   
2. Imports System.IO
   
3. Imports System.Net
   
4. 
   
5. '// Add a reference to System.Web.Extensions & .Net Framework 4.0
   
6. Public Class frmJsonSample
   
7. 
   
8.     Private Sub frmJson_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
   
9.         Dim dt As New DataTable
   
10.         '// Create DataTable
    
11.         dt = CreateDataTable()
    
12.         '// Convert DataTable to JSON Format
    
13.         Dim _json As String = GetJson(dt)
    
14.         '// Sample JSON.
    
15.         '// {"ID":"1","Name":"Sample-001"}
    
16.         txtJson.Text = _json
    
17.         Try
    
18.             '// Parsing JSON Data and display in DataGridView.
    
19.             dgvData.DataSource = DeserializeDataTable(_json)
    
20.             '// Show only Name in ListBox.
    
21.             GetNames(_json)
    
22.         Catch ex As WebException
    
23.             MessageBox.Show("Error: " & ex.ToString())
    
24.         End Try
    
25.     End Sub
    
26. 
    
27.     Private Function CreateDataTable() As DataTable
    
28.         Dim dt As New DataTable
    
29.         dt.Columns.Add("ID", GetType(Integer))
    
30.         dt.Columns.Add("Name", GetType(String))
    
31.         For i As Integer = 1 To 10
    
32.             dt.Rows.Add()
    
33.             dt.Rows(i - 1)(0) = i
    
34.             dt.Rows(i - 1)(1) = "Sample-" & Microsoft.VisualBasic.Right("000" & i, 3)
    
35.         Next
    
36.         Return dt
    
37.     End Function
    
38. 
    
39.     '// DataTable to JSON.
    
40.     Private Function GetJson(ByVal dt As DataTable) As String
    
41.         '// References ... System.Web.Extensions
    
42.         Dim Jserializer As New System.Web.Script.Serialization.JavaScriptSerializer()
    
43.         Dim rowsList As New List(Of Dictionary(Of String, Object))()
    
44.         Dim row As Dictionary(Of String, Object)
    
45.         For Each dr As DataRow In dt.Rows
    
46.             row = New Dictionary(Of String, Object)()
    
47.             For Each col As DataColumn In dt.Columns
    
48.                 row.Add(col.ColumnName, dr(col))
    
49.             Next
    
50.             rowsList.Add(row)
    
51.         Next
    
52.         Return Jserializer.Serialize(rowsList)
    
53.     End Function
    
54. 
    
55.     Public Function DeserializeDataTable(json As String) As DataTable
    
56.         Dim dt As DataTable
    
57.         dt = TryCast(JsonConvert.DeserializeObject(json, (GetType(DataTable))), DataTable)
    
58.         Return dt
    
59.     End Function
    
60. 
    
61.     Private Sub GetNames(strJSON As String)
    
62.         Dim Names = JsonConvert.DeserializeObject(Of List(Of ItemsJSon))(strJSON)
    
63.         '//
    
64.         For Each itm In Names
    
65.             lvwGetField.Items.Add(itm.name)
    
66.         Next
    
67.     End Sub
    
68. 
    
69. End Class
    
70. 
    
71. Public Class ItemsJSon
    
72.     Public Property id As String
    
73.     Public Property name As String
    
74. End Class

คัดลอกไปที่คลิปบอร์ด

ดาวน์โหลดโค้ดต้นฉบับ VB.NET (2010) ได้ที่นี่ ...