ADO隱藏表的代碼能否改成隱藏查詢？

ycxchen

下面的代碼是網(wǎng)上下載的，能否改成徹底隱藏查詢的？請(qǐng)高手指教。

用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



同理，你還可以隱藏其他的數(shù)據(jù)庫(kù)對(duì)象，一樣使用 ADO

盜夢(mèng)

ADOX.Table 改成 ADOX.QueryDef

ycxchen

按2樓的辦法改動(dòng)不行的，提示cat As New ADOX.Catalog未定義。請(qǐng)問(wèn)，如何辦？

ycxchen

看過(guò)幫助，不明。

好運(yùn)牛

查詢隱藏不了

leonshi

查詢可以用代碼隱藏，但是不能達(dá)到隱藏表那樣的效果。如果你想達(dá)到你預(yù)期的效果查詢盡量使用代碼來(lái)實(shí)現(xiàn)查詢

netguestcn

Public Function XianShiChaXun()
    On Error GoTo Err_XianShiChaXun
    '======================================================================================
    '顯示系統(tǒng)中所有的查詢
    'DoCmd.SetWarnings 0     '關(guān)閉系統(tǒng)提示

    Dim db As Database
    Dim i As Integer
    Set db = DBEngine.Workspaces(0).Databases(0)

    db.QueryDefs.Refresh
    For i = db.QueryDefs.Count - 1 To 0 Step -1
        ' MsgBox db.QueryDefs(i).Name

        Application.SetHiddenAttribute acQuery, db.QueryDefs(i).Name, False
        'MsgBox db.QueryDefs(i).Name
    Next i
    Set db = Nothing
    'MsgBox "當(dāng)前數(shù)據(jù)庫(kù)中的所有查詢都已顯示！", vbInformation, "系統(tǒng)提示"

Exit_XianShiChaXun:
    Exit Function

Err_XianShiChaXun:
    'MsgBox Err.Description
    Resume Exit_XianShiChaXun

End Function


Public Function YinCangChaXun()
    On Error GoTo Err_YinCangChaXun
    '======================================================================================
    '隱藏系統(tǒng)中所有的查詢,以確保不會(huì)被非法鏈接,
    'DoCmd.SetWarnings 0     '關(guān)閉系統(tǒng)提示

    Dim db As Database
    Dim i As Integer
    Set db = DBEngine.Workspaces(0).Databases(0)

    db.QueryDefs.Refresh
    For i = db.QueryDefs.Count - 1 To 0 Step -1
        ' MsgBox db.QueryDefs(i).Name
        Application.SetHiddenAttribute acQuery, db.QueryDefs(i).Name, True
        'MsgBox db.QueryDefs(i).Name
    Next i
    Set db = Nothing

Exit_YinCangChaXun:
    Exit Function

Err_YinCangChaXun:
    'MsgBox Err.Description
    Resume Exit_YinCangChaXun

End Function

leonshi

版主說(shuō)的徹底隱藏，你這個(gè)好像不是啊

ycxchen

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

謝謝！這個(gè)不能徹底隱藏查詢的。

roych

一般不是用Attribute屬性嗎？詳見(jiàn)http://ctxi.cn/portal.php?mod=view&aid=233&page=1&記得之前跟一個(gè)老前輩的論戰(zhàn)中就提出過(guò)這個(gè)問(wèn)題，沒(méi)法徹底隱藏的，設(shè)置Attribute屬性為T(mén)rue就可以找到了。