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

thongkorn

วันนี้แอดมินจะพาย้อนเวลาถอยหลังกลับไปเมื่อ 20 ปีที่แล้ว กับการเริ่มต้นฝึกฝนเขียนโปรแกรมด้วย Visual Basic 4.0 รุ่น 32 บิท ในยุคที่ข้อมูลข่าวสารทางอินเทอร์เน็ตยังไม่ได้รุ่งเรืองเหมือนในปัจจุบันนี้ ตอนที่ไมโครซอฟท์ออก VB4 มาใหม่ๆ เรียกได้ว่าตื่นตะลึงกันทั้งวงการ เพราะการเชื่อมต่อฐานข้อมูล มันทำในลักษณะแบบ Visual Style ซึ่งทำได้ง่ายดายมากด้วยการลากคอนโทรลมาวางแปะ (นี่คือจุดเริ่มต้นที่ VB ถูกค่อนแคะว่าเขียนโปรแกรมแบบไม่ต้องใช้สมอง) แต่ทว่าด้วยวิธีการนี้มันกลับไม่สามารถตอบโจทย์ของแอดมินหรือคนอื่นๆได้เลย เพราะการพัฒนามันยุ่งยาก ขาดความยืดหยุ่น ผู้ใช้งานก็ใช้ยากอีกนั่นแหละ ...

แอดมินภูมิใจนำเสนอ "รากเหง้า" ของการพัฒนาโปรแกรมติดต่อฐานข้อมูลด้วย Visual Basic 6.0 (SP6) ซึ่งอยากให้ทุกๆท่านได้ลองเปรียบเทียบกันดูซิว่า VB6 มันเหมือนหรือแตกต่างไปจาก VB.Net ที่แอดมินได้เผยแพร่ออกไปเมื่อไม่กี่วันที่ผ่านมา ด้วยวิธีการ Bound Data ในแบบ Run Time ซึ่งจะไม่ใช่การจับลากมาวางแปะแล้วจบ ...
หน้าจอโปรแกรม ... วิธีการนี้เราเรียกว่า การค้นคืนข้อมูล หรือ Retrieve Data อันเป็นจุดเริ่มต้นของทุกๆงาน



การอ้างอิงถึง ADO (Microsoft ActiveX Data Object) เพื่อพูดคุยติดต่อกับฐานข้อมูล


เลือก Component มาใช้งาน


หน้าจอการออกแบบ โดยจะไม่มีการผูกข้อมูล (Bound Data) ให้กับ ADODC (ADO Data Control) เปรียบเทียบได้กับ Data Source บน VB.Net นั่นเอง


แอดมินขอแนะนำให้ลองฝึกใช้เครื่องมือง่ายๆอย่าง MS Access ก่อนครับ ... เป็นตัวอย่างการเชื่อมความสัมพันธ์ของตารางข้อมูลแบบ One To One


ทดสอบ Query จาก MS Access

1. ' / --------------------------------------------------------------------------------
   
2. '// Load data into DataGridView.
   
3. Sub BindDataGrid(ByVal Sql As String)
   
4.     ' Data Control กับกำหนดการเชื่อมต่อไฟล์ฐานข้อมูลแบบ @Run Time
   
5.     With Adodc1
   
6.         .CursorLocation = adUseClient
   
7.         '// ให้อ่าน SQL Statement (Query)
   
8.         .CommandType = adCmdText
   
9.         '// แสดงผลข้อมูลอย่างเดียว ใช้ LockType แบบ Read Only
   
10.         .LockType = adLockReadOnly
    
11.         '// กำหนด RecordSource ด้วย Query
    
12.         .RecordSource = Sql
    
13.         '// สั่งให้ประมวลผลเพื่อกำหนด RecordSource ที่มาจาก SQL Statement
    
14.         .Refresh
    
15.     End With
    
16.    
    
17.     '// Bound Data between Adodc1 and DataGrid Control
    
18.     Set DataGrid1.DataSource = Adodc1
    
19. 
    
20. End Sub

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

การ Bound Data แบบ Run Time ... สังเกตครับว่าเหมือนใน VB.Net หรือไม่???

มาดูโค้ดฉบับเต็ม ...

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. ' /
   
8. ' / Purpose: Simple procedure to binding data into DataGrid @Run Time. (ADODC)
   
9. ' / Microsoft Visual Basic 6 (SP6) + MS Access 2007+
   
10. ' /
    
11. ' / This is open source code under @Copyleft by Thongkorn Tubtimkrob.
    
12. ' / You can modify and/or distribute without to inform the developer.
    
13. ' / --------------------------------------------------------------------------------
    
14. Option Explicit
    
15. 
    
16. ' / --------------------------------------------------------------------------------
    
17. Private Sub cmdExecute_Click()
    
18.     '// Trap Error
    
19.     If Trim(txtSQL.Text) = "" Or Len(Trim$(txtSQL.Text)) = 0 Then Exit Sub
    
20.     '// Binding Data into DataGrid
    
21.     Call BindDataGrid(txtSQL.Text)
    
22. End Sub
    
23. 
    
24. ' / --------------------------------------------------------------------------------
    
25. Private Sub cmdOpenDB_Click()
    
26.     On Error Resume Next
    
27.     '// เลือกไฟล์ MS Access เข้ามา
    
28.     dlgOpenDB.FileName = ""
    
29.     dlgOpenDB.InitDir = App.Path
    
