สอบถามครับผมต้องการส่งข้อมูลในตางราง Excel ที่มีการแก้ไขลงใน Table ของ Access แล้วขึ้น Error

[S0mpong99]

สอบถามครับผมต้องการส่งข้อมูลในตางราง Excel ที่มีการแก้ไขลงใน Table ของ Access ทีมีการสร้างฐานข้อมูลใว้แล้ว แต่ขึ้น Error "Syntax error in INSERT INSERT INTO Statment" รบกวนช่วยตรวจสอบ Code ให้หน่่อยครับว่าเขียนถูกต้องหรือไม่ครับ ผมแนบ File ให้ด้วยครับ ขอบคุณล่วงหน้าครับ

Code: Select all

Sub Button3_Click()

    Dim dbPath As String
    Dim dbConn As String
    Dim Conn As ADODB.Connection
    Dim RsInsert As Recordset
    Dim wbBook As Workbook
    Dim wsSheet As Worksheet
    Dim strNewProduct As String
    Dim curNewPrice As Currency

    Set wbBook = ThisWorkbook
    Set wsSheet = wbBook.Sheets(1)

    dbPath = "D:\All_Store\Test01\productDB.accdb"
    stConn = "Provider=Microsoft.ACE.OLEDB.12.0;" _
                        & "Data Source=" & dbPath & ";"
    
    strSQLInsert = "INSERT INTO tblProduct " _
                        & "(NAME, LAST_NAME, MON, TUE, WED, THU, THU, SAT, SUN)"
                        
    Set Conn = New ADODB.Connection
    With Conn
            .Open (stConn)
            .CursorLocation = adUseClient
    End With

    Set RsInsert = Conn.Execute(strSQLInsert)
    
    Conn.Close
    Set Conn = Nothing
End Sub

[logic]

ขาดส่วนของค่าที่จะ insert อยู่นะครับ

เทียบจากตัวอย่าง

Code: Select all

INSERT INTO Customers (CustomerName, ContactName, Address, City, PostalCode, Country)
VALUES ('Cardinal','Tom B. Erichsen','Skagen 21','Stavanger','4006','Norway');

จาก: http://www.w3schools.com/sql/sql_insert.asp