[VB.NET] พื้นฐานการนำข้อมูลจาก DataBase มาแสดงผลบนตารางกริด (Data Reader)

thongkorn

จากภาคแรก [VB.NET] พื้นฐานการนำข้อมูลจาก DataBase มาแสดงผลบนตารางกริด (DataSet) ด้วยการใช้ DataSet โดยการใช้โค้ดแบบ @Run Time ที่แอดมินเรียกมันว่า Bound Data จะเห็นว่ามีความสะดวกสบายและง่ายดายมากๆ แต่ทว่ามันกลับมีความยุ่งยากในการแสดงผลข้อมูลในตารางกริดจำพวกรูปภาพ (แบบเก็บชื่อไฟล์ โดยไม่ได้จับยัดภาพใส่ไว้ในฐานข้อมูล) หรือสูตรสมการ เช่น การป้อนราคาสินค้า แล้วต้องคูณกับจำนวนสินค้า (หรือกลับกัน) ดังนั้นวิธีการ Unbound Data หรือ การไม่ผูกข้อมูลใดๆเข้ากับคอนโทรล จึงถูกนำมาใช้แก้ปัญหาควบคู่กันมาตลอด ตั้งแต่ยุคสมัยรุ่นคุณปู่ทวด MS Visual Basic 4.0 เหลือเชื่อมั้ยล่ะครับทั่นผู้ชม ...

1. "SELECT ContactPK, Fullname, NickName, Phone FROM tblContact ORDER BY ContactPK "

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

กรณีของ Bound Data ฟิลด์ข้อมูลต่างๆเหล่านี้ เมื่อนำไปแสดงผลใน DataGrid หลัก (Column) จะต้องถูกจัดเรียงลำดับตาม Query แต่กรณีของ Unbound Data ไม่มีความจำเป็นต้องมีการเรียงลำดับกัน แล้วยังสามารถเลือกที่จะนำมาแสดงผลในตารางกริดหรือไม่ก็ได้

1.             '// Count fields and add columns
   
2.             For iCol = 0 To DR.FieldCount - 1
   
3.                 With dgvData
   
4.                     '// Add columns.
   
5.                     .Columns.Add("Column" & iCol, "Column" & iCol)
   
6.                 End With
   
7.             Next

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

สาระสำคัญของการ Unbound Data ก่อนที่จะนำเอาข้อมูลมาแสดงผลในตารางกริดได้ เราจะต้องรู้และตั้งค่าจำนวนหลัก (Columns) ที่มีทั้งหมดเสียก่อน ส่วนกรณีของ Bound Data จะไม่ต้องการ เพราะมันนับตาม Query เอาเลย

1.             If DR.HasRows Then
   
2.                 While DR.Read
   
3.                     With dgvData
   
4.                         '// Add new row.
   
5.                         .Rows.Add()
   
6.                         '// Loop through the number of fields
   
7.                         For iCol = 0 To DR.FieldCount - 1
   
8.                             .Rows(iRow).Cells(iCol).Value = DR.Item(iCol).ToString
   
9.                         Next
   
10.                     End With
    
11.                     '// Next row
    
12.                     iRow += 1
    
13.                 End While
    
14.             End If

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

คุณลักษณะอย่างหนึ่งของการ Unbound Data จะต้องมีวิธีการทำซ้ำ (Repetitive) ... ขอให้สังเกตดีๆว่า ตัว DataGridView จะไม่มีการผูก (Bound Data) เอาไว้กับแหล่งจ่ายข้อมูล หรือ Data Source ใดๆเลย ... คงจะกระจ่างแจ้งแล้วใช่มั้ยครับท่านผู้ชม สำหรับคำว่า Bound VS UnBound

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

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: Simple procedure to binding data into DataGridView @Run Time. (Data Reader)
   
8. ' / Microsoft Visual Basic .NET (2010) + MS Access 2007+
   
9. ' /
   
10. ' / This is open source code under @Copyleft by Thongkorn Tubtimkrob.
    
11. ' / You can modify and/or distribute without to inform the developer.
    
12. ' / --------------------------------------------------------------------------------
    
13. Imports System.Data.OleDb
    
14. Imports Microsoft.VisualBasic
    
15. 
    
16. Public Class frmDataReader
    
17.     Dim Conn As OleDbConnection
    
18.     Dim strPath As String = MyPath(Application.StartupPath)
    
19. 
    
20.     ' / --------------------------------------------------------------------------------
    
21.     Private Sub btnBrowse_Click(sender As System.Object, e As System.EventArgs) Handles btnBrowse.Click
    
