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

netguestcn

Public Function XianShiChaXun()
    On Error GoTo Err_XianShiChaXun
    '======================================================================================
    '显示系统中所有的查询
    'DoCmd.SetWarnings 0     '关闭系统提示

    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 "当前数据库中的所有查询都已显示！", vbInformation, "系统提示"

Exit_XianShiChaXun:
    Exit Function

Err_XianShiChaXun:
    'MsgBox Err.Description
    Resume Exit_XianShiChaXun

End Function


Public Function YinCangChaXun()
    On Error GoTo Err_YinCangChaXun
    '======================================================================================
    '隐藏系统中所有的查询,以确保不会被非法链接,
    'DoCmd.SetWarnings 0     '关闭系统提示

    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