【发布时间】:2023-04-08 09:42:01
【问题描述】:
以下存储过程不起作用,我尝试了一切都没有成功。请帮忙。
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 子句中的语法错误。
我找不到问题。
【问题讨论】:
-
既然
conn指的是CurrentProject.Connection,我不明白你为什么要做conn.Close。这真的有效吗?