มีวิธี การเพิ่มฟิวส์ ฐาน sql ผ่าน odbc จาก access ไหมครับ

[para2496]

มีวิธี การเพิ่มฟิวส์ ฐาน sql ผ่าน odbc จาก access ไหมครับ

[OddyWriter]

ลองทำผ่าน Query ดูครับ

ALTER TABLE ชื่อตาราง ADD ชื่อฟิลด์ VARCHAR(50);

ตรง VARCHAR(50) ให้เปลี่ยน Data Type เป็นแบบอื่นดูครับ

ไม่เคยลองวิธีนี้นะครับ ได้ผลอย่างไรแจ้งด้วย

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

Sub AddFieldToAccessTable()
    Dim conn As Object
    Dim connStr As String
    Dim sql As String

    ' สร้าง connection string สำหรับ ODBC ไปยัง Access
    connStr = "Driver={Microsoft Access Driver (*.mdb, *.accdb)};" & _
              "DBQ=C:\Path\To\Your\Database.accdb;"

    ' สร้าง SQL สำหรับเพิ่มฟิลด์
    sql = "ALTER TABLE TableName ADD COLUMN NewFieldName TEXT(50);"

    ' สร้าง connection object
    Set conn = CreateObject("ADODB.Connection")

    On Error GoTo ErrHandler
    conn.Open connStr
    conn.Execute sql
    MsgBox "Field added successfully."

ExitSub:
    If Not conn Is Nothing Then
        If conn.State = 1 Then conn.Close
        Set conn = Nothing
    End If
    Exit Sub

ErrHandler:
    MsgBox "Error: " & Err.Description
    Resume ExitSub
End Sub