如何使用VBA将Excel单元格中的datetime值添加到SQL表中

Question

Can anyone help?

strSql = "INSERT INTO EmailRT (rs.Fields(0).Value, rs.Fields(1).Value) " & _
        " VALUES (" & _
        "'" & shtSheetToWork.Cells(2, 1).Value & "', " & _
        "'" & shtSheetToWork.Cells(2, 2).Value & "')"

In cell (2,2), the value is 21/10/2014 22:32 how do i add this to Sql table into column rs.Fields(1).Value whose data type is datetime

Answer 1

1) You can format the cell as you need (in Ctrl+1 ). And then use shtSheetToWork.Cells(2, 1).Text

2) You can use VBA Format. Format(shtSheetToWork.Cells(2, 1).Text, "yyyyMMdd")