Warning: file_get_contents(/data/phpspider/zhask/data//catemap/5/sql/86.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Sql Access VBA中的字符串连接_Sql_Sql Server_Ms Access_Vba - Fatal编程技术网

Sql Access VBA中的字符串连接

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

我正在尝试编写一个宏,它将根据用户输入创建一个查询。用户需要在宏的开头输入一个日期,然后宏会将该日期合并到SQL查询中。问题是我不确定如何将日期合并到SQL SELECT语句中。我曾考虑过使用字符串连接,但我不确定如何在SQL语句中这样做

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。有办法吗?