Sql Access VBA中的字符串连接
我正在尝试编写一个宏,它将根据用户输入创建一个查询。用户需要在宏的开头输入一个日期,然后宏会将该日期合并到SQL查询中。问题是我不确定如何将日期合并到SQL SELECT语句中。我曾考虑过使用字符串连接,但我不确定如何在SQL语句中这样做Sql Access VBA中的字符串连接,sql,sql-server,ms-access,vba,Sql,Sql Server,Ms Access,Vba,我正在尝试编写一个宏,它将根据用户输入创建一个查询。用户需要在宏的开头输入一个日期,然后宏会将该日期合并到SQL查询中。问题是我不确定如何将日期合并到SQL SELECT语句中。我曾考虑过使用字符串连接,但我不确定如何在SQL语句中这样做 Sub RevH() Dim dte As String, clientQry As String, db As Database, clientQry1 As Variant Set db = CurrentDb dte = InputBox("Wh
Sub RevH()
Dim dte As String, clientQry As String, db As Database, clientQry1 As Variant
Set db = CurrentDb
dte = InputBox("What date was the Data Dump run?", "Please Input a date")
clientQry = "SELECT DISTINCT " & _
"FN_DataDump_ALL_11032014.[CLIENT ID], " & _
"FN_DataDump_ALL_11032014.[CLIENT NAME] " & _
"FROM " & _
"FN_DataDump_ALL_11032014 " & _
"WHERE (((FN_DataDump_ALL_11032014.[CLIENT NAME]) Not Like ""*Test*"" ));"
clientQry1 = db.CreateQueryDef("NewIDs", clientQry)
End Sub
如果使用表别名,将更容易:
dte = InputBox("What date was the Data Dump run?", "Please Input a date (MMDDYYYY)")
clientQry = "SELECT DISTINCT t.[CLIENT ID], t.[CLIENT NAME] " & _
"FROM FN_DataDump_ALL_" & dte & " as t WHERE " & _
" (((t.[CLIENT NAME]) Not Like ""*Test*"" ));"
对不起,我忘了在问题中提及。dte变量将替换表名中的11032014。有办法吗?