[VB.NET] การนำข้อมูลรายชื่อจังหวัดจาก JSON แบบออนไลน์/ออฟไลน์ มาแสดงผลในตารางกริด

thongkorn

Add References ...

การนำข้อมูลรายชื่อจังหวัดจาก JSON (JavaScript Object Notation) แบบออนไลน์/ออฟไลน์ มาแสดงผลในตารางกริด ก็มีหลักการเดียวกันกับเอกสาร XML (eXtensible Markup Language) เพราะมันก็เป็นข้อมูลแบบ Text ธรรมดานั่นแหละครับ เพียงแต่จะมีการจัดทำเอกสารในรูปแบบที่แตกต่างกัน เราจึงต้องทำการดึงข้อมูลเหล่านั้นออกมาให้ได้ โดยโค้ดชุดนี้จะต้องใช้ของฟรีจาก NewtonSoft สามารถดาวน์โหลดได้จากที่นี่ ... (ในชุดโค้ดมี Newtonsoft.Json เวอร์ชั่น 13 ติดมาให้เรียบร้อยแล้วครับผม) ... หลักการคือเมื่ออ่านเอกสาร JSON เข้ามาเรียบร้อย ก็ทำการ Deserialize หรือการแยกชุดข้อมูลออกมา จากนั้นก็นำไปเก็บไว้ใน DataTable เพื่อนำมาแสดงผลอีกทีในตารางกริด ...

Thailand Geography JSON ... ทางผู้ที่ให้ข้อมูลมาบอกว่าเป็นรายชื่อจังหวัด อำเภอ ตำบล และรหัสไปรษณีย์ ที่อัพเดตจากกรมการปกครอง ปี พ.ศ.2565

กรณีของ Visual Basic .NET เวอร์ชั่น 2010 จะสามารถใช้งาน .Net Framework ได้สูงสุดที่ 4.0 ดังนั้นในงานที่ต้องติดต่อผ่านอินเทอร์เน็ต ซึ่งในปัจจุบันเว็บไซต์หรือผู้ให้บริการ API จะมีความปลอดภัยสูงขึ้น เราจึงต้องใช้คำสั่งชุดนี้เอาไว้ทุกครั้ง ...

1.         '// Provide Security in VS2010 and .Net Framework lower than version 4.5
   
2.         System.Net.ServicePointManager.SecurityProtocol = DirectCast(3072, System.Net.SecurityProtocolType)

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

มาดูโค้ดกันเถอะ ...

1. '// Special Thank ... Original JSON data.
   
2. '// https://github.com/thailand-geography-data/thailand-geography-json
   
3. 
   
4. Public Class frmJsonProvince
   
5. 
   
6.     Private Sub frmJsonProvince_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
   
7.         '// Provide Security in VS2010 and .Net Framework lower than version 4.5
   
8.         System.Net.ServicePointManager.SecurityProtocol = DirectCast(3072, System.Net.SecurityProtocolType)
   
9.         '//
   
10.         lblRecordCount.Text = ""
    
11.         Me.Size = New Size(1180, 800)
    
12.         Me.CenterToScreen()
    
13.     End Sub
    
14. 
    
15.     Private Sub btnOnline1_Click(sender As System.Object, e As System.EventArgs) Handles btnOnline1.Click
    
16.         Call GetDataJson("https://raw.githubusercontent.com/thailand-geography-data/thailand-geography-json/main/src/geography.json")
    
17.         Me.lblRecordCount.Text = "Total : " & Format(dgvData.RowCount, "#,##") & " Records."
    
18.     End Sub
    
19. 
    
20.     Private Sub btnOnline2_Click(sender As System.Object, e As System.EventArgs) Handles btnOnline2.Click
    
21.         Call GetDataJsonObject("https://raw.githubusercontent.com/thailand-geography-data/thailand-geography-json/main/src/geography.json")
    
22.         Me.lblRecordCount.Text = "Total : " & Format(dgvData.RowCount, "#,##") & " Records."
    
23.     End Sub
    
24. 
    
25.     Private Sub btnOffline_Click(sender As System.Object, e As System.EventArgs) Handles btnOffline.Click
    
26.         Try
    
27.             'Dim FileJson As String = MyPath(Application.StartupPath) & "src\provinces.json"
    
28.             'Dim FileJson As String = MyPath(Application.StartupPath) & "src\districts.json"
    
29.             'Dim FileJson As String = MyPath(Application.StartupPath) & "src\subdistricts.json"
    
30.             Dim FileJson As String = MyPath(Application.StartupPath) & "src\geography.json"
    
31.             Dim json As String = File.ReadAllText(FileJson)
    
32.             Dim dt As New DataTable
    
