[VB.NET] การแสดงผลข้อมูลจาก JSON (ข้อมูลโควิด-19/ไทยและทั่วโลก) ลงในตารางกริด

thongkorn

รายละเอียดของเรื่อง JSON (JavaScript Object Notation) มีอยู่เยอะแยกมากมาย สามารถไปค้นหาใน Google ได้เลยครับ ... วันนี้แอดมินจะมานำเสนอโค้ดการแยกแยะข้อมูลของ JSON หรือที่มักจะเรียกกันว่า Deserialized เพื่อนำมาแสดงผลข้อมูลลงบนตารางกริด ซึ่งจำเป็นต้องใช้เครื่องมือตัวหนึ่งที่มีชื่อว่า NewtonSoft ซึ่งเป็นของฟรีครับผม สามารถดาวน์โหลดได้จากที่นี่ ...

Add References ... NewtonSoft.json ...


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

1. Public Class frmCovid19Json
   
2. 
   
3.     Dim table As New DataTable
   
4. 
   
5.     Private Sub frmCovid19Json_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
   
6.         Call GetCountry()
   
7.     End Sub
   
8. 
   
9.     Private Sub cmbCountry_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles cmbCountry.SelectedIndexChanged
   
10.         Dim url As String = String.Empty
    
11.         Select Case cmbCountry.Text
    
12.             Case "- All Countries Info -"
    
13.                 url = "https://coronavirus-19-api.herokuapp.com/countries"
    
14.             Case Else
    
15.                 url = "https://coronavirus-19-api.herokuapp.com/countries/" & cmbCountry.Text
    
16.         End Select
    
17.         '//
    
18.         Call GetDataJson(url)
    
19.         'Call GetDataJsonObject(url)
    
20.     End Sub
    
21. 
    
22.     '// Deserialized JSON and return DataTable.
    
23.     Public Function DeserializeDataTable(json As String) As DataTable
    
24.         Dim dt As DataTable = TryCast(JsonConvert.DeserializeObject(json, (GetType(DataTable))), DataTable)
    
25.         Return dt
    
26.     End Function
    
27. 
    
28.     Private Sub GetCountry()
    
29.         Dim request As HttpWebRequest
    
30.         Dim response As HttpWebResponse = Nothing
    
31.         Dim reader As StreamReader
    
32.         Dim url As String = "https://coronavirus-19-api.herokuapp.com/countries"
    
33.         Try
    
34.             request = DirectCast(WebRequest.Create(url), HttpWebRequest)
    
35.             response = DirectCast(request.GetResponse(), HttpWebResponse)
    
36.             reader = New StreamReader(response.GetResponseStream())
    
37.             '//
    
38.             Dim s As String
    
39.             s = reader.ReadToEnd
    
40.             '// Replace null value from JSON to zero.
    
41.             s = s.Replace("null", "0")
    
42.             Dim dt As DataTable
    
43.             dt = DeserializeDataTable(s)
    
44.             With cmbCountry
    
45.                 .Items.Add("- All Countries Info -")
    
46.             End With
    
47.             table.Columns.Add("Country", GetType(String))
    
48.             '// Add all country into ComboBox.
    
49.             For i = 0 To dt.Rows.Count - 1
    
50.                 cmbCountry.Items.Add(dt.Rows(i).Item(0).ToString)
    
51.                 '// AutoComplete.
    
52.                 table.Rows.Add(dt.Rows(i).Item(0).ToString)
    
53.             Next
    
54.             cmbCountry.SelectedIndex = 0
    
55.             cmbCountry.Sorted = True
    
56. 
    
57.             '// AutoComplete in TextBox Control.
    
58.             Dim DataCollection As New AutoCompleteStringCollection()
    
59.             DataCollection = GetAutoSourceCollection(table)
    
60.             txtSearch.AutoCompleteCustomSource = DataCollection
    
61.             txtSearch.AutoCompleteMode = AutoCompleteMode.SuggestAppend
    
