TableDef Question

[barlowr70]

I have an application with an Access 97 front end and an SQL server back end. In acces 97 I use the code below to determine a tables name and connection string.

Dim tbl As TableDef

For Each tbl In CurrentDb.TableDefs
Debug.Print "TABLE... " & UCase(tbl.Name) & " ... " & tbl.Connect
Next tbl

I am currently updating the Front to Access 2003 and I can get most of a tables properties using the following code, but can't get the connection property. Does anyone know how to this is done?

Dim obj As AccessObject

For Each obj In CurrentData.AllTables
Debug.Print obj.Name, obj.Type
Next obj

Thanks in advance

Roy.

 

[gemma-the-husky]

the connection property - do you mean ther connect string?

thats

tabledef("anytable").connect

 

[mearle]

The "old" way should still work. Why change it ?

 

[barlowr70]

I am looking for the connection string but using the ADO rather than DAO

Regards

 

[barlowr70]

I am looking for the connection string but using the ADO rather than DAO

Regards

 

[gemma-the-husky]

why ado

DAO is the standard mechanism in both A97 and A2003 - I would kepp with that

Access changed to ADO in between, but returned to DAO for A2003 (and before?)

 

[gemma-the-husky]

why ado

DAO is the standard mechanism in both A97 and A2003 - I would kepp with that

Access changed to ADO in between, but returned to DAO for A2003 (and before?)

 

[mearle]

If you really want to, you need to use the ADOX Catalog to access the table properties.
The following should give enough of a clue:
http://support.microsoft.com/kb/240222
http://msdn.microsoft.com/en-us/library/aa140022(office.10).aspx