J
Joel Wiseheart
Although I have been programming in Access VBA for some
time, I am in the early stages of making the transition
from DAO to ADO programming. Apparently, everything I've
read implies that DAO is going away, so I have to learn
ADO sometime....why not now?
How would I do an ADO (or ADOX) equivalent of the code
below? I cannot find anything in my reference materials
that talks about how to use ADO(X) to determine where an
external table is linking FROM. Also, I don't see any
property of the ADOX "Table" object that matches the
DAO "TableDef" object "Connect" Property.
Thanks for your help!
Public Function DAOLinkedTables()
Dim db As DAO.Database
Dim tdf As DAO.TableDef
Set db = CurrentDb
For Each tdf In db.TableDefs
With tdf
If (.Attributes And dbSystemObject) Then
'Do Nothing
Else
Debug.Print .SourceTableName _
& " : " _
& .Connect
End If
End With
Next
End Function
time, I am in the early stages of making the transition
from DAO to ADO programming. Apparently, everything I've
read implies that DAO is going away, so I have to learn
ADO sometime....why not now?
How would I do an ADO (or ADOX) equivalent of the code
below? I cannot find anything in my reference materials
that talks about how to use ADO(X) to determine where an
external table is linking FROM. Also, I don't see any
property of the ADOX "Table" object that matches the
DAO "TableDef" object "Connect" Property.
Thanks for your help!
Public Function DAOLinkedTables()
Dim db As DAO.Database
Dim tdf As DAO.TableDef
Set db = CurrentDb
For Each tdf In db.TableDefs
With tdf
If (.Attributes And dbSystemObject) Then
'Do Nothing
Else
Debug.Print .SourceTableName _
& " : " _
& .Connect
End If
End With
Next
End Function