62.             txtSearch.AutoCompleteSource = AutoCompleteSource.CustomSource
    
63. 
    
64.         Catch ex As Exception
    
65.             MessageBox.Show(ex.Message)
    
66.         End Try
    
67.     End Sub
    
68. 
    
69.     '// AutoComplete Collection
    
70.     Private Function GetAutoSourceCollection(ByVal table As DataTable) As AutoCompleteStringCollection
    
71.         Dim AutoSourceCollection As AutoCompleteStringCollection = New AutoCompleteStringCollection()
    
72.         '// table from countries.
    
73.         For Each row As DataRow In table.Rows
    
74.             AutoSourceCollection.Add(row(0).ToString) '// Country data is the first column.
    
75.         Next
    
76.         Return AutoSourceCollection
    
77.     End Function
    
78. 
    
79.     '// Get JSON From URL.
    
80.     Private Sub GetDataJson(ByVal url As String)
    
81.         Dim request As HttpWebRequest
    
82.         Dim response As HttpWebResponse = Nothing
    
83.         Dim reader As StreamReader
    
84.         Try
    
85.             request = DirectCast(WebRequest.Create(url), HttpWebRequest)
    
86.             response = DirectCast(request.GetResponse(), HttpWebResponse)
    
87.             reader = New StreamReader(response.GetResponseStream())
    
88.             Dim s As String
    
89.             s = reader.ReadToEnd
    
90.             s = s.Replace("null", "0")
    
91.             Dim dt As DataTable
    
92.             If Microsoft.VisualBasic.Left(s, 1) = "[" Then
    
93.                 dt = DeserializeDataTable(s)
    
94.             Else
    
95.                 dt = DeserializeDataTable("[" & s & "]")
    
96.             End If
    
97.             dgvData.DataSource = dt
    
98.             Call SetupGridView()
    
99.         Catch ex As Exception
    
100.             MessageBox.Show(ex.Message)
     
101.         End Try
     
102.     End Sub
     
103. 
     
104.     '// Get JSON by Object From URL.
     
105.     Private Sub GetDataJsonObject(ByVal url As String)
     
106.         Dim request As HttpWebRequest
     
107.         Dim response As HttpWebResponse = Nothing
     
108.         Dim reader As StreamReader
     
109.         Try
     
110.             request = DirectCast(WebRequest.Create(url), HttpWebRequest)
     
111.             response = DirectCast(request.GetResponse(), HttpWebResponse)
     
112.             reader = New StreamReader(response.GetResponseStream())
     
113.             Dim s As String
     
114.             s = reader.ReadToEnd.Replace("null", "0")
     
115.             If Microsoft.VisualBasic.Left(s, 1) <> "[" Then
     
116.                 s = "[" & s & "]"
     
117.             End If
     
118.             '//
     
119.             Dim res() = Newtonsoft.Json.JsonConvert.DeserializeObject(Of ItemsCovid())(s)
     
120.             Dim dt As New DataTable
     
121.             dt.Columns.Add("country", GetType(String))
     
122.             dt.Columns.Add("cases")
     
123.             dt.Columns.Add("todayCases")
     
124.             dt.Columns.Add("deaths")
     
125.             dt.Columns.Add("todayDeaths")
     
126.             dt.Columns.Add("recovered")
     
127.             dt.Columns.Add("active")
     
128.             dt.Columns.Add("critical")
     
129.             dt.Columns.Add("casesPerOneMillion", GetType(Integer))
     
130.             For Each covid As ItemsCovid In res
     
131.                 Dim dr As DataRow = dt.NewRow()
     
132.                 If covid IsNot Nothing Then
     
133.                     dr(0) = covid.country
     
134.                     dr(1) = covid.cases
     
135.                     dr(2) = covid.todayCases
     
136.                     dr(3) = covid.deaths
     
137.                     dr(4) = covid.todayDeaths
     
138.                     dr(5) = covid.recovered
     
139.                     dr(6) = covid.active
     
