问题一:时间加单引号: "Insert Into ABC(myDateTime) Values('" & Now() & "')"
问题一:其实就是转化一下,Format一下!! 测试: Private Sub Form_Load() Dim strSelect As String strSelect = "Insert Into ABC(myDateTime) Values(" & ConvertTimeToSQLServerSQL(Now) & ")" Debug.Print strSelect End Sub '将时间转化成SQLServer认可的形式 Public Function ConvertTimeToSQLServerSQL(ByVal OriginalTime As Date) As String
ConvertTimeToSQLServerSQL = "'" & Format(OriginalTime, "yyyy-mm-dd hh:nn:ss") & "'"End Function
问题二:select Distinct(id),Min(Msg) from table Order By id
"Insert Into ABC(myDateTime) Values(" & CDate(Date & " " & Time) & ")"
"Insert Into ABC(myDateTime) Values('" & Now() & "')"
测试:
Private Sub Form_Load()
Dim strSelect As String
strSelect = "Insert Into ABC(myDateTime) Values(" & ConvertTimeToSQLServerSQL(Now) & ")"
Debug.Print strSelect
End Sub
'将时间转化成SQLServer认可的形式
Public Function ConvertTimeToSQLServerSQL(ByVal OriginalTime As Date) As String
ConvertTimeToSQLServerSQL = "'" & Format(OriginalTime, "yyyy-mm-dd hh:nn:ss") & "'"End Function