使用前缀链接所有视图

时间:2016-12-19 17:50:20

标签: vba access-vba ms-access-2013 access

我已经使用此代码链接到表中,但我尝试将其更改为com.android.support:appcompat-v7:24.2.1 并且没有任何内容链接,即使符合条件。我应该在视图中更改链接?

View

1 个答案:

答案 0 :(得分:0)

当您致电.OpenSchema时,您在此处指定“TABLE”标准:

Set r = .OpenSchema(adSchemaTables, Array(Empty, Empty, Empty, "TABLE"))

这会筛选表的结果集,因此在循环中.Fields("TABLE_TYPE")将始终为“TABLE”(另请注意,它始终为大写)。将过滤器更改为“VIEW”...

Set r = .OpenSchema(adSchemaTables, Array(Empty, Empty, Empty, "VIEW"))

...然后删除循环中的冗余测试:

If .Fields("TABLE_NAME") Like "ZZ_*" Then
        'Do something
End If