DAO to ADO (Linking Tables) 1

[gavinjb]

I am trying to convert some old Access 97 DAO code to ADOX, to use for Linking Tables, can any one help me/give me some pointers on what I need to do to convert the following proc to ADOX.

Sub UpdateLink(strTableName As String, strDatabaseName As String)
On Error GoTo UpdateLink_Error

Dim tdf As TableDef
Dim dbsDb As Database

Set dbsDb = currentDB

' Set object to point to table
Set tdf = dbsDb.TableDefs(strTableName)
'Specify the new location of the source table.
tdf.Connect = ";DATABASE=" & strDatabaseName
' Refresh the Link.
tdf.RefreshLink
Exit Sub

UpdateLink_Error:
MsgBox "The following error occurred: " & Error$
Resume Next
End Sub

Thanks,

Gavin,

 

[DougP]

Not sure if this helps

DoCmd.TransferDatabase acLink, "ODBC Database", _
"ODBC;DSN=DataSource1;UID=User2;PWD=

http://www;LANGUAGE=us_english;"

_
& "DATABASE=pubs", acTable, "Authors", "dboAuthors"

I got this outta help.

DougP, MCP, A+

 

[cmmrfrds]

This link seems to cover it quite well.

http://support.microsoft.com/default.aspx?scid=kb;en-us;230588&Product=ado