33.             dgvData.DataSource = DeserializeDataTable(json)
    
34.             With dgvData.Columns
    
35.                 .Remove("provinceCode")
    
36.                 .Remove("districtCode")
    
37.                 .Remove("subdistrictCode")
    
38.             End With
    
39.             Call SetupGridView()
    
40.             Me.lblRecordCount.Text = "Total : " & Format(dgvData.RowCount, "#,##") & " Records."
    
41.         Catch ex As Exception
    
42.             MessageBox.Show("Error: " & ex.ToString())
    
43.         End Try
    
44.     End Sub
    
45. 
    
46.     '// Get JSON From URL.
    
47.     Private Sub GetDataJson(ByVal url As String)
    
48.         Dim request As HttpWebRequest
    
49.         Dim response As HttpWebResponse = Nothing
    
50.         Dim reader As StreamReader
    
51.         Try
    
52.             request = DirectCast(WebRequest.Create(url), HttpWebRequest)
    
53.             response = DirectCast(request.GetResponse(), HttpWebResponse)
    
54.             reader = New StreamReader(response.GetResponseStream())
    
55.             Dim s As String
    
56.             s = reader.ReadToEnd
    
57.             s = s.Replace("null", "0")  '// Trap Error.
    
58.             Dim dt As DataTable
    
59.             If Microsoft.VisualBasic.Left(s, 1) = "[" Then
    
60.                 dt = DeserializeDataTable(s)
    
61.             Else
    
62.                 dt = DeserializeDataTable("[" & s & "]")
    
63.             End If
    
64.             dgvData.DataSource = dt
    
65.             Call SetupGridView()
    
66.         Catch ex As Exception
    
67.             MessageBox.Show(ex.Message)
    
68.         End Try
    
69.     End Sub
    
70. 
    
71.     '// Deserialized JSON and return DataTable.
    
72.     Public Function DeserializeDataTable(json As String) As DataTable
    
73.         Dim dt As DataTable = TryCast(JsonConvert.DeserializeObject(json, (GetType(DataTable))), DataTable)
    
74.         Return dt
    
75.     End Function
    
76. 
    
77.     '// Get JSON by Object From URL.
    
78.     Private Sub GetDataJsonObject(ByVal url As String)
    
79.         Dim request As HttpWebRequest
    
80.         Dim response As HttpWebResponse = Nothing
    
81.         Dim reader As StreamReader
    
82.         Try
    
83.             request = DirectCast(WebRequest.Create(url), HttpWebRequest)
    
84.             response = DirectCast(request.GetResponse(), HttpWebResponse)
    
85.             reader = New StreamReader(response.GetResponseStream())
    
86.             Dim s As String
    
87.             s = reader.ReadToEnd.Replace("null", "0")
    
88.             If Microsoft.VisualBasic.Left(s, 1) <> "[" Then
    
89.                 s = "[" & s & "]"
    
90.             End If
    
91.             '//
    
92.             Dim res() = Newtonsoft.Json.JsonConvert.DeserializeObject(Of ItemsProvince())(s)
    
93.             Dim dt As New DataTable
    
94.             With dt.Columns
    
95.                 .Add("ID", GetType(Integer))
    
96.                 .Add("Province En", GetType(String))
    
97.                 .Add("Province Th")
    
98.                 .Add("Amphur En")
    
99.                 .Add("Amphur Th")
    
100.                 .Add("Tumbon En")
     
101.                 .Add("Tumbon Th")
     
102.                 .Add("Postcode")
     
103.             End With
     
104.             For Each province As ItemsProvince In res
     
105.                 Dim dr As DataRow = dt.NewRow()
     
106.                 If province IsNot Nothing Then
     
107.                     dr(0) = province.id
     
108.                     dr(1) = province.provinceNameEn
     
109.                     dr(2) = province.provinceNameTh
     
110.                     dr(3) = province.districtNameEn
     
111.                     dr(4) = province.districtNameTh
     
112.                     dr(5) = province.subdistrictNameEn
     
113.                     dr(6) = province.subdistrictNameTh
     
114.                     dr(7) = province.postalCode
     
115.                 End If
     
116.                 '// Add row.
     
117.                 dt.Rows.Add(dr)
     
118.             Next
     
119.             dgvData.DataSource = dt
     
120.             Call SetupGridView()
     
121.         Catch ex As Exception
     
122.             MessageBox.Show(ex.Message)
     
123.         End Try
     
124.     End Sub
     
125. 
     
126.     '// Initialized DataGridView.
     
127.     Private Sub SetupGridView()
     
128.         With dgvData
     
129.             .RowHeadersVisible = True
     
130.             .AllowUserToAddRows = False
     
131.             .AllowUserToDeleteRows = False
     
