การเชื่อมต่อระบบฐานข้อมูล MS SQL Server (ภาคปฏิบัติ)

' การออกแบบโปรแกรมให้มีโครงสร้าง จะช่วยลดปัญหาลงไปได้เยอะ 
' พร้อมๆกับทำให้โปรแกรมเมอร์อย่างผมมีเวลาไปเล่นเกมส์ได้อีก เหอๆๆๆๆ ...

' การทดสอบกับเครื่อง Local Machine
' โค้ดเหล่านี้ถูกจัดเก็บใน Module ด้วยน่ะครับ ... พี่น้อง
Option Explicit

Global ConnDB As New ADODB.Connection
' พยายามลดการใช้งานตัวแปรซ้ำซ้อนครับ ... เพื่อแก้ปัญหาภาวะเครื่องร้อน ... เอิ๊กๆๆๆๆๆ
'Global RS As New ADODB.Recordset
'Global DS As New ADODB.Recordset
'Global RstData As New ADODB.Recordset   ' ใช้ในรายงาน
'Global Statement As String
'Global SQLStmt As String
'
Sub Main()
    ' ทดสอบการเชื่อมต่อฐานข้อมูล
    Call OpenDataBase
    
    ' เปิดแล้วก็ปิด ... เพราะต้องการแค่ทดสอบ
    Call CloseDataBase
End Sub

Public Sub OpenDataBase()
On Error GoTo Err_Handler
    ' Open a connection.
    Set ConnDB = New ADODB.Connection
    ' จัดรูปแบบให้สวยงาม อ่านง่ายๆ
    ' ใช้ฐานข้อมูลตัวอย่าง NorthWind เป็นตัวทดสอบ
    ConnDB.ConnectionString = _
        " Provider=SQLOLEDB.1;" & _
        " Integrated Security=SSPI;" & _
        " Server=(local);" & _
        " Initial Catalog=NorthWind;" & _
        " User ID=;" & _
        " Password=;"
    ConnDB.Open
    MsgBox "การเชื่อมต่อกับฐานข้อมูลเรียบร้อย.", vbOKOnly + vbInformation, "รายงานสถานะ"

ExitProc:
    Exit Sub

Err_Handler:
       MsgBox "Open Database Error : " & vbCrLf & Err.Number & " " & Err.Description
       Resume
End Sub

Public Sub CloseDataBase()
    ' ตรวจสอบว่ามีการเชื่อมโยง - Connect ข้อมูลหรือไม่
    If ConnDB.State = adStateOpen Then
        ConnDB.Close
        Set ConnDB = Nothing
    End If
End Sub

สามารถเชื่อมต่อได้เรียบร้อย ... ตราเด็กสมบูรณ์

' การทดสอบกับระบบเครือข่ายโดยใช้ MS Windows XP เป็น Server
' ก็แค่เปลี่ยนชื่อ Server ที่เราต้องการจะติดต่อกับมัน ... เท่านั้นเอง
Public Sub OpenDataBase()
On Error GoTo Err_Handler
    Set ConnDB = New ADODB.Connection
    ConnDB.ConnectionString = _
        " Provider=SQLOLEDB.1;" & _
        " Integrated Security=SSPI;" & _
        " Server=Server-XP;" & _
        " Initial Catalog=NorthWind;" & _
        " User ID=;" & _
        " Password=;"
    ConnDB.Open
    MsgBox "การเชื่อมต่อกับฐานข้อมูลเรียบร้อย.", vbOKOnly + vbInformation, "รายงานสถานะ"

ExitProc:
    Exit Sub

Err_Handler:
       MsgBox "Open Database Error : " & vbCrLf & Err.Number & " " & Err.Description
       Resume
End Sub

เกิด Error ว่า Login failed for user SERVER\Guest
Server คือ ชื่อ Server ที่คุณทำการติดต่อกับมันน่ะครับ

' การใช้คุณสมบัติ adPromptAlways เพื่อสร้างทางเลือกของการเชื่อมต่อฐานข้อมูล
Public Sub OpenDataBase()
On Error GoTo Err_Handler
    Set ConnDB = New ADODB.Connection
    ConnDB.ConnectionString = _
        " Provider=SQLOLEDB.1;" & _
        " Integrated Security=SSPI;" & _
        " Server=Server-XP;" & _
        " Initial Catalog=NorthWind;" & _
        " User ID=;" & _
        " Password=;"

    ConnDB.Properties("Prompt") = adPromptAlways
    ConnDB.Open
    ' MsgBox "การเชื่อมต่อกับฐานข้อมูลเรียบร้อย.", vbOKOnly + vbInformation, "รายงานสถานะ"

ExitProc:
    Exit Sub

Err_Handler:
    Select Case Err.Number
        ' ดัก Trap Error ของการกดปุ่ม Cancel
        Case -2147217842
            ' จากนั้นสั่งให้ Resume หรือ ทำงานต่อไปได้เลย
            Resume
        
        Case Else
            MsgBox "Open Database Error : " & vbCrLf & Err.Number & " " & Err.Description
            Resume
    End Select
End Sub

การใช้คุณสมบัติ adPromptAlways เพื่อเลือกการเชื่อมต่อ