Excel FROM语法错误

Question

我在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中缺少表格：

检查以下代码行，INNER JOIN中缺少tblStudents

您的代码：

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] "