[VB.NET] แจกโค้ดรวมชุดคำสั่งในการทำ Binding Source หรือ Bound Data ให้กับตารางกริด

thongkorn

สำหรับโค้ดชุดนี้จะเป็นการทำ Bound Data ในแบบการเขียนด้วยโค้ดทั้งหมด โดยจะกำหนดชุดข้อมูลให้กับตารางกริด เช่น DataGridView1.DataSource = "ชุดข้อมูล" ...
แอดมินได้อธิบายไปหลายครั้งแล้วล่ะ สำหรับคำว่า Bound Data และ Unbound Data Control ก็ลองไปอ่านเพิ่มเติมตามลิ้งค์ด้านล่างนี้ก็แล้วกันครับ ...

[VB6] แจกโค้ดการใช้งานตารางกริด SharpGrid UnBound Data Control ในแบบ Run Time

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

มาดูโค้ดฉบับเต็มกันเถอะ ...

1. Imports System.Data.OleDb
   
2. Imports Microsoft.VisualBasic
   
3. 
   
4. Public Class frmADONet
   
5.     '// ตัวแปรที่ใช้ในการติดต่อกับฐานข้อมูล จะแยกไปอยู่ที่โมดูล modDataBase.vb ทั้งหมด (พยายามแยกเขียนให้เป็นระบบด้วยครับ)
   
6.     '// Sample Query. (Local Variable)
   
7.     Dim sql = "SELECT PostCodePK, Tumbon, Amphur, Province, PostCode FROM Postcode "
   
8. 
   
9.     Private Sub frmADONet_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
   
10.         Conn = ConnectDataBase()
    
11.     End Sub
    
12. 
    
13.     '// DataReader to DataTable.
    
14.     '// DataReader ใช้ในการอ่านข้อมูลจากฐานข้อมูล และเป็นการอ่านแบบเดินหน้าอย่างเดียว (Forward Only) จะดึงข้อมูลได้รวดเร็วมาก โดยใช้ ExecuteReader ในการผูกข้อมูล
    
15.     Private Sub btnDataReader_Click(sender As System.Object, e As System.EventArgs) Handles btnDataReader.Click
    
16.         Try
    
17.             If Conn.State = ConnectionState.Closed Then Conn.Open()
    
18.             Cmd = New OleDbCommand(sql, Conn)
    
19.             DR = Cmd.ExecuteReader()
    
20.             DT = New DataTable
    
21.             DT.Load(DR)
    
22.             dgvData.DataSource = DT
    
23.             GroupBox1.Text = " Bound Data : " & Format(dgvData.Rows.Count, "#,##") & " Records. "
    
24.             DT.Dispose()
    
25.             DR.Close()
    
26.             Cmd.Dispose()
    
27.             '//
    
28.             Call SetupGridView()
    
29.         Catch ex As Exception
    
30.             MessageBox.Show(ex.Message)
    
31.         End Try
    
32.     End Sub
    
33. 
    
34.     '// DataAdapter to DataSet.
    
35.     '// DataSet ไม่จำเป็นต้องใช้การเชื่อมต่อในระหว่างการทำงานกับชุดข้อมูล และถูกใช้เพื่อเก็บข้อมูลหลายๆตาราง
    
36.     Private Sub btnDataSet_Click(sender As System.Object, e As System.EventArgs) Handles btnDataSet.Click
    
37.         Try
    
38.             If Conn.State = ConnectionState.Closed Then Conn.Open()
    
39.             DA = New OleDb.OleDbDataAdapter(sql & "ORDER BY Province ", Conn)
    
40.             '/ Fill the DataSet.
    
41.             DS = New DataSet
    
42.             DA.Fill(DS, "PostCode")
    
43.             DA.Fill(DS)
    
44.             DS.Dispose()
    
45.             DA.Dispose()
    
46.             dgvData.DataSource = DS.Tables("PostCode").DefaultView
    
47.             GroupBox1.Text = " Bound Data : " & Format(dgvData.Rows.Count, "#,##") & " Records. "
    
48.             '//
    
49.             Call SetupGridView()
    
50.         Catch ex As Exception
    
51.             MessageBox.Show(ex.Message)
    
52.         End Try
    
53.     End Sub
    
54. 
    
