[VB.NET] การ UnBound Data บน DataGridView เพื่อจัดรูปแบบการแสดงผลฟิลด์ข้อมูล

thongkorn

พอดีแอดมินแอดมินได้รับโจทย์จากลูกค้ามา ให้รวมข้อมูล 3 ฟิลด์เข้าหากันเพื่อแสดงผลในหลักเดียวกันของตารางกริด โดยจะประกอบด้วยฟิลด์ที่อยู่ (Address), อำเภอ (Amphur) และจังหวัด (Province) ดูๆแล้วก็ไม่น่าจะมีปัญหาอะไรเนาะ แต่ทว่าการออกแบบตารางข้อมูลของแอดมิน จะทำการแยกชื่อจังหวัดออกไปอยู่อีกตารางต่างหาก แล้วมันมีปัญหาตรงไหน? เพราะเราสามารถเอาฟิลด์ข้อมูลมาจัดเรียงต่อกันใน Query ก็ได้นี่ ก็เพราะเนื่องจากว่าจังหวัดที่เป็นกรุงเทพมหานคร ต้องใช้คำว่าเขตแทนอำเภอ และจะต้องไม่มีคำนำหน้าว่าจังหวัด เอาล่ะซิทีนี้บันเทิงกันเลย หากเราไปใช้เงื่อนไขใน Query ... แอดมินเลยได้จังหวะนำเสนอการ UnBound Data เพื่อมาช่วยแก้ปัญหาในเรื่องนี้ขอรับกระผม

โดยปกติเราก็มักจะใช้วิธีการ Bound Data กันอยู่บ่อยๆ ซึ่งบางคนก็อาจจะรู้ หรือบางคนก็แทบจะไม่รู้จักเลยซ่ะด้วยซ้ำ แอดมินขอนำเสนอด้วยโค้ดแทนคำอธิบายดีกว่าครับ ...

โค้ดในส่วนของการผูกฟิลด์ข้อมูลเอาไว้ให้กับ DataTable ...

1.     ' / --------------------------------------------------------------------
   
2.     ' / อ่านข้อมูลจากฟิลด์ที่ระบุหรือต้องการ เข้ามาเก็บไว้ยัง DataTable
   
3.     Private Function GetDataTable() As DataTable
   
4.         Dim strSQL As String = _
   
5.             " SELECT tblCustomer.CustomerPK, tblCustomer.CustomerID, tblCustomer.CustomerName, " & _
   
6.             " tblCustomer.Address, tblCustomer.Amphur, tblCustomer.ProvinceFK, tblProvince.ProvinceName, tblCustomer.PostCode " & _
   
7.             " FROM tblCustomer INNER JOIN tblProvince ON tblCustomer.ProvinceFK = tblProvince.ProvincePK " & _
   
8.             " ORDER BY CustomerPK "
   
9.         '/
   
10.         Dim tbl As New DataTable
    
11.         '// เพิ่มหลักเข้าสู่ DataTable
    
12.         tbl.Columns.Add("CustomerPK", GetType(Integer))
    
13.         tbl.Columns.Add("CustomerID", GetType(String))
    
14.         tbl.Columns.Add("CustomerName", GetType(String))
    
15.         tbl.Columns.Add("Address", GetType(String))
    
16.         '//
    
17.         If Conn.State = ConnectionState.Closed Then Conn.Open()
    
18.         Dim Cmd = New OleDbCommand(strSQL, Conn)
    
19.         Dim DR As OleDbDataReader = Cmd.ExecuteReader
    
20.         While DR.Read()
    
21.             If DR.HasRows Then
    
22.                 tbl.Rows.Add(New Object() { _
    
23.                         DR.Item("CustomerPK").ToString, _
    
24.                         DR.Item("CustomerID").ToString, _
    
25.                         DR.Item("CustomerName").ToString, _
    
26.                         GetAddress(DR.Item("Address").ToString, DR.Item("Amphur").ToString, DR.Item("ProvinceName").ToString, DR.Item("PostCode").ToString, DR.Item("ProvinceFK").ToString)})
    
27.             End If
    
28.         End While
    
29.         DR.Close()
    
30.         Cmd.Dispose()
    
31. 
    
32.         '/ RETURN
    
33.         Return tbl
    
34.     End Function

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

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

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. ' / More: http://www.g2gnet.com/webboard
   
8. ' /
   
9. ' / Purpose: Unbound Data method and bring the data fields together.
   