22.         Dim OpenFile As New OpenFileDialog()
    
23.         '// Specifies the initial path.
    
24.         OpenFile.InitialDirectory = strPath
    
25.         OpenFile.FileName = ""
    
26.         '// Set to filter only files MS Access (*.accdb; *.mdb)
    
27.         OpenFile.Filter = "Microsoft Access Files |*.accdb;*.mdb"
    
28. 
    
29.         '// Reference
    
30.         '// http://msdn.microsoft.com/en-us/library/c7ykbedk.aspx
    
31.         '// http://msdn.microsoft.com/en-us/library/system.windows.forms.dialogresult.aspx
    
32.         Dim Res As System.Windows.Forms.DialogResult = OpenFile.ShowDialog()
    
33.         ' Press Cancel to leave.
    
34.         If Res = System.Windows.Forms.DialogResult.Cancel Then Return
    
35. 
    
36.         '// Bring path and filename to display in TextBox.
    
37.         txtLocateDB.Text = OpenFile.FileName
    
38.         '//
    
39.         If txtLocateDB.Text.Length = 0 Or Trim(txtLocateDB.Text) = "" Then Return
    
40.         '// Connect MS Access with your select file.
    
41.         If ConnectDataBase(txtLocateDB.Text) Then
    
42.             lblStatus.Text = "Connection successful ..."
    
43.             lblStatus.ForeColor = Color.Green
    
44.         Else
    
45.             lblStatus.Text = "Disconnection ..."
    
46.             lblStatus.ForeColor = Color.Red
    
47.         End If
    
48.     End Sub
    
49. 
    
50.     ' / --------------------------------------------------------------------------------
    
51.     '// Return True if can connect, otherwise is False.
    
52.     Public Function ConnectDataBase(ByVal DBFile As String) As Boolean
    
53.         Dim strConn As String = _
    
54.                 "Provider = Microsoft.ACE.OLEDB.12.0; "
    
55.         strConn += "Data Source = " & DBFile
    
56.         Try
    
57.             Conn = New OleDb.OleDbConnection(strConn)
    
58.             '// Create Connection
    
59.             Conn.ConnectionString = strConn
    
60.             Conn.Open()
    
61.             '// Return
    
62.             Return True
    
63.         Catch ex As Exception
    
64.             'MessageBox.Show(ex.Message)
    
65.             Return False
    
66.         End Try
    
67.     End Function
    
68. 
    
69.     ' / --------------------------------------------------------------------------------
    
70.     ' / Get my project path
    
71.     ' / AppPath = C:\My Project\bin\debug
    
72.     ' / Replace "\bin\debug" with ""
    
73.     ' / Return : C:\My Project\
    
74.     Function MyPath(ByVal AppPath As String) As String
    
75.         '/ MessageBox.Show(AppPath);
    
76.         AppPath = AppPath.ToLower()
    
77.         '/ Return Value
    
78.         MyPath = AppPath.Replace("\bin\debug", "").Replace("\bin\release", "").Replace("\bin\x86\debug", "")
    
79.         '// If not found folder then put the \ (BackSlash) at the end.
    
80.         If Microsoft.VisualBasic.Right(MyPath, 1) <> "" Then MyPath = MyPath & ""
    
81.     End Function
    
82. 
    
83.     Private Sub txtLocateDB_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles txtLocateDB.KeyPress
    
84.         '// Can't press any key into Textbox.
    
85.         e.Handled = True
    
86.     End Sub
    
87. 
    