30.     dlgOpenDB.DialogTitle = "Select Microsoft Access " '// Set the Common Dialog Title
    
31.     dlgOpenDB.Filter = "Microsoft Access Files |*.accdb;*.mdb" '// Display only mdb files
    
32.     dlgOpenDB.CancelError = True '// Cancel all errors
    
33.     dlgOpenDB.ShowOpen
    
34.     dlgOpenDB.DefaultExt = "*.accdb" '// Set the default extension
    
35.    
    
36.     If dlgOpenDB.FileName = "" Then Exit Sub
    
37.     '// Get filename.
    
38.     txtLocateDB.Text = dlgOpenDB.FileName
    
39.     '// Trap Error
    
40.     If Len(txtLocateDB.Text) = 0 Or Trim(txtLocateDB.Text) = "" Then Exit Sub
    
41.    
    
42.     '// Connect the database by filename of your choice.
    
43.     If OpenDataBase(Adodc1, txtLocateDB.Text) Then
    
44.         lblStatus.Caption = "Connection successful ..."
    
45.         lblStatus.ForeColor = &H8000&
    
46.     Else
    
47.         lblStatus.Caption = "Disconnection ..."
    
48.         lblStatus.ForeColor = vbRed
    
49.     End If
    
50. End Sub
    
51. 
    
52. ' / --------------------------------------------------------------------------------
    
53. '// รับค่า ADODC และชื่อไฟล์, คืนค่าเป็น True หากทำการติดต่อฐานข้อมูลสำเร็จ
    
54. Private Function OpenDataBase(AdoControl As Adodc, DBFile As String) As Boolean
    
55.     On Error GoTo ErrHandler
    
56.     '// Provider=Microsoft.Jet.OLEDB.4.0 --> For MS Access 2003
    
57.     With AdoControl
    
58.         .ConnectionString = _
    
59.             " Provider=Microsoft.ACE.OLEDB.12.0; " & _
    
60.             " Data Source=" & DBFile & ";" & _
    
61.             " Persist Security Info=False;"
    
62.     End With
    
63.     OpenDataBase = True
    
64.    
    
65. ExitProc:
    
66.     Exit Function
    
67.    
    
68. ErrHandler:
    
69.         MsgBox "Open Database Error : " & vbCrLf & Err.Number & " " & Err.Description
    
70.         'ConnectDataBase = False
    
71.         'Resume ExitProc
    
72.         End
    
73. End Function
    
74. 
    
75. ' / --------------------------------------------------------------------------------
    
76. Private Sub Form_Load()
    
77.     '// Turn off visibility
    
78.     Adodc1.Visible = False
    
79.     txtLocateDB.Text = ""
    
80.     lblStatus.Caption = "Status"
    
81.     'txtSQL.Text = ""
    
82.     '// ตัวอย่าง SQL Statement
    
83.     'txtSQL.Text = "SELECT ContactPK, Fullname, NickName, Phone FROM tblContact ORDER BY ContactPK"
    
84.     txtSQL.Text = _
    
85.         "SELECT tblContact.ContactPK, tblContact.Fullname, " & _
    
86.         "tblPosition.PositionName, tblDepartment.DepartmentName " & _
    
87.         "FROM tblDepartment INNER JOIN (tblContact INNER JOIN tblPosition ON " & _
    
88.         "tblContact.PositionFK = tblPosition.PositionPK) ON tblDepartment.DepartmentPK = tblContact.DepartmentFK "
    
89. End Sub
    
90. 
    
91. ' / --------------------------------------------------------------------------------
    
92. '// Load data into DataGridView.
    
93. Sub BindDataGrid(ByVal Sql As String)
    
94.     ' Data Control กับกำหนดการเชื่อมต่อไฟล์ฐานข้อมูลแบบ @Run Time
    
95.     With Adodc1
    
96.         .CursorLocation = adUseClient
    
97.         '// ให้อ่าน SQL Statement (Query)
    
98.         .CommandType = adCmdText
    
99.         '// แสดงผลข้อมูลอย่างเดียว ใช้ LockType แบบ Read Only
    
100.         .LockType = adLockReadOnly
     
101.         '// กำหนด RecordSource ด้วย Query
     
102.         .RecordSource = Sql
     
103.         '// สั่งให้ประมวลผลเพื่อกำหนด RecordSource ที่มาจาก SQL Statement
     
104.         .Refresh
     
105.     End With
     
106.    
     
107.     '// Bound Data between Adodc1 and DataGrid Control
     
108.     Set DataGrid1.DataSource = Adodc1
     
109. 
     
110. End Sub
     
111. 
     
112. ' / --------------------------------------------------------------------------------
     
113. Private Sub Form_Unload(Cancel As Integer)
     
114.     Set frmBoundData = Nothing
     
115. End Sub
     
116. 
     
117. ' / --------------------------------------------------------------------------------
     
118. Private Sub txtLocateDB_KeyPress(KeyAscii As Integer)
     
119.     '// Lock key
     
120.     KeyAscii = 0
     
121. End Sub

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

Conclusion: จะเห็นได้อย่างชัดเจนเลยว่า หลักการวิธีคิดที่มาจาก VB6 สามารถนำมาใช้ได้กับ VB.Net ได้เหมือนกันเป๊ะๆเลย ... นี่แหละที่เราเรียกกันว่า "พื้นฐาน"
ดาวน์โหลดโค้ดต้นฉบับ VB6 ได้ที่นี่