DSNLess link table

[Ghost Dog]

The Microsoft example at
http://support.microsoft.com/default.aspx?scid=kb;EN-US;892490 doesn't work

Function AttachDSNLessTable(stLocalTableName As String, stRemoteTableName As
String, stServer As String, stDatabase As String)
On Error GoTo AttachDSNLessTable_Err
Dim td As TableDef
Dim stConnect As String
For Each td In CurrentDb.TableDefs
If td.Name = stLocalTableName Then
CurrentDb.TableDefs.Delete stLocalTableName
End If
Next
stConnect = "ODBC;DRIVER=SQL Server;SERVER=" & stServer & ";DATABASE=" &
stDatabase & ";Trusted_Connection=Yes"
Set td = CurrentDb.CreateTableDef(stLocalTableName, dbAttachSavePWD,
stRemoteTableName, stConnect)
CurrentDb.TableDefs.Append td
AttachDSNLessTable = True
Exit Function

AttachDSNLessTable_Err:
AttachDSNLessTable = False
End Function


I get a data type conversion error when I use the above MS code snippet.
What is dbAttachSavePWD? It is not declared or defined
in the link at
http://support.microsoft.com/default.aspx?scid=kb;EN-US;892490

P.S. I removed the optional stuff as it is not pertinent.

 

[Douglas J. Steele]

dbAttachSavePWD is defined in the DAO library, and since your code isn't
failing on Dim td As TableDef, you obviously have a reference set to DAO.
(for the record, dbAttachSavePWD is equal to 131072)

See whether what I have at
http://www.accessmvp.com/djsteele/DSNLessLinks.html works any better for
you.

 

[Ghost Dog]

Thanks Doug.

dbAttachSavePWD is defined in the DAO library, and since your code isn't
failing on Dim td As TableDef, you obviously have a reference set to DAO.
(for the record, dbAttachSavePWD is equal to 131072)

See whether what I have at
http://www.accessmvp.com/djsteele/DSNLessLinks.html works any better for
you.