10. ' / Microsoft Visual Basic .NET (2010) + MS Access 2007+
    
11. ' /
    
12. ' / This is open source code under @CopyRight by Thongkorn Tubtimkrob.
    
13. ' / You can not distribute this code for free. Without the consent of the developer.
    
14. ' / --------------------------------------------------------------------
    
15. Imports System.Data.OleDb
    
16. 
    
17. Public Class frmUnboundDataGrid
    
18. 
    
19.     Dim Conn As New OleDbConnection
    
20. 
    
21.     ' / --------------------------------------------------------------------
    
22.     ' / Start here.
    
23.     Private Sub frmUnboundDataGrid_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    
24.         Dim strPathData As String = Application.StartupPath
    
25.         strPathData = MyPath(strPathData) & "data"
    
26.         '// Connect DataBase.
    
27.         Call ConnectDataBase(strPathData)
    
28. 
    
29.         '// Load Data into the DataGridView1.
    
30.         Me.DataGridView1.DataSource = GetDataTable()
    
31.         '// Initialize DataGridView
    
32.         Call SetupDataGridView(DataGridView1)
    
33.     End Sub
    
34. 
    
35.     ' / --------------------------------------------------------------------
    
36.     ' / อ่านข้อมูลจากฟิลด์ที่ระบุหรือต้องการ เข้ามาเก็บไว้ยัง DataTable
    
37.     Private Function GetDataTable() As DataTable
    
38.         Dim strSQL As String = _
    
39.             " SELECT tblCustomer.CustomerPK, tblCustomer.CustomerID, tblCustomer.CustomerName, " & _
    
40.             " tblCustomer.Address, tblCustomer.Amphur, tblCustomer.ProvinceFK, tblProvince.ProvinceName, tblCustomer.PostCode " & _
    
41.             " FROM tblCustomer INNER JOIN tblProvince ON tblCustomer.ProvinceFK = tblProvince.ProvincePK " & _
    
42.             " ORDER BY CustomerPK "
    
43.         '/
    
44.         Dim tbl As New DataTable
    
45.         '// เพิ่มหลักเข้าสู่ DataTable
    
46.         tbl.Columns.Add("CustomerPK", GetType(Integer))
    
47.         tbl.Columns.Add("CustomerID", GetType(String))
    
48.         tbl.Columns.Add("CustomerName", GetType(String))
    
49.         tbl.Columns.Add("Address", GetType(String))
    
50.         '//
    
51.         If Conn.State = ConnectionState.Closed Then Conn.Open()
    
52.         Dim Cmd = New OleDbCommand(strSQL, Conn)
    
53.         Dim DR As OleDbDataReader = Cmd.ExecuteReader
    
54.         While DR.Read()
    
55.             If DR.HasRows Then
    
56.                 tbl.Rows.Add(New Object() { _
    
57.                         DR.Item("CustomerPK").ToString, _
    
58.                         DR.Item("CustomerID").ToString, _
    
59.                         DR.Item("CustomerName").ToString, _
    
60.                         GetAddress(DR.Item("Address").ToString, DR.Item("Amphur").ToString, DR.Item("ProvinceName").ToString, DR.Item("PostCode").ToString, DR.Item("ProvinceFK").ToString)})
    
61.             End If
    
62.         End While
    
63.         DR.Close()
    
64.         Cmd.Dispose()
    
65. 
    
66.         '/ RETURN
    
67.         Return tbl
    
68.     End Function
    
69. 
    
70.     ' / --------------------------------------------------------------------
    
71.     '// รับค่าค่าเข้ามายังฟังค์ชั่น เพื่อจัดการแสดงผล
    
72.     Private Function GetAddress(ByVal Address As String, ByVal Amphur As String, ByVal Province As String, ByVal PostCode As String, ByVal ProvinceFK As Integer) As String
    
73.         GetAddress = String.Empty
    
74.         '// จังหวัดที่ไม่ใช่กรุงเทพ (ProvinceFK = 3 คือ กรุงเทพมหานคร)
    
75.         If Val(ProvinceFK) <> 3 Then
    
76.             If Amphur <> "" And Province <> "" Then
    
77.                 GetAddress = Address & " อ." & Amphur & " จ." & Province & " " & PostCode
    
78.             ElseIf Amphur <> "" And Province = "" Then
    
79.                 GetAddress = Address & " อ." & Amphur & " " & PostCode
    
80.             ElseIf Amphur = "" And Province <> "" Then
    
81.                 GetAddress = Address & " จ." & Province & " " & PostCode
    
