ADO隐藏表的代码能否改成隐藏查询？

ycxchen

下面的代码是网上下载的，能否改成彻底隐藏查询的？请高手指教。

用ADO编程隐藏表

sub hide_table()
Dim cnn As New ADODB.Connection
Dim cat As New ADOX.Catalog

Set cat.ActiveConnection = CurrentProject.Connection
Dim tbl As ADOX.Table
Dim pro As Property
For Each tbl In cat.Tables
Debug.Print tbl.name
For Each pro In tbl.Properties
Debug.Print pro.name & "=" & pro.Value
Next
If tbl.name = "需要隐藏的表名" Then tbl.Properties.Item("JetOLEDB:Table Hidden In Access") = True
Next
End Sub



同理，你还可以隐藏其他的数据库对象，一样使用 ADO

ycxchen

按2楼的办法改动不行的，提示cat As New ADOX.Catalog未定义。请问，如何办？

ycxchen

看过帮助，不明。

ycxchen

netguestcn 发表于 2013-12-7 21:05
Public Function XianShiChaXun()
    On Error GoTo Err_XianShiChaXun
    '========================= ...

谢谢！这个不能彻底隐藏查询的。

ycxchen

roych 发表于 2013-12-8 15:24
一般不是用Attribute属性吗？详见http://www.office-cn.net/portal.php?mod=view&aid=233&page=1&记得之前 ...

谢版主，目前，确无必要讨论此问题了。

ycxchen

aslxt 发表于 2013-12-10 23:00
查询不是很复杂的情况，就用代码处理，然后编译。

哦，我说的是能不能彻底隐藏查询。

ycxchen

aslxt 发表于 2013-12-12 22:24
就是把查询的语法存放在代码中，数据库对象中就看不到该查询对象

谢谢！生成SQL语句，明白。