访问存储过程不起作用

Question

以下存储过程不起作用,我已经尝试了一切没有成功.请帮忙.

Sub Create_View()

    Dim conn As ADODB.Connection

    Set conn = Application.CurrentProject.Connection

    conn.Execute "CREATE VIEW vw_RobPS AS " & _
    "SELECT sid, " & _
    "Lname, " & _
    "Fname, " & _
    "EmpStatus, " & _
    "[Peax Update as of 6-18-15], " & _
    "[Peax Update Date] " & _
    "FROM Master_06-18-2015" & _
    "WHERE [Peax Update Date] as PeaxUdDt is not null; "

    Application.RefreshDatabaseWindow

ExitHere:
  If Not conn Is Nothing Then
    If conn.State = adStateOpen Then conn.Close
  End If

    Set conn = Nothing
End Sub

什么时候,我运行它,我收到此错误消息:

运行时错误'-2147217900(80040e14)':FROM子句中的语法错误.

我找不到问题.

Answer 1

1. 你的表名包括破折号; 将该名称括在方括号中
2. 在表名和之间加一个空格 WHERE
3. 不要尝试在WHERE子句中为别字段设置别名

"FROM [Master_06-18-2015] " & _
"WHERE [Peax Update Date] is not null; "