求救！！到底哪里错~~~

chan0755

大大们，

本人是SQL菜鸟，，
在论坛看了很多 INSERT INTO 用法，但是还是不能在EXCEL 内 透过 VBA 把工作表内的数据导（添加）入 ACCESS 表中，老弹出 “INSERT INTO 语句的语法错误”，我都郁闷死了，求大大们帮助。本人先谢过了。

Stpath = ThisWorkbook.Path & Application.PathSeparator & "Futures database.accdb"
     cnn.Open "provider=Microsoft.ACE.OLEDB.12.0;data source=" & Stpath
           
     strSQL = "Insert INTO database(Date,Time,Open,High,Low,Last,Vol) Values('2222-2-22','22:22:22','222','333','444','555','666')"     
RST.Open strSQL, cnn
          RST.Close
    Set RST = Nothing
    Set cnn = Nothing

zez

建议上传附件

roych

应该改为：strSQL = "Insert INTO database(Date,Time,Open,High,Low,Last,Vol) Values(#2222-2-22#,#22:22:22#,'222','333','444','555','666')"
此外，建议不要用乱七八糟的数据来测试。例如日期数据，到底能不能处理到2222年，我没试过。
日期或者时间类型并非文本，因此，应该改为#

chan0755

谢谢大大们的帮助，本人刚刚接触SQL，在网上找了好多资料，有些事#，有些事"'，有些却是#"'....我都头晕了
其实我就是要把资料导入ACCESS 数据库内，昨天在网上借用了某大大的编程，修改了一下，现在可以用了。

Public Sub 导入数据到ACCESS()
    'Dim mydata As String, mytable As String, SQL As String
    Worksheets("Input data convert").Activate
    Dim cnn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim rsx As ADODB.Recordset
    flag = 0
    'Dim i As Long, n As Long
    mydata = ThisWorkbook.Path & "\Futures database.accdb"    '指定数据库
    mytable = "HSIfuturesdatabase"      '指定数据表
    n = Worksheets("Input data convert").Range("a1").End(xlDown).Row   '指定要保存数据的记录数（行数）
    '建立与数据库的连接
    Set cnn = New ADODB.Connection
    With cnn
        .Provider = "Microsoft.ACE.OLEDB.12.0"
        .Open mydata
    End With
    '建立查询
    mysql = "select* from " & mytable
    Set rs = New ADODB.Recordset
    rs.Open mysql, cnn, adOpenKeyset, adLockOptimistic
    For i = 2 To n
        '查询是否已经存在了某条记录
        'SQL = "select * from " & mytable & " where Date='" & CDate(Cells(i, 1).Value) & "'"
      
               If flag = 0 Then
        SQL = "Select * from HSIfuturesdatabase WHERE Date LIKE '" & CDate(Cells(i, 1).Value) & "'"
        Set rsx = New ADODB.Recordset
        rsx.Open SQL, cnn, adOpenKeyset, adLockOptimistic
        End If
        If rsx.RecordCount > 0 And flag = 0 Then
     MsgBox ("数据已经存在")
     Exit Sub
        Else
           flag = 1
            rsx.AddNew
            For j = 1 To rsx.Fields.Count - 1
            'eee = Cells(i, j).Value
            
                rsx.Fields(Cells(1, j).Value) = Cells(i, j).Value
            Next j
            rsx.Update

        End If
    Next i
    MsgBox "数据保存完毕！", vbInformation + vbOKOnly
    rs.Close
    cnn.Close
    Set rs = Nothing
    Set rsx = Nothing
    Set cnn = Nothing
    End Sub