[VB6] การเชื่อมต่อฐานข้อมูล MySQL Server ผ่าน ODBC และทำการแสดงผลข้อมูล

thongkorn

การเขียนโปรแกรมด้วย VB6 เพื่อเชื่อมต่อฐานข้อมูล MySQL Server จะต้องทำผ่าน ODBC (Open DataBase Connectivity) ซึ่งจัดว่าเป็นการติดต่อข้อมูลที่โบราณที่สุด ช้าที่สุด หากเปรียบเทียบกับ DAO (Data Access Objects) และ ADO (ActiveX Data Objects) แต่นั่นมันคือทฤษฎี หรือคำนิยามที่กล่าวถึงกันเมื่อ 20 ปีก่อนนู้นนนนน เพราะในทุกวันนี้คอมพิวเตอร์สามารถทำงานและประมวลผลได้เร็วกว่าอดีตเยอะแยะมากมาย ... แอดมินจะอธิบายคร่าวๆให้สำหรับท่านที่ไม่เคยใช้ MySQL มาก่อนน่ะครับ คือเราต้องติดตั้ง MySQL Server เข้าไปก่อน (สายเว็บก็จะมี Xampp หรือตัวอื่นๆ) แต่สำหรับสาย Win App. แอดมินแนะนำให้ใช้ MySQL Installer ตัวเดียวไปเลย เพื่อทำการติดตั้งตัว MySQL Server และ Connector/ODBC ซึ่งมันเป็นตัวพูดคุยสื่อสารกันระหว่าง VB6 และ MySQL Server สำหรับ MySQL Workbench จะเป็นตัวคอยจัดการฐานข้อมูลของเราอีกที สำหรับรายละเอียดคงต้องไปหาศึกษาเองล่ะกันครับ ... (การสร้าง Schema และการรันสคริปท์ (SQL) ใน MySQL ด้วย MySQL Workbench)

การใช้ MySQL Installer เพื่อทำการติดตั้ง MySQL Server, MySQL Workbench และ Connector/ODBC ที่เราจะใช้สำหรับ VB6 (คลิ๊กดาวน์โหลดไฟล์ติดตั้งได้ที่นี่)

อนึ่ง!!! แอดมินเลือกใช้ MySQL Server 5.7 เพราะมีปัญหาในการ Config กับ MySQL Server เวอร์ชั่น 8 ครับผม

หน้าตาของ MySQL Workbench (ดาวน์โหลดไฟล์ Sakila.sql ได้ที่นี่)


ขั้นตอนของการตั้งค่า DSN (Data Source Name) ... โดยเครื่องแอดมินลงทั้ง ODBC ขนาด 32/64 บิท
- กรณี 32 บิท ไปที่ Run พิมพ์คำสั่ง %Windir%\SysWOW64\odbcad32.exe
- กรณี 64 บิท ไปที่ Run พิมพ์คำสั่ง %Windir%\System32\odbcad32.exe

เลือก Add ...


เลือก MySQL ODBC 5.3 Unicode Driver ...


กรอกข้อมูลรายละเอียดในการเชื่อมต่อ MySQL Server ผ่านทาง ODBC และลองกดปุ่ม Test ...

(สำหรับ DataBase มันจะแสดงรายการขึ้นมาก็ต่อเมื่อคุณได้ทำการสร้างเอาไว้ใน MySQL Server เรียบร้อยแล้วครับ)

เมื่อกดปุ่ม OK ก็จะแสดง DSN ตัวใหม่ให้เห็น ...


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

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 only)
   
6. ' / Facebook: https://www.facebook.com/commonindy (Worldwide)
   
7. ' / MORE: http://www.g2gnet.com/webboard
   
8. ' /
   
9. ' / Purpose: Sample VB6 connect MySQL DataBase with ODBC.
   
10. ' / Microsoft Visual Basic 6.0 Service Pack 6
    
11. ' /
    
12. ' / This is open source code under @Copyleft by Thongkorn Tubtimkrob.
    
13. ' / You can modify and/or distribute without to inform the developer.
    
14. ' / -----------------------------------------------------------------------------------------------
    
15. 
    
16. Option Explicit
    
17. Dim ConnDB As ADODB.Connection
    
18. Dim RS As ADODB.Recordset
    
19. Dim Statement As String
    
20. 
    
21. ' / -----------------------------------------------------------------------------------------------
    
22. Private Sub Form_Load()
    
23. ' / -----------------------------------------------------------------------------------------------
    
24.     ' Center screen with coding
    
25.     Me.Move (Screen.Width - Width) \ 2, (Screen.Height - Height) \ 2
    
26.     ' Initial ListView control with run time (no design time)
    
27.     Call SetupListView
    
28.     '// Connect MySQL via ODBC
    
29.     'ConnectMySQL(Server, DataBase Name, Username, Password)
    
30.     '// อย่าลืมใส่ชื่อ Username และ Password ด้วย
    
31.     Call ConnectMySQL("localhost", "sakila", "Username", "Password")
    
32. End Sub
    
33. 
    
34. ' / -----------------------------------------------------------------------------------------------
    
35. Private Sub ConnectMySQL(Server As String, DB As String, Username As String, Password As String)
    
36. ' / -----------------------------------------------------------------------------------------------
    
37.     On Error GoTo ErrHandler
    
38. 
    
39.     '// Open a Connection.
    
40.     Set ConnDB = New ADODB.Connection
    
41.     ConnDB.ConnectionString = _
    
42.                     " DRIVER = {MySQL ODBC 5.3 Driver};" & _
    
43.                     " SERVER = " & Server & ";" & _
    
