将数据/时间从字符串 VBA 转换为 SQL Server 时转换失败

Question

我正在尝试将 Excel 文件上传到 SQL Server 表中，但出现此错误：

将字符串 VBA 中的数据/或时间转换为 SQL SERVER 时转换失败

我的源表有格式日期，我的目标表有格式日期。

我应该怎么做才能使这段代码工作

我正在尝试使用CDATE()，但它不起作用。

Private Sub EventData_Click()

Set conn = New ADODB.Connection
cs = "DRIVER=SQL SERVER;"
cs = cs & "DATABASE=MAGANG;"
cs = cs & "SERVER=FELIX"

conn.Open cs, "", ""

sqlcmd = "CREATE TABLE Event_Data(ID Varchar(255) PRIMARY KEY, EVENT Varchar(255),DATE DATE);"

On Error GoTo errormastertable
conn.Execute sqlcmd
conn.Close
Set conn = Nothing

errormastertable:

    Dim l_row As Long
   
    Dim s_ID As String
    Dim s_EVENT As String
    Dim s_DATE As Date
 
Set conn = New ADODB.Connection
cs = "DRIVER=SQL SERVER;"
cs = cs & "DATABASE=MAGANG;"
cs = cs & "SERVER=FELIX"

    With Workbooks("Event_Data").Sheets("4-Event_Data")

conn.Open cs, "", ""
        l_row = last_row_with_data(1, ActiveSheet)
   
    For i = 2 To l_row
   
        s_ID = .Cells(i, 1)
        s_EVENT = .Cells(i, 2)
        s_DATE = .Cells(i, 3)
                               
        sqlcmd = "insert into dbo.Event_Data (ID,EVENT,DATE) values ('" & s_ID & "', '" & s_EVENT & "', '" & s_DATE & "')"
        conn.Execute sqlcmd
         Next
          conn.Close
        Set conn = Nothing

    End With
   
    Workbooks("Event_Data").Close savechanges:=False
    End If

End Sub

Answer 1

1. 数字通常没有符号
2. 字符前后都有单引号
3. 日期时间格式在数据前后加#前缀。

---

sqlcmd = "insert into dbo.Event_Data (ID,EVENT,DATE) values ('" & s_ID & "', '" & s_EVENT & "', '" & s_DATE & "')"

到（访问文件的情况下）

sqlcmd = "insert into dbo.Event_Data (ID,EVENT,DATE) values ('" & s_ID & "', '" & s_EVENT & "', #" & s_DATE & "#)"

但是（在 MSSQL 的情况下）

  sqlcmd = "insert into dbo.Event_Data (ID,EVENT,DATE) values ('" & s_ID & "', '" & s_EVENT & "', cast('" & s_DATE & "' as datetime) )"