55.     '// DataAdapter with Multiple Tables.
    
56.     '// DataAdapter จะทำหน้าที่เป็นบริดจ์ระหว่างชุดข้อมูลและฐานข้อมูล โดยจะผูกข้อมูลเก็บผลลัพธ์ไว้ไน DataSet หรือ DataTable
    
57.     '// DataAdapter จะตัดการเชื่อมต่อกับกับฐานข้อมูล (Disconnected) เมื่อทำงานเสร็จสิ้น
    
58.     Private Sub btnDataAdapter_Click(sender As System.Object, e As System.EventArgs) Handles btnDataAdapter.Click
    
59.         Try
    
60.             If Conn.State = ConnectionState.Closed Then Conn.Open()
    
61.             DS = New DataSet()
    
62.             DA = New OleDbDataAdapter(sql & "ORDER BY PostCode ", Conn)
    
63.             '// First Table.
    
64.             DA.Fill(DS, "PostCode")
    
65.             '// Second Table.
    
66.             DA.SelectCommand.CommandText = "SELECT CustomerPK, CustomerID, CustomerName FROM tblCustomer "
    
67.             DA.Fill(DS, "Customer")
    
68.             DA.Dispose()
    
69.             'dgvData.DataSource = DS.Tables(0)   '/ PostCode Table.
    
70.             dgvData.DataSource = DS.Tables("Customer")  '/ Customer Table.
    
71.             GroupBox1.Text = " Bound Data : " & Format(dgvData.Rows.Count, "#,##") & " Records. "
    
72.             DS.Dispose()
    
73.             '//
    
74.             Call SetupGridView()
    
75.         Catch ex As Exception
    
76.             MessageBox.Show(ex.Message)
    
77.         End Try
    
78.     End Sub
    
79. 
    
80.     '// DataAdapter with DataTable.
    
81.     '// DataTable จะแสดงถึงตารางเดียวในฐานข้อมูล ซึ่งก็จะมันมีแถว (Records) และหลัก (Fields) เป็นเพียงการรวบรวมชุดข้อมูลเหมือนตารางข้อมูลเท่านั้น.
    
82.     Private Sub btnDataTable_Click(sender As System.Object, e As System.EventArgs) Handles btnDataTable.Click
    
83.         Try
    
84.             If Conn.State = ConnectionState.Closed Then Conn.Open()
    
85.             Cmd = New OleDbCommand(sql & "ORDER BY Province, PostCode", Conn)
    
86.             DA = New OleDbDataAdapter(Cmd)
    
87.             DT = New DataTable()
    
88.             DA.Fill(DT)
    
89.             dgvData.DataSource = DT
    
90.             GroupBox1.Text = " Bound Data : " & Format(dgvData.Rows.Count, "#,##") & " Records. "
    
91.             DT.Dispose()
    
92.             DA.Dispose()
    
93.             '//
    
94.             Call SetupGridView()
    
95.         Catch ex As Exception
    
96.             MessageBox.Show(ex.Message)
    
97.         End Try
    
98.     End Sub
    
99. 
    
100.     '// DataReader To DataSet
     
101.     Private Sub btnReaderToDataSet_Click(sender As System.Object, e As System.EventArgs) Handles btnReaderToDataSet.Click
     
102.         Try
     
103.             If Conn.State = ConnectionState.Closed Then Conn.Open()
     
104.             Cmd = New OleDbCommand(sql)
     
105.             Cmd.Connection = Conn
     
106.             Using DR As OleDbDataReader = Cmd.ExecuteReader()
     
107.                 '/ Create a new DataSet.
     
108.                 DS = New DataSet()
     
109.                 DS.Tables.Add("PostCode")
     
110.                 '/ Load DataReader into the DataTable.
     
111.                 DS.Tables(0).Load(DR)
     
112.                 dgvData.DataSource = DS.Tables(0)
     
113.                 GroupBox1.Text = " Bound Data : " & Format(dgvData.Rows.Count, "#,##") & " Records. "
     
114.                 DS.Dispose()
     
115.                 DR.Dispose()
     
116.             End Using
     
117.             '//
     
118.             Call SetupGridView()
     
119.         Catch ex As Exception
     
120.             MessageBox.Show(ex.Message)
     
121.         End Try
     
122.     End Sub
     