140.                     dr(7) = covid.critical
     
141.                     dr(8) = covid.casesPerOneMillion
     
142.                 End If
     
143.                 '// Add row.
     
144.                 dt.Rows.Add(dr)
     
145.             Next
     
146.             dgvData.DataSource = dt
     
147.             Call SetupGridView()
     
148.         Catch ex As Exception
     
149.             MessageBox.Show(ex.Message)
     
150.         End Try
     
151.     End Sub
     
152. 
     
153.     Private Sub txtSearch_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles txtSearch.KeyDown
     
154.         '// Press Enter
     
155.         If e.KeyCode = Keys.Enter Then
     
156.             e.Handled = True
     
157.             '// Search for Country in DataTable.
     
158.             Dim dv As DataView = New DataView(table)
     
159.             dv.RowFilter = "Country = " & "'" & txtSearch.Text & "'"
     
160.             If dv.Count > 0 Then
     
161.                 Dim url As String = "https://coronavirus-19-api.herokuapp.com/countries/" & txtSearch.Text
     
162.                 '// Second Methods
     
163.                 Call GetDataJsonObject(url)
     
164.             End If
     
165.         End If
     
166.     End Sub
     
167. 
     
168.     Private Sub SetupGridView()
     
169.         With dgvData
     
170.             .RowHeadersVisible = True
     
171.             .AllowUserToAddRows = False
     
172.             .AllowUserToDeleteRows = False
     
173.             .AllowUserToResizeRows = False
     
174.             .MultiSelect = False
     
175.             .SelectionMode = DataGridViewSelectionMode.CellSelect
     
176.             .ReadOnly = True
     
177.             '// Data rows
     
178.             .Font = New Font("Tahoma", 9)
     
179.             .RowTemplate.MinimumHeight = 27
     
180.             .RowTemplate.Height = 27
     
181.             '// Column Header
     
182.             .ColumnHeadersHeight = 30
     
183.             .ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.DisableResizing
     
184.             '// Autosize Column
     
185.             .AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
     
186.             '// Header
     
187.             With .ColumnHeadersDefaultCellStyle
     
188.                 .BackColor = Color.Navy
     
189.                 .ForeColor = Color.White
     
190.                 .Font = New Font(dgvData.Font, FontStyle.Bold)
     
191.             End With
     
192.         End With
     
193.         '/ todayDeaths
     
194.         For i = 0 To dgvData.RowCount - 1
     
195.             If dgvData.Rows(i).Cells(4).Value > 0 Then
     
196.                 dgvData.Rows(i).Cells(4).Style.BackColor = Color.Red
     
197.             End If
     
198.         Next
     
199.         For i = 1 To dgvData.ColumnCount - 1
     
200.             dgvData.Columns(i).DefaultCellStyle.Format = "N0"
     
201.             With dgvData.Columns(i)
     
202.                 .HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
     
203.                 .DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
     
204.             End With
     
205.         Next
     
206.     End Sub
     
207. 
     
208.     Private Sub frmCovid19Json_FormClosed(sender As Object, e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
     
209.         Me.Dispose()
     
210.         GC.SuppressFinalize(Me)
     
211.         Application.Exit()
     
212.     End Sub
     
213. 
     
214. End Class
     
215. 
     
216. '// "country":"Thailand","cases":599,"todayCases":188,"deaths":1,"todayDeaths":0,"recovered":44,"active":554,"critical":7,"casesPerOneMillion":9
     
217. Public Class ItemsCovid
     
218.     Public Property country As String
     
219.     Public Property cases As Integer
     
220.     Public Property todayCases As Integer
     
221.     Public Property deaths As Integer
     
222.     Public Property todayDeaths As Integer
     
223.     Public Property recovered As Integer
     
224.     Public Property active As Integer
     
225.     Public Property critical As Integer
     
226.     Public Property casesPerOneMillion As Integer
     
227. End Class

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

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

g2gsoftuser

ขอบคุณครับ