88.     Private Sub frmDataBinding_FormClosed(sender As Object, e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
    
89.         Me.Dispose()
    
90.         Application.Exit()
    
91.     End Sub
    
92. 
    
93.     ' / --------------------------------------------------------------------------------
    
94.     Private Sub frmDataBinding_Load(sender As Object, e As System.EventArgs) Handles Me.Load
    
95.         '// Initialize DataGridView
    
96.         Call InitDataGrid()
    
97.         '// Sample SQL Statement
    
98.         'txtSQL.Text = "SELECT ContactPK, Fullname, NickName, Phone FROM tblContact ORDER BY ContactPK "
    
99.         txtSQL.Text = _
    
100.             "SELECT ContactPK, Fullname, NickName, Phone FROM tblContact " & _
     
101.             "WHERE Fullname LIKE '%T%' ORDER BY ContactPK ASC"
     
102.         '//
     
103.         lblStatus.Text = "Disconnection ..."
     
104.         lblStatus.ForeColor = Color.Red
     
105.     End Sub
     
106. 
     
107.     ' / --------------------------------------------------------------------------------
     
108.     '// Initialize DataGridView @Run Time
     
109.     Private Sub InitDataGrid()
     
110.         With dgvData
     
111.             .RowHeadersVisible = False
     
112.             .AllowUserToAddRows = False
     
113.             .AllowUserToDeleteRows = False
     
114.             .AllowUserToResizeRows = False
     
115.             .MultiSelect = False
     
116.             .SelectionMode = DataGridViewSelectionMode.CellSelect
     
117.             .ReadOnly = False
     
118.             .Font = New Font("Tahoma", 9)
     
119.             '// Autosize Column
     
120.             .AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
     
121.             .AutoResizeColumns()
     
122.             '// Even-Odd Color
     
123.             .AlternatingRowsDefaultCellStyle.BackColor = Color.AliceBlue
     
124.             ' Adjust Header Styles
     
125.             With .ColumnHeadersDefaultCellStyle
     
126.                 .BackColor = Color.Navy
     
127.                 .ForeColor = Color.Black
     
128.                 .Font = New Font("Tahoma", 9, FontStyle.Bold)
     
129.             End With
     
130.         End With
     
131.     End Sub
     
132. 
     
133.     ' / --------------------------------------------------------------------------------
     
134.     '// Load data into DataGridView.
     
135.     Private Sub BindDataGrid(ByVal Sql As String)
     
136.         Try
     
137.             Dim Cmd As New OleDbCommand
     
138.             If Conn.State = ConnectionState.Closed Then Conn.Open()
     
139.             Cmd.Connection = Conn
     
140.             Cmd.CommandText = Sql
     
141.             Dim DR As OleDbDataReader = Cmd.ExecuteReader
     
142.             '// Clear all columns.
     
143.             dgvData.Columns.Clear()
     
144.             '// Count fields and add columns
     
145.             For iCol = 0 To DR.FieldCount - 1
     
146.                 With dgvData
     
147.                     '// Add columns.
     
148.                     .Columns.Add("Column" & iCol, "Column" & iCol)
     
149.                 End With
     
150.             Next
     
151.             '// Clear all rows.
     
152.             dgvData.Rows.Clear()
     
153.             Dim iRow As Integer = 0
     
154.             If DR.HasRows Then
     
155.                 While DR.Read
     
156.                     With dgvData
     
157.                         '// Add new row.
     
158.                         .Rows.Add()
     
159.                         '// Loop through the number of fields
     
160.                         For iCol = 0 To DR.FieldCount - 1
     
161.                             .Rows(iRow).Cells(iCol).Value = DR.Item(iCol).ToString
     
162.                         Next
     
163.                     End With
     
164.                     '// Next row
     
165.                     iRow += 1
     
166.                 End While
     
167.             End If
     
168.             DR.Close()
     
169.             Conn.Close()
     
170.             '// You can change the columns header @ here
     
171.             With dgvData
     
172.                 .Columns(0).HeaderText = "Primary Key"
     
173.                 .Columns(1).HeaderText = "Full name"
     
174.                 '// Other columns
     
175.             End With
     
176.         Catch ex As Exception
     
177.             MessageBox.Show(ex.Message)
     
178.         End Try
     
179.     End Sub
     
180. 
     
181.     ' / --------------------------------------------------------------------------------
     
182.     Private Sub btnExecute_Click(sender As System.Object, e As System.EventArgs) Handles btnExecute.Click
     
183.         If txtSQL.Text.Length = 0 Or Trim(txtSQL.Text) = "" Then Return
     
184.         '// Execute SQL Statement
     
185.         Call BindDataGrid(txtSQL.Text)
     
186.     End Sub
     
187. 
     
188. End Class

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

Conclusion: ทั้งการ Bound และ Unbound Data มันเป็นพื้นฐานที่สำคัญในการแสดงผลข้อมูลในตารางกริด โดยแต่ละชนิดก็จะมีทั้งข้อดีและข้อเสีย ซึ่งเราจะต้องเลือกมันมาใช้งานให้ถูกที่ถูกเวลา การเรียนรู้ศึกษาต้องพิจารณาถึงความแตกต่างของโค้ดตัวอย่างที่แอดมินได้ให้ไป และหลักการที่ว่ามานี้ได้ถูกนำมาใช้งานตั้งแต่ MS Visual Basic 4.0 รุ่นตะลึงทั้งวงการ เพราะสามารถใช้งานบน Windows  32 บิทได้อย่างสมบูรณ์
ดาวน์โหลดโค้ดต้นฉบับ VB.NET (2010) ได้ที่นี่

Oplot

ขอบคุณครับ อาจารย์

Suradet

ขอบคุณครับ อาจารย์