oracle - Microsoft Access (mdb):列出连接的 Oracle 表
问题描述
我们正在Oracle ERP环境中开发。有相当多的视图遗留 MDB 数据库(数十个)与 Oracle 视图(数百个依赖项)相连。在 Oracle 中有一个自定义的 800 多个视图,这些视图可能会被重新设计,设置为不推荐使用,并且将来可能会被删除。
我可以在 MDB-Design 视图中看到连接的 Oracle DB,但我需要将这些依赖项写入列表。有了这样的清单,我就可以完成上面概述的软件维护工作。
我有一个基于 ADOX 的元数据阅读器,但这没有列出 oracle 表:
Public Sub ADOX_Oracle_Metadata()
'To reference ADO from Microsoft Access
'In Microsoft Access, select or create a module from the Modules tab in the Database window.
'On the Tools menu, select References....
'Verify that at least the following libraries are selected:
'
'Microsoft ActiveX Data Objects x.x Library
'ADO Ext. 2.7 for DDL and Security (ADOX)
'
Dim cn As ADODB.Connection
Dim ct As ADOX.Catalog
Dim tb As ADOX.Table
Dim strDB As String
Dim ws As Worksheet
Set cn = New ADODB.Connection
Set ct = New ADOX.Catalog
strDB = "L:\Applikationen\Access\DepreciationOutputMail.mdb"
cn.ConnectionString = _
"Provider=Microsoft.ACE.OLEDB.12.0;" & _
"Data Source=" & strDB & ";"
cn.Open
Set ct.ActiveConnection = cn
For Each tb In ct.Tables
' Tables can be of type TABLE, ACCESS TABLE, SYSTEM TABLE or VIEW
Debug.Print tb.Type & " " & tb.Name
Next tb
cn.Close
Set ct = Nothing
Set cn = Nothing
End Sub
无论如何,这并没有列出连接的 oracle 表。也许我只需要更改连接字符串?我怎么知道正确的连接字符串?我可以在运行 MDB 的计算机的某处读取它吗?你能提供一个解决方案吗?
这是示例情况的屏幕截图:
我需要列出的表格用绿色标记。
问候, LPNO
应 Erik 请求的附加信息,这里是 MSYSOBJECTS 表的相关列的摘录,创建于
SELECT MSysObjects.Connect, MSysObjects.ForeignName, MSysObjects.Name, MSysObjects.Type INTO Extract_MSYSOBJECTS
FROM MSysObjects
WHERE (((MSysObjects.Connect) Is Not Null));
实际上 NAME 列已经列出了我寻找的信息。无论如何,仍然会赞赏 VBA 编码方法,因为有许多 mdb 数据库需要检查。
解决方案
不要为此使用 ADOX,而是使用 DAO。
DAO 更原生于 Access,并且可以更轻松地处理链接表。
Dim db As DAO.Database
Dim td As DAO.TableDef
Set db = DBEngine.OpenDatabase("L:\Applikationen\Access\DepreciationOutputMail.mdb")
For Each td In db.TableDefs
Debug.Print td.Name; td.SourceTableName, td.Connect
Next
请注意,Access 还可以通过查询或直接从代码连接到表/视图,这些不会列出。您可以迭代 querydefs 来查找查询,但对于代码,它会更加复杂。
使用 MSysObjects 表的替代方法:
Dim db As DAO.Database
Set db = DBEngine.OpenDatabase("L:\Applikationen\Access\DepreciationOutputMail.mdb")
Dim rs As DAO.Recordset
Set rs = db.OpenRecordset("SELECT * FROM MSysObjects WHERE Type = 4")
Do While Not rs.EOF
Debug.Print rs!Name; rs!ForeignName
rs.MoveNext
Loop
推荐阅读
- excel - 如何从不同工作表中的匹配列中获取值
- azure-logic-apps - 从 Logic App 中的给定 URL(不是调用)获取参数
- html - How can I, in Sass, target a specific child based on which parent it has, then use it inside media queries?
- javascript - 将带有节点的文本文件读入 HTML
- python - 为什么“应该等于”出现在输出之间?为什么会重复?
- windows - AWS EC2 Windows,预留实例
- r - 计算所选行的最大值
- ruby-on-rails - 未定义的局部变量或方法“meta_title”
- delphi - Gnostice PDF Toolkit 上的内存泄漏
- vue.js - 多个 v-for 循环显示国家/地区内的城市?