การ Connect database SQL Server 2 Server แบบเขียนโค้ด ใน MS Access

[mtaccess]

ขอความช่วยเหลือการ Connect database SQL Server 2 Server แบบเขียนโค้ด ใน MS Access ด้วยค่ะ ปัจจุบัน Connect โดยการ set odbc แต่เหมือนจะมีปัญหาเวลา Server ลบ profile แล้ว ODBC ที่ Set ไว้หาย ต้องได้ Set ใหม่ตลอด รบกวนแนะนำด้วยค่ะ ขอบคุณค่ะ

[OddyWriter]

ใช้ ODBC ดีอยู่แล้วครับ สำหรับการใช้ 2 Server
แนะนำว่าครั้งต่อไปให้นำ ODBC มาวางไว้ที่เดียวกับไฟล์ครับ จะได้ไม่หายอีก

[mtaccess]

ใช้ ODBC ดีอยู่แล้วครับ สำหรับการใช้ 2 Server
แนะนำว่าครั้งต่อไปให้นำ ODBC มาวางไว้ที่เดียวกับไฟล์ครับ จะได้ไม่หายอีก

ระบบเป็นคลาวค่ะ เมื่อก่อนจะ Set ด้วยล็อกอิน user  แต่ตอนนี้เหมือนผู้ดูแลระบบลบ Profile บน server คือเหมือนไม่ให้ user แก้ไขหรือตั้งค่าอะไรข้างบนเลย

[พีระณัฐ สุขกำเนิด]

ลองดูครับ อย่าลืมติดตั้ง ODBC Driver ที่เหมาะสมในเครื่อง ให้ถูกต้องทั้ง version และระบบปฏิบัติการ 32&64 บิต
Sub ConnectToMySQL()
    Dim conn As Object
    Dim rs As Object
    Dim sConn As String
    Dim sSQL As String

    ' สร้าง Connection Object
    Set conn = CreateObject("ADODB.Connection")
    Set rs = CreateObject("ADODB.Recordset")

    ' สร้าง Connection String แบบ DSN-less
    sConn = "Driver={MySQL ODBC 8.0 ANSI Driver};" & _
            "Server=localhost;" & _
            "Database=your_database_name;" & _
            "User=your_username;" & _
            "Password=your_password;" & _
            "Option=3;"

    ' เปิดการเชื่อมต่อ
    conn.Open sConn

    ' ตัวอย่าง SQL
    sSQL = "SELECT * FROM your_table_name"

    ' ดึงข้อมูล
    rs.Open sSQL, conn

    ' แสดงข้อมูลตัวอย่างใน Immediate Window
    Do Until rs.EOF
        Debug.Print rs.Fields(0).Value
        rs.MoveNext
    Loop

    ' ปิดการเชื่อมต่อ
    rs.Close
    conn.Close
    Set rs = Nothing
    Set conn = Nothing
End Sub