Extracting Column Data from a Data Modeling Tool 135
strSQL = "SELECT A.* FROM IMPC_IMPORTCOL_M A, COL_COLUMN_M B" _
& " WHERE A.[Attribute Entity Table Name] =
B.TAB_PHYSNAME_T " _
& " AND A.[Attribute Column Name] = B.COL_PHYSNAME_T " _
& " AND B.COL_USERDEFINED_I = 'Y' "
rstCol.Open strSQL, CurrentProject.Connection, _
adOpenKeyset, adLockOptimistic, adCmdText
If Not rstCol.EOF Then
MsgBox "There are columns that are user-defined which are
replicated by " _
& "the metadata being imported from the data model. " _
& "These issues must be resolved before the import can
proceed. " _
& "The columns will now be listed."
Do While Not rstCol.EOF()
MsgBox rstCol("Attribute Entity Table Name") & " / " _
& rstCol("Attribute Column Name")
rstCol.MoveNext
Loop
MsgBox "Import ...