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

thongkorn

สวัสดีครับพี่น้องหมู่เฮาชุมชนคนรักภาษาเบสิค วันนี้ก็มาแจกโค้ดแบบพื้นๆบ้านๆ แต่เป็นหลักการขั้นพื้นฐานที่จะนำทางให้พี่น้องได้ก้าวไปข้างหน้า ในการฝึกฝนเรียนรู้พัฒนาโปรแกรมด้วย Visual Basic .NET ด้วย การนำข้อมูลจาก DataBase มาแสดงผลบน DataGrid ในลักษณะที่เรียกกันว่า Bound Data หรือ การผูกข้อมูลเข้ากับคอนโทรล (DataGrid) แต่จะเป็นแบบ @Run Time Programming คือการใช้โค้ดเพื่อสั่งรันโปรแกรม มันจึงจะเห็นผล การเขียนโค้ดในลักษณะนี้ จะแตกต่างไปจากการจับลากมาวาง หรือที่เรียกว่า @Design Time เพราะเราจะสามารถควบคุมการทำงานของโปรแกรมให้เป็นไปในทิศทางที่เราต้องการได้ข่ะรับ ...
มารู้จักกับคำว่า Bound และ UnBound Control

• Bound Control ... คือการผูก (Bound) ตารางข้อมูลเข้ากับพวก Component หรือ Control ต่างๆ กรณีที่นำมาใช้แสดงผลลงในตารางกริด มันจะอ่านค่าฟิลด์ต่างๆ เพื่อแสดงผลในแต่ละหลัก เรียงตามลำดับจาก Query ที่เราเขียนไว้ และ ต้องแสดงทุกๆฟิลด์ออกมาทั้งหมด มักจะนำไปแสดงผลข้อมูล การป้อนข้อมูล และอัพเดตค่าจากฟิลด์ต่างๆในฐานข้อมูล
• UnBound Control ก็จะไม่มีการผูก (Unbound) ตารางข้อมูลใดๆเข้ากับ Component หรือ Control การนำไปใช้ในตารางกริด ไม่จำเป็นต้องแสดงผลออกมาทุกฟิลด์ โดยจะเอาตัวไหนมาแสดงผลในหลักใดๆของตารางกริดก่อนหลังก็ได้ มีความยืดหยุ่น มักใช้กับการเข้าไปแก้ไขข้อมูลตารางกริดในแต่ละเซลล์ เช่น การคำนวณ หรือการป้อนข้อมูลที่มีลักษณะแบบไม่ตายตัว
  

1. Dim DA As New OleDb.OleDbDataAdapter(Sql, Conn)
   
2.         Dim DS As New DataSet
   
3.         DA.Fill(DS)
   
4.         dgvData.DataSource = DS.Tables(0)

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

โค้ดในส่วนนี้นี่แหละคือ การผูกข้อมูล หรือ Bound Data

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

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. (Call Bound Data)
   
8. ' / Microsoft Visual Basic .NET (2010) + MS Access
   
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 frmDataBinding
    
17.     Dim Conn As OleDbConnection
    
18.     Dim strPath As String = MyPath(Application.StartupPath)
    
19. 
    
20.     ' / --------------------------------------------------------------------------------
    
21.     '// Initialize DataGridView @Run Time
    
22.     Private Sub InitDataGrid()
    
23.         With dgvData
    
24.             .RowHeadersVisible = False
    
25.             .AllowUserToAddRows = False
    
26.             .AllowUserToDeleteRows = False
    
27.             .AllowUserToResizeRows = False
    
28.             .MultiSelect = False
    
29.             .SelectionMode = DataGridViewSelectionMode.FullRowSelect
    
30.             .ReadOnly = True
    
31.             .Font = New Font("Tahoma", 9)
    
32.             '// Autosize Column
    
33.             .AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
    
34.             .AutoResizeColumns()
    
35.             '// Even-Odd Color
    
36.             .AlternatingRowsDefaultCellStyle.BackColor = Color.AliceBlue
    
37.             ' Adjust Header Styles
    
38.             With .ColumnHeadersDefaultCellStyle
    
39.                 .BackColor = Color.Navy
    
40.                 .ForeColor = Color.Black
    
41.                 .Font = New Font("Tahoma", 9, FontStyle.Bold)
    
42.             End With
    
43.         End With
    
44.     End Sub
    
45. 
    
46.     ' / --------------------------------------------------------------------------------
    
47.     Private Sub btnBrowse_Click(sender As System.Object, e As System.EventArgs) Handles btnBrowse.Click
    
48.         Dim OpenFile As New OpenFileDialog()
    
49.         '// Specifies the initial path.
    
50.         OpenFile.InitialDirectory = strPath
    
51.         OpenFile.FileName = ""
    
52.         '// Set to filter only files MS Access (*.accdb;*.mdb)
    
53.         OpenFile.Filter = "Microsoft Access Files |*.accdb;*.mdb"
    
54. 
    
55.         '// Reference
    
56.         '// http://msdn.microsoft.com/en-us/library/c7ykbedk.aspx
    
57.         '// http://msdn.microsoft.com/en-us/library/system.windows.forms.dialogresult.aspx
    
58.         Dim Res As System.Windows.Forms.DialogResult = OpenFile.ShowDialog()
    
59.         ' Press Cancel to leave.
    