132.             .AllowUserToResizeRows = False
     
133.             .MultiSelect = False
     
134.             .SelectionMode = DataGridViewSelectionMode.FullRowSelect
     
135.             .ReadOnly = True
     
136.             '// Data rows
     
137.             .Font = New Font("Tahoma", 11)
     
138.             .RowTemplate.MinimumHeight = 27
     
139.             .RowTemplate.Height = 27
     
140.             '// Column Header
     
141.             .ColumnHeadersHeight = 30
     
142.             .ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.DisableResizing
     
143.             '// Autosize Column
     
144.             .AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
     
145.             '// Header
     
146.             With .ColumnHeadersDefaultCellStyle
     
147.                 .BackColor = Color.SeaGreen
     
148.                 .ForeColor = Color.White
     
149.                 .Font = New Font(dgvData.Font, FontStyle.Bold)
     
150.             End With
     
151.             .ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.DisableResizing
     
152.             .ColumnHeadersHeight = 36
     
153.             '/ Accept changes to the header's background color.
     
154.             .EnableHeadersVisualStyles = False
     
155.             '// Even-Odd Color of Rows.
     
156.             .AlternatingRowsDefaultCellStyle.BackColor = Color.BlanchedAlmond
     
157.             '// Even-Odd Color of Columns.
     
158.             For iCol As Integer = 0 To dgvData.Columns.Count - 1
     
159.                 '// If any integer Mod by 2 and gets the answer is 0 so even number, 1 is an odd number.
     
160.                 If iCol Mod 2 = 1 Then
     
161.                     dgvData.Columns(iCol).HeaderCell.Style.BackColor = Color.BlueViolet
     
162.                 Else
     
163.                     dgvData.Columns(iCol).HeaderCell.Style.BackColor = Color.SeaGreen
     
164.                 End If
     
165.             Next
     
166.         End With
     
167.     End Sub
     
168. 
     
169.     '// Show row number in row header of a DataGridView.
     
170.     Private Sub dgvData_RowPostPaint(sender As Object, e As DataGridViewRowPostPaintEventArgs) Handles dgvData.RowPostPaint
     
171.         Dim grid As DataGridView = CType(sender, DataGridView)
     
172.         Dim rowIdx As String = (e.RowIndex + 1).ToString()
     
173.         Dim rowFont As New System.Drawing.Font("Tahoma", 10.0!, _
     
174.             System.Drawing.FontStyle.Regular, _
     
175.             System.Drawing.GraphicsUnit.Point, CType(0, Byte))
     
176. 
     
177.         Dim centerFormat = New StringFormat()
     
178.         centerFormat.Alignment = StringAlignment.Center
     
179.         centerFormat.LineAlignment = StringAlignment.Center
     
180. 
     
181.         Dim headerBounds As Rectangle = New Rectangle( _
     
182.                                         e.RowBounds.Left - 10, e.RowBounds.Top, _
     
183.                                         grid.RowHeadersWidth + 20, e.RowBounds.Height)
     
184.         e.Graphics.DrawString(rowIdx, rowFont, SystemBrushes.ControlText, _
     
185.                               headerBounds, centerFormat)
     
186.     End Sub
     
187. 
     
188.     Private Sub frmJsonProvince_FormClosed(sender As Object, e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
     
189.         Me.Dispose()
     
190.         GC.SuppressFinalize(Me)
     
191.         Application.Exit()
     
192.     End Sub
     
193. 
     
194.     ' / --------------------------------------------------------------------------------
     
195.     ' / Get my project path
     
196.     ' / AppPath = C:\My Project\bin\debug
     
197.     ' / Replace "\bin\debug" with ""
     
198.     ' / Return : C:\My Project\
     
199.     Function MyPath(ByVal AppPath As String) As String
     
200.         '/ Return Value
     
201.         MyPath = AppPath.ToLower.Replace("\bin\debug", "").Replace("\bin\release", "").Replace("\bin\x86\debug", "")
     
202.         '// If not found folder then put the \ (BackSlash) at the end.
     
203.         If Microsoft.VisualBasic.Right(MyPath, 1) <> Chr(92) Then MyPath = MyPath & Chr(92)
     
204.     End Function
     
205. 
     
206. End Class
     
207. 
     
208. Public Class ItemsProvince
     
209.     Public Property id As String
     
210.     Public Property provinceNameEn As String
     
211.     Public Property provinceNameTh As String
     
212.     Public Property districtNameEn As String
     
213.     Public Property districtNameTh As String
     
214.     Public Property subdistrictNameEn As String
     
215.     Public Property subdistrictNameTh As String
     
216.     Public Property postalCode As Integer
     
217. End Class

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

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