[VB.NET] การค้นหาข้อมูลหรือคอนเทนท์จาก JSON Format แสดงผลในตารางกริด

thongkorn

Add References ...

การค้นหาข้อมูลหรือคอนเทนท์จาก JSON Format (JavaScript Object Notation) มาแสดงผลลงในตารางกริด ซึ่งวิธีการเราไม่ได้ค้นหาคอนเทนต์ภายใน JSON โดยตรง แต่เรา Deserialize JSON แยกเอาข้อมูลมาเก็บไว้ใน DataTable ก่อน จากนั้นก็จะทำ BindingSource อีกที ในการค้นหาก็จะ Method Filter ...

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

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

1. '// Special Thank ... Original JSON data.
   
2. '// https://github.com/thailand-geography-data/thailand-geography-json
   
3. 
   
4. Imports Newtonsoft.Json
   
5. Imports System.IO
   
6. 
   
7. Public Class frmFilterJson
   
8. 
   
9.     Private JsonSource As New BindingSource()
   
10. 
    
11.     Private Sub frmFilterJson_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    
12.         Dim json = File.ReadAllText(MyPath(Application.StartupPath) & "src\geography.json")
    
13.         Dim dt = JsonConvert.DeserializeObject(Of DataTable)(json)
    
14.         dt.AcceptChanges()
    
15.         '// Binding Source.
    
16.         JsonSource.DataSource = dt
    
17.         dgvData.DataSource = JsonSource
    
18.         With dgvData.Columns
    
19.             .Remove("provinceCode")
    
20.             .Remove("districtCode")
    
21.             .Remove("subdistrictCode")
    
22.         End With
    
23.         Call SetupGridView()
    
24.         Me.lblRecordCount.Text = "Total: " & Format(dgvData.RowCount, "#,##") & " Records."
    
25.         Me.Size = New Size(1180, 800)
    
26.         Me.CenterToScreen()
    
27.     End Sub
    
28. 
    
29.     '// Filter.
    
30.     Private Sub txtFilterJson_TextChanged(sender As Object, e As System.EventArgs) Handles txtFilterJson.TextChanged
    
31.         If rdoFilterAll.Checked Then
    
32.             JsonSource.Filter = _
    
33.                 " provinceNameEn LIKE " & "'%" & txtFilterJson.Text & "%'" & _
    
34.                 " OR provinceNameTh LIKE " & "'%" & txtFilterJson.Text & "%'" & _
    
35.                 " OR districtNameEn LIKE " & "'%" & txtFilterJson.Text & "%'" & _
    
36.                 " OR districtNameTh LIKE " & "'%" & txtFilterJson.Text & "%'" & _
    
37.                 " OR subdistrictNameEn LIKE " & "'%" & txtFilterJson.Text & "%'" & _
    
38.                 " OR subdistrictNameTh LIKE " & "'%" & txtFilterJson.Text & "%'"
    
39.         ElseIf rdoProvinceNameEn.Checked Then
    
40.             JsonSource.Filter = "provinceNameEn LIKE " & "'%" & txtFilterJson.Text & "%'"
    
41.         ElseIf rdoProvinceNameTh.Checked Then
    
42.             JsonSource.Filter = "provinceNameTh LIKE " & "'%" & txtFilterJson.Text & "%'"
    
43.         ElseIf rdoDistrictNameEn.Checked Then
    
44.             JsonSource.Filter = "districtNameEn LIKE " & "'%" & txtFilterJson.Text & "%'"
    
45.         ElseIf rdoDistrictNameTh.Checked Then
    
46.             JsonSource.Filter = "districtNameTh LIKE " & "'%" & txtFilterJson.Text & "%'"
    
47.         End If
    
48.         '//
    
49.         Call SetupGridView()
    
50.         Me.lblRecordCount.Text = "Total: " & Format(dgvData.RowCount, "#,##") & " Records."
    
51.     End Sub
    
52. 
    
53.     '// Initialized DataGridView.
    
54.     Private Sub SetupGridView()
    
55.         With dgvData
    
56.             .RowHeadersVisible = True
    
57.             .AllowUserToAddRows = False
    
58.             .AllowUserToDeleteRows = False
    
59.             .AllowUserToResizeRows = False
    
60.             .MultiSelect = False
    
61.             .SelectionMode = DataGridViewSelectionMode.FullRowSelect
    
62.             .ReadOnly = True
    
63.             '// Data rows
    
64.             .Font = New Font("Tahoma", 11)
    
65.             .RowTemplate.MinimumHeight = 27
    
66.             .RowTemplate.Height = 27
    
67.             '// Column Header
    
68.             .ColumnHeadersHeight = 30
    
69.             .ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.DisableResizing
    
70.             '// Autosize Column
    
71.             .AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
    
72.             '// Header
    
73.             With .ColumnHeadersDefaultCellStyle
    
74.                 .BackColor = Color.RoyalBlue
    
75.                 .ForeColor = Color.White
    
76.                 .Font = New Font(dgvData.Font, FontStyle.Bold)
    
77.             End With
    
78.             .ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.DisableResizing
    
79.             .ColumnHeadersHeight = 36
    
80.             '/ Accept changes to the header's background color.
    
81.             .EnableHeadersVisualStyles = False
    
82.             '// Even-Odd Color of Rows.
    
83.             .AlternatingRowsDefaultCellStyle.BackColor = Color.Beige
    
84.             '// Even-Odd Color of Columns.
    
85.             For iCol As Integer = 0 To dgvData.Columns.Count - 1
    
86.                 '// If any integer Mod by 2 and gets the answer is 0 so even number, 1 is an odd number.
    
87.                 If iCol Mod 2 = 1 Then
    
88.                     dgvData.Columns(iCol).HeaderCell.Style.BackColor = Color.BlueViolet
    
89.                 Else
    
90.                     dgvData.Columns(iCol).HeaderCell.Style.BackColor = Color.SeaGreen
    
91.                 End If
    
92.             Next
    
93.         End With
    
94.     End Sub
    
95. 
    
96.     Private Sub rdoProvince_Click(sender As Object, e As System.EventArgs) Handles rdoFilterAll.Click, rdoProvinceNameEn.Click, rdoProvinceNameTh.Click, rdoDistrictNameEn.Click, rdoDistrictNameTh.Click
    
97.         txtFilterJson.Focus()
    
98.     End Sub
    
99. 
    
100.     Private Sub frmFilterJson_FormClosed(sender As Object, e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
     
101.         Me.Dispose()
     
102.         GC.SuppressFinalize(Me)
     
103.         Application.Exit()
     
104.     End Sub
     
105. 
     
106.     ' / --------------------------------------------------------------------------------
     
107.     ' / Get my project path
     
108.     ' / AppPath = C:\My Project\bin\debug
     
109.     ' / Replace "\bin\debug" with ""
     
110.     ' / Return : C:\My Project\
     
111.     Function MyPath(ByVal AppPath As String) As String
     
112.         '/ Return Value
     
113.         MyPath = AppPath.ToLower.Replace("\bin\debug", "").Replace("\bin\release", "").Replace("\bin\x86\debug", "")
     
114.         '// If not found folder then put the \ (BackSlash) at the end.
     
115.         If Microsoft.VisualBasic.Right(MyPath, 1) <> Chr(92) Then MyPath = MyPath & Chr(92)
     
116.     End Function
     
117. End Class

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

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

yusanc

ขอบคุณครับ

thawatchai-sena

ขอบคุณครับ