Excel从语法错误

我在from子句中有一个语法错误，找不到它。 任何帮助表示赞赏。

Option Explicit Public Sub Connect(strVar As String) Dim strEmps As String, strPath As String strEmps = "SELECT tblStudents.fldStudentNo, tblStudents.fldFirstName, tblStudents.fldLastName, tblStudents.fldTelephone, tblDepartments.fldDepartmentName, tblClasses.fldClassDate, tblClasses.fldClassName " strEmps = strEmps & "FROM (tblDepartments INNER JOIN ON tblDepartments.[fldDepartmentNo] = tblStudents.[fldDeptNo]) INNER JOIN (tblClasses INNER JOIN tblStudentsAndClasses ON tblClasses.[fldClassNo] = tblStudentsAndClasses.[fldClassNo]) ON tblStudents.[fldStudentNo] = tblStudentsAndClasses.[fldStudentNo] " strEmps = strEmps & "WHERE fldClassName = '" & strVar & "' ORDER BY fldLastName " strPath = ThisWorkbook.Path & cstrPath Set connEmp = New ADODB.Connection Set rstEmps = New ADODB.Recordset connEmp.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & strPath & "'" rstEmps.Open strEmps, connEmp, adOpenKeyset, adLockOptimistic Call DisplayData End Sub 

Answer 1

塔拉，你在INNER JOIN中缺less表格：

检查这行代码，其中tblStudents在INNER JOIN中缺less

你的代码：

 strEmps = strEmps & "FROM (tblDepartments INNER JOIN ON tblDepartments.[fldDepartmentNo] = tblStudents.[fldDeptNo]) INNER JOIN (tblClasses INNER JOIN tblStudentsAndClasses ON tblClasses.[fldClassNo] = tblStudentsAndClasses.[fldClassNo]) ON tblStudents.[fldStudentNo] = tblStudentsAndClasses.[fldStudentNo] " 

而是使用这个：

 strEmps = strEmps & "FROM (tblDepartments INNER JOIN tblStudents ON tblDepartments.[fldDepartmentNo] = tblStudents.[fldDeptNo]) INNER JOIN (tblClasses INNER JOIN tblStudentsAndClasses ON tblClasses.[fldClassNo] = tblStudentsAndClasses.[fldClassNo]) ON tblStudents.[fldStudentNo] = tblStudentsAndClasses.[fldStudentNo] "