在宏中需要帮助并使用外部oracle DB连接访问DB？

Question

在现有的Microsoft Access数据库中，我们有从oracle DB映射的inputvalue的表，我希望借助宏将其从Oracle DB中清除到访问数据库中。在这里，我的问题是，无论如何要确定oracle DB Field到Access DB Field之间的现有映射？请帮忙。

Answer 1

使用VBA：

Dim fld As DAO.Field
Dim tdf As TableDef
Dim db As Database

    Set db = CurrentDb

    For Each tdf In db.TableDefs
        ''Linked table
        If Len(tdf.Connect) > 0 Then
            Debug.Print tdf.Connect
            ''Local name
            Debug.Print tdf.Name
            ''Source name
            Debug.Print tdf.SourceTableName

            For Each fld In tdf.Fields
               ''Local name
                Debug.Print fld.Name
               ''Source name
                Debug.Print fld.SourceField
            Next
        End If
    Next