123. 
     
124.     Private Sub btnClose_Click(sender As System.Object, e As System.EventArgs) Handles btnClose.Click
     
125.         Me.Close()
     
126.     End Sub
     
127. 
     
128.     Private Sub frmADONet_FormClosed(sender As Object, e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
     
129.         Me.Dispose()
     
130.         GC.SuppressFinalize(Me)
     
131.         Application.Exit()
     
132.     End Sub
     
133. 
     
134.     Private Sub SetupGridView()
     
135.         With dgvData
     
136.             .RowHeadersVisible = True
     
137.             .AllowUserToAddRows = False
     
138.             .AllowUserToDeleteRows = False
     
139.             .AllowUserToResizeRows = False
     
140.             .MultiSelect = False
     
141.             .SelectionMode = DataGridViewSelectionMode.FullRowSelect
     
142.             .ReadOnly = True
     
143.             '// Data rows
     
144.             .Font = New Font("Tahoma", 10)
     
145.             .RowTemplate.MinimumHeight = 27
     
146.             .RowTemplate.Height = 27
     
147.             '// Column Header
     
148.             .ColumnHeadersHeight = 30
     
149.             .ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.DisableResizing
     
150.             '// Autosize Column
     
151.             .AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
     
152.             '// Even-Odd Color
     
153.             .AlternatingRowsDefaultCellStyle.BackColor = Color.AliceBlue ' Color.LightGreen
     
154.             '// Header
     
155.             With .ColumnHeadersDefaultCellStyle
     
156.                 .BackColor = Color.Navy
     
157.                 .ForeColor = Color.White
     
158.                 .Font = New Font(dgvData.Font, FontStyle.Bold)
     
159.             End With
     
160.         End With
     
161.     End Sub
     
162. 
     
163. End Class

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

โมดูลหากิน ...

1. Imports System.Data.OleDb
   
2. Imports Microsoft.VisualBasic
   
3. 
   
4. Module modDataBase
   
5.     '// Declare variable one time but use many times.
   
6.     Public Conn As OleDbConnection
   
7.     Public Cmd As OleDbCommand
   
8.     Public DS As DataSet
   
9.     Public DR As OleDbDataReader
   
10.     Public DA As OleDbDataAdapter
    
11.     Public DT As DataTable
    
12.     'Public strSQL As String '// Major SQL
    
13.     'Public strStmt As String    '// Minor SQL
    
14. 
    
15.     '// Data Path
    
16.     Public strPathData As String = MyPath(Application.StartupPath)
    
17. 
    
18.     Public Function ConnectDataBase() As System.Data.OleDb.OleDbConnection
    
19.         Try
    
20.             Dim strConn As String = _
    
21.                     "Provider = Microsoft.ACE.OLEDB.12.0;"
    
22.             strConn += _
    
23.                 "Data Source = " & strPathData & "PostCodeThailand.accdb"
    
24. 
    
25.             Conn = New OleDb.OleDbConnection(strConn)
    
26.             '/ Create Connection
    
27.             Conn.ConnectionString = strConn
    
28.             '/ Return
    
29.             Return Conn
    
30.         Catch ex As Exception
    
31.             MessageBox.Show("Error: " & ex.Message, "Report Status", MessageBoxButtons.OK, MessageBoxIcon.Warning)
    
32.             End
    
33.         End Try
    
34.     End Function
    
35. 
    
36.     ' / --------------------------------------------------------------------------------
    
37.     ' / Get my project path
    
38.     ' / AppPath = C:\My Project\bin\debug
    
39.     ' / Replace "\bin\debug" with ""
    
40.     ' / Return : C:\My Project\
    
41.     Function MyPath(AppPath As String) As String
    
42.         '/ MessageBox.Show(AppPath);
    
43.         AppPath = AppPath.ToLower()
    
44.         '/ Return Value
    
45.         MyPath = AppPath.Replace("\bin\debug", "").Replace("\bin\release", "").Replace("\bin\x86\debug", "")
    
46.         '// If not found folder then put the \ (ASCII Code BackSlash = 92) at the end.
    
47.         If Right(MyPath, 1) <> Chr(92) Then MyPath = MyPath & Chr(92)
    
48.     End Function
    
49. End Module

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

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

MMEE007

ขอบคุณคับ