82.             Else
    
83.                 GetAddress = Address
    
84.             End If
    
85. 
    
86.             '// กรุงเทพ
    
87.         Else
    
88.             If Amphur <> "" And Province <> "" Then
    
89.                 GetAddress = Address & " เขต" & Amphur & " " & Province & " " & PostCode
    
90.             ElseIf Amphur <> "" And Province = "" Then
    
91.                 GetAddress = Address & " เขต" & Amphur & " " & PostCode
    
92.             ElseIf Amphur = "" And Province <> "" Then
    
93.                 GetAddress = Address & " " & Province & " " & PostCode
    
94.             Else
    
95.                 GetAddress = Address
    
96.             End If
    
97.         End If
    
98.         '// คืนค่า
    
99.         Return GetAddress
    
100.     End Function
     
101. 
     
102.     ' / --------------------------------------------------------------------
     
103.     ' / Initialize DataGridView.
     
104.     Private Sub SetupDataGridView(ByRef DGV As DataGridView)
     
105.         With DGV
     
106.             .RowHeadersVisible = True ' False
     
107.             .AllowUserToAddRows = False
     
108.             .AllowUserToDeleteRows = False
     
109.             .AllowUserToResizeRows = False
     
110.             .MultiSelect = False
     
111.             .ReadOnly = True
     
112.             .SelectionMode = DataGridViewSelectionMode.FullRowSelect
     
113.             '/ Autosize Column
     
114.             .AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
     
115.             .AutoResizeColumns()
     
116.             '// Even-Odd Color
     
117.             .AlternatingRowsDefaultCellStyle.BackColor = Color.AliceBlue
     
118.             '// Font data rows.
     
119.             .Font = New Font("Tahoma", 9)
     
120.         End With
     
121.         '/ Adjust Header Styles
     
122.         With DGV
     
123.             With .ColumnHeadersDefaultCellStyle
     
124.                 .BackColor = Color.Navy
     
125.                 .ForeColor = Color.Black
     
126.                 .Font = New Font("Tahoma", 9, FontStyle.Bold)
     
127.             End With
     
128.         End With
     
129. 
     
130.         '// Customize the header.
     
131.         With DGV
     
132.             With .Columns(0)
     
133.                 .Name = "CustomerPK"
     
134.                 .HeaderText = "CustomerPK"
     
135.                 .Visible = False
     
136.             End With
     
137.             With .Columns(1)
     
138.                 .Name = "CustomerID"
     
139.                 .HeaderText = "รหัสลูกค้า"
     
140.                 .ReadOnly = True
     
141.             End With
     
142.             With .Columns(2)
     
143.                 .Name = "CustomerName"
     
144.                 .HeaderText = "ชื่อลูกค้า"
     
145.             End With
     
146.             With .Columns(3)
     
147.                 .Name = "Address"
     
148.                 .HeaderText = "ที่อยู่"
     
149.             End With
     
150.         End With
     
151.     End Sub
     
152. 
     
153.     ' / --------------------------------------------------------------------
     
154.     ' / Connect Database.
     
155.     Sub ConnectDataBase(ByVal PathData As String)
     
156.         Dim strConn As String = _
     
157.             "Provider = Microsoft.ACE.OLEDB.12.0; " & _
     
158.             " Data Source = " & PathData & "MyDB.accdb;"
     
159.         Try
     
160.             Conn = New OleDbConnection(strConn)
     
161.             '// Test Connection
     
162.             Conn.Open()
     
163.             'MsgBox("Connection Complete.")
     
164.         Catch ex As Exception
     
165.             MessageBox.Show(ex.Message, "ERROR")
     
166.             End
     
167.         End Try
     
168.     End Sub
     
169. 
     
170.     ' / --------------------------------------------------------------------
     
171.     ' / Config path.
     
172.     Function MyPath(ByVal AppPath As String) As String
     
173.         AppPath = AppPath.ToLower
     
174.         AppPath = AppPath.Replace("\bin\debug", "").Replace("\release\debug", "").Replace("\bin\x86\debug", "")
     
175.         If Microsoft.VisualBasic.Right(AppPath, 1) <> "" Then AppPath = AppPath & ""
     
176.         Return AppPath
     
177.     End Function
     
178. 
     
179.     Private Sub frmUnboundDataGrid_FormClosed(sender As Object, e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
     
180.         Me.Dispose()
     
181.         Application.Exit()
     
182.     End Sub
     
183. End Class

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

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