ADOX Table.Append error -
01-23-2004
, 04:03 PM
I've got some elementary ADO code where I'm trying to append a jet
table to the tables collection of an access 2000 database
--------------------
Dim catCatalog As ADOX.Catalog
Dim tblTemp As ADOX.Table
Set catCatalog = New ADOX.Catalog
catCatalog.ActiveConnection = CurrentProject.Connection
Set tblTemp = New ADOX.Table
Set tblTemp.ParentCatalog = catCatalog
tblTemp.Name = "tblTemp"
tblTemp.Columns.Append "ID", adVarChar
tblTemp.Columns.Append "CompositeScore", adVariant
catCatalog.Tables.Append tblTemp
------------------------
When I call the append method to the tables collection I get a "type
is invalid" error message. ??? What am I missing here? any
suggestions?? I can probably do this with DAO but I dont want give
up.
thanks |