44.                     " DATA SOURCE = " & DB & ";" & _
    
45.                     " USER = " & Username & ";" & _
    
46.                     " PASSWORD = " & Password & ";" & _
    
47.                     " OPTION=3;"
    
48.     ConnDB.Open
    
49.     Exit Sub
    
50.    
    
51. ErrHandler:
    
52.     MsgBox "Error : " & Err.Number & " " & Err.Description
    
53.     End
    
54. End Sub
    
55. 
    
56. ' / -----------------------------------------------------------------------------------------------
    
57. Private Sub cmdListData_Click()
    
58. ' / -----------------------------------------------------------------------------------------------
    
59.     On Error GoTo ErrHandler
    
60. 
    
61.     '/ ตัดการเชื่อมต่อ RecordSet เดิมทิ้งออกไป
    
62.     Set RS = New ADODB.Recordset
    
63.     '/ หรือสั้นๆ
    
64.     'Set RS = New Recordset
    
65.     Statement = "Select * From Customer ORDER BY customer_id "
    
66.     RS.CursorLocation = adUseClient
    
67.     RS.Open Statement, ConnDB, adOpenForwardOnly, adLockReadOnly, adCmdText
    
68.     'MsgBox RS.RecordCount
    
69.    
    
70.     Dim LV As ListItem
    
71.     lvwData.ListItems.Clear
    
72.     ' Populate the ListView with the data
    
73.     Dim i As Long
    
74.     For i = 0 To RS.RecordCount - 1
    
75.         ' Index = 0 it's customer_id but hidden this field
    
76.         Set LV = lvwData.ListItems.Add(, , RS("customer_id"))
    
77.         LV.SubItems(1) = "" & RS("first_name")
    
78.         LV.SubItems(2) = "" & RS("last_name")
    
79.         LV.SubItems(3) = "" & RS("email")
    
80.         ' next record
    
81.         RS.MoveNext
    
82.     Next
    
83. 
    
84.     RS.Close:    Set RS = Nothing
    
85.     'ConnDB.Close:    Set ConnDB = Nothing
    
86. 
    
87.     Exit Sub
    
88. 
    
89. ErrHandler:
    
90.     MsgBox "Error " & Err.Number & " (" & Err.Description & ")"
    
91. End Sub
    
92. 
    
93. Public Sub CloseDataBase()
    
94.     ' ตรวจสอบว่ามีการเชื่อมโยง - ConnDB ข้อมูลหรือไม่
    
95.     If ConnDB.State = adStateOpen Then
    
96.         ConnDB.Close
    
97.         Set ConnDB = Nothing
    
98.     End If
    
99. End Sub
    
100. 
     
101. ' Initial ListView
     
102. Sub SetupListView()
     
103.     With Me.lvwData
     
104.         ' Coding with Run Time
     
105.         .View = lvwReport
     
106.         .Arrange = lvwNone
     
107.         .LabelEdit = lvwManual
     
108.         .BorderStyle = ccFixedSingle
     
109.         .Appearance = cc3D
     
110.         
     
111.         .HideColumnHeaders = False
     
112.         .HideSelection = False
     
113.         .LabelWrap = False
     
114.         .MultiSelect = False
     
115.         .Enabled = True
     
116.         .AllowColumnReorder = True
     
117.         .Checkboxes = False
     
118.         .FlatScrollBar = False
     
119.         .FullRowSelect = True
     
120.         .GridLines = True
     
121.         .HotTracking = False
     
122.         .HoverSelection = False
     
123.         
     
124.         .Sorted = False
     
125.         .SortKey = 0
     
126.         '.SortOrder=lvwAscending
     
127.         
     
128.         ' Add header
     
129.         .ColumnHeaders.Add , , "CustomerID", .Width = 0
     
130.         .ColumnHeaders.Add , , "Firstname", .Width \ 3, lvwColumnLeft
     
131.         .ColumnHeaders.Add , , "Lastname", .Width \ 3 - 200
     
132.         .ColumnHeaders.Add , , "Email", .Width \ 3 - 200
     
133.     End With
     
134.    
     
135. End Sub
     
136. 
     
137. Private Sub Form_Resize()
     
138.     On Error Resume Next
     
139.     Me.lvwData.Move 0, 0, Me.ScaleWidth - Me.cmdListData.Width - 150, Me.ScaleHeight - 60
     
140.     Me.cmdListData.Left = Me.lvwData.Width + 60
     
141.     Me.cmdExit.Move Me.cmdListData.Left
     
142.     '//
     
143.     With Me.lvwData
     
144.         .ColumnHeaders(1).Width = 0
     
145.         .ColumnHeaders(2).Width = .Width \ 3
     
146.         .ColumnHeaders(3).Width = .Width \ 3 - 200
     
147.         .ColumnHeaders(4).Width = .Width \ 3 - 200
     
148.     End With
     
149. End Sub
     
150. 
     
151. ' / Double click mouse for get Primary Key
     
152. Private Sub lvwData_DblClick()
     
153.     If lvwData.ListItems.Count <= 0 Then Exit Sub
     
154.     MsgBox "Primary Key is : " & lvwData.SelectedItem.Text
     
155. End Sub
     
156. 
     
157. Private Sub Form_Unload(Cancel As Integer)
     
158.     Call CloseDataBase
     
159.     Set frmConnectMySQL = Nothing
     
160.     End
     
161. End Sub
     
162. 
     
163. Private Sub cmdExit_Click()
     
164.     Unload Me
     
165. End Sub

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

ดาวน์โหลดโค้ดต้นฉบับแบบเต็ม VB6 ได้ที่นี่ ...