strSQL = "SELECT USy权限明细.人员ID, USy权限明细.功能ID, USy权限明细.打开窗体, USy人员明细.人员姓名," & _
             "USy功能明细.根节点ID, USy功能明细.功能名称, USy功能明细.对象名称, USy功能明细.位图ID" & _
             "FROM USy功能明细 INNER JOIN (USy人员明细 INNER JOIN USy权限明细 ON USy人员明细.人员ID = " & _
             "USy权限明细.人员ID) ON USy功能明细.功能ID = USy权限明细.功能ID" & _
             "WHERE USy人员明细.人员姓名='" & UserName & "'AND USy功能明细.根节点ID=0"以上语句在VB中报INNER JOIN 附近有错误,我将语句放在SQL查询分析器中测又没有问题(没要后面的WHERE语句),请大师们看下是哪错了,谢谢!!!

解决方案 »

  1.   

    "'加空格试试?AND USy功能明细.根节点ID=0"
    这看起来太乱了,受不了……
      

  2.   


    strSQL = "SELECT USy权限明细.人员ID, USy权限明细.功能ID, USy权限明细.打开窗体, USy人员明细.人员姓名," & _
      "USy功能明细.根节点ID, USy功能明细.功能名称, USy功能明细.对象名称, USy功能明细.位图ID" & _
      "FROM USy功能明细 INNER JOIN  USy人员明细 ON USy人员明细.人员ID = " & _
      "USy权限明细.人员ID and USy功能明细.功能ID = USy权限明细.功能ID" & _
      "WHERE USy人员明细.人员姓名='" & UserName & "'AND USy功能明细.根节点ID=0"
      

  3.   

    USy功能明细.位图ID" & _ID后面需要空格
      

  4.   

    USy权限明细.功能ID" & _ID后面也需要空格,语句打印出来放到查询分析器里看不到蓝色的关键字................
      

  5.   

      "FROM USy功能明细 INNER JOIN (USy人员明细 INNER JOIN USy权限明细 ON USy人员明细.人员ID = " & _
      "USy权限明细.人员ID) ON USy功能明细.功能ID = USy权限明细.功能ID像ACCESS和ORACLE的写法,又不是,不伦不类.
      

  6.   

    strSQL = ""
    strSQL = strSQL & " SELECT USy权限明细.人员ID " & vbCrLf
    strSQL = strSQL & "      , USy权限明细.功能ID " & vbCrLf
    strSQL = strSQL & "      , USy权限明细.打开窗体 " & vbCrLf
    strSQL = strSQL & "      , USy人员明细.人员姓名 " & vbCrLf
    strSQL = strSQL & "      , USy功能明细.根节点ID " & vbCrLf
    strSQL = strSQL & "      , USy功能明细.功能名称 " & vbCrLf
    strSQL = strSQL & "      , USy功能明细.对象名称 " & vbCrLf
    strSQL = strSQL & "      , USy功能明细.位图ID " & vbCrLf
    strSQL = strSQL & "   FROM (USy权限明细 INNER JOIN  " & vbCrLf
    strSQL = strSQL & "         USy功能明细   " & vbCrLf
    strSQL = strSQL & "         ON USy功能明细.功能ID = USy权限明细.功能ID " & vbCrLf
    strSQL = strSQL & "        ) INNER JOIN  " & vbCrLf
    strSQL = strSQL & "         USy人员明细 ON USy人员明细.人员ID = USy权限明细.人员ID " & vbCrLf
    strSQL = strSQL & "  WHERE USy人员明细.人员姓名='" & UserName & "' " & vbCrLf
    strSQL = strSQL & "    AND USy功能明细.根节点ID=0"
      

  7.   

    看看这个:
    http://download.csdn.net/source/1644211