VBA VBA麻烦

Question

我正在使用此代码用于Access 2010数据库，而且我似乎对我的SQL语句的语法有问题，但我无法为我的生活弄清楚如何正确地格式化该声明。预先感谢您的任何帮助！

qdf = db.CreateQueryDef("Company_State_Q") 

Dim strSQLSearch As String 


strSQLSearch = "SELECT [Company Information].Company_Name, " & _ 
"[Company Information].Industry" & _ 
"FROM Company Information" & _ 
"WHERE [Company Information].State ='" & stateV & "'" & _ 
"ORDER BY [Company Information].Company_Name;" 



qdf.SQL = strSQLSearch 

Answer 1

你应该使用...

Debug.Print strSQLSearch 

...在你的代码后，你建立strSQLSearch字符串。然后，您可以在立即窗口中查看字符串（与一起使用Ctrl + g）。

从即时窗口我设置的stateV为“CA”值并测试你的字符串是这样的：

stateV = "CA" : ? "SELECT [Company Information].Company_Name, " & _ 
"[Company Information].Industry" & _ 
"FROM Company Information" & _ 
"WHERE [Company Information].State ='" & stateV & "'" & _ 
"ORDER BY [Company Information].Company_Name;" 
SELECT [Company Information].Company_Name, [Company Information].IndustryFROM Company InformationWHERE [Company Information].State ='CA'ORDER BY [Company Information].Company_Name; 

一旦你真正看到完成strSQLSearch字符串，它很容易被发现存在多个问题：

1. IndustryFROM应该Industry FROM
2. FROM Company Information应该FROM [Company Information]
3. InformationWHERE应该Information WHERE
4. 'CA'ORDER应该'CA' ORDER

考虑使用你的SELECT语句的不同部分之间的换行符。数据库引擎完全满意换行而不是空格。你可能会发现阅读陈述更简单，而不是一条长线。

Dim strSQLSearch As String 
strSQLSearch = "SELECT ci.Company_Name, ci.Industry" & vbCrLf & _ 
    "FROM [Company Information] AS ci" & vbCrLf & _ 
    "WHERE ci.State ='" & stateV & "'" & vbCrLf & _ 
    "ORDER BY ci.Company_Name;" 
Debug.Print strSQLSearch 

在你的代码中有年初

也...

qdf = db.CreateQueryDef("Company_State_Q") 

看来qdf必须是DAO.QueryDef对象，所以我觉得你应该使用Set关键字分配给它。

Set qdf = db.CreateQueryDef("Company_State_Q")