[VB6] แจกฟรีโค้ดโปรแกรมติดต่อฐานข้อมูล MSSQL เพื่อเก็บบันทึกข้อมูลลูกค้า และพิมพ์รายงาน

thongkorn

แอดมินได้เขียนบทความและแจกโค้ด การเชื่อมต่อระบบฐานข้อมูล MS SQL Server (ภาคปฏิบัติ) มาตั้งแต่ปี 2551 แล้ว ก็ไม่ขอบรรยายหลักการทางทฤษฎีอะไรให้มากมาย สำหรับการใช้ VB6 เชื่อมต่อกับฐานข้อมูล MS Access และ MSSQL Server จะแตกต่างไปจาก VB.NET เพราะ VB6 เราเปลี่ยนแค่ Connection String ซึ่งการติดต่อกับฐานข้อมูลก็ยังทำผ่านทาง ADO หรือที่เราเรียกว่า RecordSet ตามเดิม ส่วน VB.NET ต้องเปลี่ยน Namespace ให้ตรงกับฐานข้อมูลที่ใช้ สำหรับเรื่องของ SQL Statement หรือการทำ Query ทั้ง VB6 และ VB.NET เราก็ยังต้องทำการปรับแต่งแก้ไขระหว่างเจ้าฐานข้อมูลทั้ง 2 แบบอยู่ดี สมาชิกทุกท่านก็ลองทำการเปรียบเทียบกันดูครับ [VB6] แจกฟรีโค้ดโปรแกรมการเก็บบันทึกข้อมูลลูกค้าแบบ CRUD (One To One) และการพิมพ์รายงาน

การ Import Data จาก MS Access เข้าสู่ MSSQL Server ...












โค้ดการเชื่อมต่อ MSSQL Server ...

1. Option Explicit
   
2. 
   
3. Global ConnDB As New ADODB.Connection
   
4. Global RS As New ADODB.Recordset
   
5. Global DS As New ADODB.Recordset
   
6. Global Statement As String
   
7. Global SQLStmt As String
   
8. '
   
9. ' กำหนดว่าเป็นการเพิ่ม หรือ แก้ไขข้อมูล
   
10. Global blnNewData As Boolean
    
11. ' ให้เกิดการ Update ในฟอร์มที่มีการเปลี่ยนแปลง
    
12. Global FormUpdate As Boolean
    
13. '
    
14. ' สำหรับทำการค้นหา
    
15. Global gPK As Long
    
16. ' การส่งชื่อตารางข้อมูลไป
    
17. Global gTable As String
    
18. 
    
19. Public Sub ConnectMsSQL()
    
20.     On Error GoTo ErrorHandler
    
21.    
    
22.     ' Open a connection.
    
23.     Set ConnDB = New ADODB.Connection
    
24.     ConnDB.ConnectionString = _
    
25.                     " Provider=SQLOLEDB.1;" & _
    
26.                     " Data Source=Thongkorn-PC\G2GNET2017; " & _
    
27.                     " Initial Catalog=CustomerDB; " & _
    
28.                     " User ID=; " & _
    
29.                     " Password=; " & _
    
30.                     " Trusted_Connection=yes; "
    
31.     ConnDB.Properties("Prompt") = adPromptAlways
    
32.     ConnDB.Open
    
33.     MsgBox "คุณสามารถเชื่อมต่อฐานข้อมูล MSSQL Server.", vbOKOnly + vbInformation, "รายงานสถานะ"
    
34.         
    
35. ExitProc:
    
36.     Exit Sub
    
37. 
    
38. ErrorHandler:
    
39.     Select Case Err.Number
    
40.         ' ดัก Trap Error ของการกดปุ่ม Cancel
    
41.         Case -2147217842
    
42.             End
    
43.         
    
44.         Case Else
    
45.             MsgBox "Open Database Error : " & vbCrLf & Err.Number & " " & Err.Description
    
46.             End
    
47.     End Select
    
48. End Sub

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

ส่วนโค้ดทั้งหมดสามารถดาวน์โหลดได้จากที่นี่ ...