Question

vb6.0运行时出错：FROM子句语法错误，请问该怎么解决

Private Sub Command1_Click()
'>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
Set dbs = OpenDatabase(App.Path + "/Industry.mdb")
strSQL = "PARAMETERS [DateFrom] DateTime, " & "[DateTo] DateTime; "
strSQL = strSQL & "SELECT*FROM 工厂监控参数 WHERE" _
& "日期 BETWEEN "
strSQL = strSQL & "[DateFrom] AND [DateTo];"
' 创建一个非存储的参数查询。
Set qdf = dbs.CreateQueryDef("", strSQL)
' 提示输入起始日期。
strDateFrom = InputBox("输入查询起始日期")
' 提示输入终止日期。
strDateTo = InputBox("输入查询终止日期")
' 设置查询的参数。
qdf.Parameters("DateFrom") = strDateFrom
qdf.Parameters("DateTo") = strDateTo
'起始日期显示。
Text1.Text = strDateFrom
'终止日期显示。
Text2.Text = strDateTo
' 对查询打开动态集记录。
Set rst = qdf.OpenRecordset(dbOpenDynaset)
Set Adodc1.Recordset = rst
'>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
End Sub

这是我查询数据库的一段代码，运行时在 Set qdf = dbs.CreateQueryDef("", strSQL)
这一句出错，错误提示是：FROM子句语法错误，请问该怎么解决

Answer 1

strSQL = strSQL & "SELECT*FROM 工厂监控参数 WHERE" _
& "日期 BETWEEN "
注意空格！改成：
strSQL = strSQL & "SELECT * FROM 工厂监控参数 WHERE" _
& " 日期 BETWEEN "

Answer 2

是不是空格的问题？

从上面的代码看不清你的SQL语句之间的空格，建议你把strSQL用debug.print输出来检查一下是不是有问题。