60.         If Res = System.Windows.Forms.DialogResult.Cancel Then Return
    
61. 
    
62.         '// Bring path and filename to display in TextBox.
    
63.         txtLocateDB.Text = OpenFile.FileName
    
64.         '//
    
65.         If txtLocateDB.Text.Length = 0 Or Trim(txtLocateDB.Text) = "" Then Return
    
66.         '// Connect MS Access with your select file.
    
67.         If ConnectDataBase(txtLocateDB.Text) Then
    
68.             lblStatus.Text = "Connection ..."
    
69.             lblStatus.ForeColor = Color.Green
    
70.         Else
    
71.             lblStatus.Text = "Disconnection ..."
    
72.             lblStatus.ForeColor = Color.Red
    
73.         End If
    
74.     End Sub
    
75. 
    
76.     ' / --------------------------------------------------------------------------------
    
77.     '// Return True if can connect, otherwise is False.
    
78.     Public Function ConnectDataBase(ByVal DBFile As String) As Boolean
    
79.         Dim strConn As String = _
    
80.                 "Provider = Microsoft.ACE.OLEDB.12.0; "
    
81.         strConn += "Data Source = " & DBFile
    
82.         Try
    
83.             Conn = New OleDb.OleDbConnection(strConn)
    
84.             '// Create Connection
    
85.             Conn.ConnectionString = strConn
    
86.             Conn.Open()
    
87.             '// Return
    
88.             Return True
    
89.         Catch ex As Exception
    
90.             'MessageBox.Show(ex.Message)
    
91.             Return False
    
92.         End Try
    
93.     End Function
    
94. 
    
95.     ' / --------------------------------------------------------------------------------
    
96.     ' / Get my project path
    
97.     ' / AppPath = C:\My Project\bin\debug
    
98.     ' / Replace "\bin\debug" with ""
    
99.     ' / Return : C:\My Project\
    
100.     Function MyPath(ByVal AppPath As String) As String
     
101.         '/ MessageBox.Show(AppPath);
     
102.         AppPath = AppPath.ToLower()
     
103.         '/ Return Value
     
104.         MyPath = AppPath.Replace("\bin\debug", "").Replace("\bin\release", "").Replace("\bin\x86\debug", "")
     
105.         '// If not found folder then put the \ (BackSlash) at the end.
     
106.         If Microsoft.VisualBasic.Right(MyPath, 1) <> "" Then MyPath = MyPath & ""
     
107.     End Function
     
108. 
     
109.     Private Sub txtLocateDB_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles txtLocateDB.KeyPress
     
110.         '// Can't press any key into Textbox.
     
111.         e.Handled = True
     
112.     End Sub
     
113. 
     
114.     Private Sub frmDataBinding_FormClosed(sender As Object, e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
     
115.         Me.Dispose()
     
116.         Application.Exit()
     
117.     End Sub
     
118. 
     
119.     ' / --------------------------------------------------------------------------------
     
120.     Private Sub frmDataBinding_Load(sender As Object, e As System.EventArgs) Handles Me.Load
     
121.         '// Initialize DataGridView
     
122.         Call InitDataGrid()
     
123.         '// Sample SQL Statement
     
124.         txtSQL.Text = "SELECT ContactPK, Fullname, Nickname, Mobile, Phone, eMail, LineID FROM tblContact ORDER BY ContactPK "
     
125.         'txtSQL.Text = "SELECT ContactPK, Fullname, NickName, Mobile, eMail FROM tblContact WHERE Fullname LIKE '%T%' ORDER BY ContactPK"
     
126.         lblStatus.Text = "Disconnection ..."
     
127.         lblStatus.ForeColor = Color.Red
     
128.     End Sub
     
129. 
     
130.     ' / --------------------------------------------------------------------------------
     
131.     '// BOUND DATA into DataGridView.
     
132.     Private Sub BindDataGrid(ByVal Sql As String)
     
133.         Try
     
134.             If Conn.State = ConnectionState.Closed Then Conn.Open()
     
135.             Dim DA As New OleDb.OleDbDataAdapter(Sql, Conn)
     
136.             Dim DS As New DataSet
     
137.             DA.Fill(DS)
     
138.             dgvData.DataSource = DS.Tables(0)
     
139.             '//
     
140.             DA.Dispose()
     
141.             DS.Dispose()
     
142.             Conn.Close()
     
143.             '// Addition
     
144.             With dgvData
     
145.                 '// You can change the columns header @ here
     
146.                 .Columns(1).HeaderText = "Column Text"
     
147.                 '// If you want to turn off the display some columns.
     
148.                 '.Columns("LineID").Visible = False
     
149.                 '// Or count column by index
     
150.                 .Columns(6).Visible = False
     
151.             End With
     
152. 
     
153.         Catch ex As Exception
     
154.             MessageBox.Show(ex.Message)
     
155.         End Try
     
156.     End Sub
     
157. 
     
158.     ' / --------------------------------------------------------------------------------
     
159.     Private Sub btnExecute_Click(sender As System.Object, e As System.EventArgs) Handles btnExecute.Click
     
160.         If txtSQL.Text.Length = 0 Or Trim(txtSQL.Text) = "" Then Return
     
161.         Call BindDataGrid(txtSQL.Text)
     
162.     End Sub
     
163. 
     
164. End Class

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

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

thawatchai-sena

ขอบคุณครับ