[求助]ADO视图（VIEWS）如何删除

阿丰

有以下代码：

Public Sub 删除查询()

On Error GoTo Err_错误_Click

Dim cat  As New ADOX.Catalog, v As ADOX.View

Set cat.ActiveConnection = CurrentProject.Connection

cat.Views.Refresh

For Each v In cat.Views

     If v.Name = "_table" Then cat.Views.Delete "_table"

Next

Set cat.ActiveConnection = Nothing

Set cat = Nothing

Exit_错误_Click:

  Exit Sub

Err_错误_Click:

  MsgBox Err.Description

  Resume Exit_错误_Click

End Sub

运行时出错，提示找不到项目名。应如何改正？

cg1

关于此主题请参考：

    只用ado列出所有的表《ADO/DAO》

    http://access911.net/index.asp?u1=a&u2=72FAB71E14DC

删除视图用 currentproject.connection.execute "DROP VIEW .... "