[VB.NET] แสดงผลรหัสไปรษณีย์ประเทศไทย ด้วย ComboBox เพื่อทำการเลือกรายการ

thongkorn

โปรเจคนี้แอดมินทำเอาไว้เมื่อประมาณ 3 ปีที่แล้ว ขุดกรุเอามาเล่าสู่กันฟังใหม่ จะเป็นการแสดงผลโดยให้เลือกจังหวัดก่อน ตามด้วยเลือกอำเภอ และตำบลตามลำดับ จากนั้นก็จะแสดงรหัสไปรษณีย์ออกมา ... การทำ Query ที่สำคัญคือ DISTINCT เป็นการคัดกรองข้อมูลที่ซ้ำกันให้เหลือเพียง 1 เดียว ...

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

1. ' / --------------------------------------------------------------------------------
   
2. ' / Developer : Mr.Surapon Yodsanga (Thongkorn Tubtimkrob)
   
3. ' / eMail : thongkorn@hotmail.com
   
4. ' / URL: http://www.g2gnet.com (Khon Kaen - Thailand)
   
5. ' / Facebook: https://www.facebook.com/g2gnet (For Thailand)
   
6. ' / Facebook: https://www.facebook.com/commonindy (Worldwide)
   
7. ' / Purpose: View the PostCode data in Thailand with ComboBox.
   
8. ' /
   
9. ' / This is open source code under @CopyLeft by Thongkorn Tubtimkrob.
   
10. ' / You can modify and/or distribute without to inform the developer.
    
11. ' / --------------------------------------------------------------------------------
    
12. ' / Microsoft Visual Basic .NET (2010) & MS Access 2003+
    
13. ' / ----------------------------------------------------------------------------------------
    
14. Imports System.Data.OleDb
    
15. 
    
16. Public Class frmMain
    
17.     Dim Conn As OleDb.OleDbConnection
    
18.     Dim Cmd As OleDb.OleDbCommand
    
19.     Dim DR As OleDb.OleDbDataReader
    
20.     Dim Statement As String
    
21. 
    
22.     Private Sub frmMain_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    
23.         Me.CenterToScreen()
    
24.         lblPostCode.Text = ""
    
25.         txtRemark.Text = ""
    
26.         Dim strPath As String = Application.StartupPath
    
27.         strPath = strPath.ToLower()
    
28.         strPath = strPath.Replace("\bin\debug", "")
    
29. 
    
30.         Dim strConn As String = _
    
31.             " Provider=Microsoft.ACE.OLEDB.12.0;" & _
    
32.             " Data Source = " & strPath & "Data\PostCode2555.accdb; " & _
    
33.             " Persist Security Info=False;"
    
34. 
    
35.         Try
    
36.             ' เปิดการเชื่อมต่อไฟล์ฐานข้อมูล
    
37.             Conn = New OleDb.OleDbConnection(strConn)
    
38.             Conn.Open()
    
39.             '// โหลดรายการจังหวัดเข้ามาก่อน
    
40.             Call LoadProvice()
    
41.         Catch ex As Exception
    
42.             MsgBox(ex.Message)
    
43.             Application.Exit()
    
44.         End Try
    
45.     End Sub
    
46. 
    
47.     ' / โหลดรายชื่อจังหวัดเข้าสู่ ComboBox
    
48.     Sub LoadProvice()
    
49.         lblPostCode.Text = ""
    
50.         txtRemark.Text = ""
    
51.         ' DISTINCT คือ หากชื่อรายการมันซ้ำ ต้องตัดให้เหลือเพียงรายการเดียว
    
52.         Statement = _
    
53.             " SELECT DISTINCT PostCode.Province " & _
    
54.             " From PostCode ORDER BY PostCode.Province "
    
55.         Cmd = New OleDbCommand(Statement, Conn)
    
56.         DR = Cmd.ExecuteReader
    
57.         While DR.Read()
    
58.             cmbProvince.Items.Add(DR.Item("Province").ToString)
    
59.         End While
    
60.         DR.Close()
    
61.         Cmd.Dispose()
    
62.     End Sub
    
63. 
    
64.     ' / เลือกรายชื่อจังหวัด และเอารายชื่ออำเภอเข้าสู่ ComboBox
    
65.     Private Sub cmbProvince_SelectedValueChanged(sender As Object, e As System.EventArgs) Handles cmbProvince.SelectedValueChanged
    
66.         cmbAmphur.Items.Clear()
    
67.         cmbAmphur.Text = ""
    
68.         cmbTumbon.Items.Clear()
    
69.         cmbTumbon.Text = ""
    
70.         lblPostCode.Text = ""
    
71.         txtRemark.Text = ""
    
72.         Statement = _
    
73.             " SELECT DISTINCT PostCode.Amphur, PostCode.Province " & _
    
74.             " From PostCode  " & _
    
75.             " WHERE " & _
    
76.             " Province = " & "'" & cmbProvince.Text & "'" & _
    
77.             " ORDER BY PostCode.Amphur "
    
78.         Cmd = New OleDbCommand(Statement, Conn)
    
79.         DR = Cmd.ExecuteReader
    
80.         While DR.Read()
    
81.             cmbAmphur.Items.Add(DR.Item("Amphur").ToString)
    
82.         End While
    
83.         DR.Close()
    
84.         Cmd.Dispose()
    
85.     End Sub
    
86. 
    
87.     ' / เลือกรายชื่ออำเภอ และเอารายชื่อตำบลเข้าสู่ ComboBox
    
88.     Private Sub cmbAmphur_SelectedValueChanged(sender As Object, e As System.EventArgs) Handles cmbAmphur.SelectedValueChanged
    
89.         cmbTumbon.Items.Clear()
    
90.         cmbTumbon.Text = ""
    
91.         lblPostCode.Text = ""
    
92.         txtRemark.Text = ""
    
93.         Statement = _
    
94.             " SELECT DISTINCT PostCode.Amphur, PostCode.Province, PostCode.Tumbon " & _
    
95.             " From PostCode  " & _
    
96.             " WHERE " & _
    
97.             " Province = " & "'" & cmbProvince.Text & "'" & _
    
98.             " AND " & _
    
99.             " Amphur = " & "'" & cmbAmphur.Text & "'" & _
    
100.             " ORDER BY PostCode.Tumbon "
     
101.         Cmd = New OleDbCommand(Statement, Conn)
     
102.         DR = Cmd.ExecuteReader
     
103.         While DR.Read()
     
104.             cmbTumbon.Items.Add(DR.Item("Tumbon").ToString)
     
105.         End While
     
106.         DR.Close()
     
107.         Cmd.Dispose()
     
108.     End Sub
     
109. 
     
110.     ' / เลือกรายชื่อตำบล และเอารหัสไปรษณีย์มาแสดงผลใน Label Control
     
111.     Private Sub cmbTumbon_SelectedValueChanged(sender As Object, e As System.EventArgs) Handles cmbTumbon.SelectedValueChanged
     
112.         lblPostCode.Text = ""
     
113.         txtRemark.Text = ""
     
114.         Statement = _
     
115.             " SELECT PostCode.Province, PostCode.Amphur, PostCode.Tumbon, " & _
     
116.             " PostCode.PostCode, PostCode.Remark " & _
     
117.             " From PostCode  " & _
     
118.             " WHERE " & _
     
119.             " Province = " & "'" & cmbProvince.Text & "'" & _
     
120.             " AND " & _
     
121.             " Amphur = " & "'" & cmbAmphur.Text & "'" & _
     
122.             " AND " & _
     
123.             " Tumbon = " & "'" & cmbTumbon.Text & "'" & _
     
124.             " ORDER BY PostCode.Tumbon "
     
125.         Cmd = New OleDbCommand(Statement, Conn)
     
126.         DR = Cmd.ExecuteReader
     
127.         While DR.Read()
     
128.             ' การนำเอา Double Quote มาวางขวางก่อน ก็เพราะเผื่อข้อมูลมันเป็น Null ก็จะเกิด Error
     
129.             ' ใช้หลักการเดียวกันกับ VB6 เลยครับท่านผู้ชม
     
130.             lblPostCode.Text = DR.Item("PostCode").ToString
     
131.             txtRemark.Text = "" & DR.Item("Remark")
     
132.         End While
     
133.         DR.Close()
     
134.         cmd.Dispose()
     
135.     End Sub
     
136. 
     
137.     Private Sub frmMain_FormClosing(sender As Object, e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
     
138.         Conn.Close()
     
139.         Me.Dispose()
     
140.         Application.Exit()
     
141.     End Sub
     
142. End Class

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

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

g2gsoftuser

ขอบคุณครับ