如何OBDC自动连接SQL里的所有表？

sxgaobo

在论坛中学习到一个OBDC自动连接的一段代码，如下：
Function LinkToPubsAuthorsDSNLess()
    Dim db As DAO.Database
    Dim tdf As DAO.TableDef
    Dim strConnect As String   
    Dim strServer As String
    Dim strDatabase As String
    Dim strUID As String
    Dim strPWD As String
    strServer = "IP地址"
    strDatabase = "数据库名称"
    strUID = "用户名"
    strPWD = "数据库密码"
    strConnect = "ODBC;DRIVER={SQL Server}" _
               & ";SERVER=" & strServer _
               & ";DATABASE=" & strDatabase _
               & ";UID=" & strUID _
               & ";WD=" & strPWD & ";"
    Set db = CurrentDb()
    Set tdf = db.CreateTableDef("要创建的链接表名称")
    tdf.SourceTableName = "目标表名称"
    tdf.Connect = strConnect
    db.TableDefs.Append tdf
    db.TableDefs.Refresh
    Set tdf = Nothing
    Set db = Nothing
End Function
可一次只能连接一个表，如何能将SQL中的所有表连接了啊？

leonshi

应该是可以实现的，你可以链接到sql server后通过查询得到你链接数据库的表名然后在自动链接

sxgaobo

又在论坛里找了个例子改了下，总感觉不不专业没速度，哪位高手有更好的办法啊？
Set r = CurrentDb.OpenRecordset("表名表")
While Not r.EOF
Set tdf = CurrentDb.CreateTableDef(r.名称)
  tdf.Connect = "ODBC;" & _
                "DRIVER=SQL Server;" & _
                "SERVER=192.168.1.1;" & _
                "DATABASE=dSQL;" & _
                "UID=sa;" & _
                "PWD=123456"
    tdf.SourceTableName = r.名称
    CurrentDb.TableDefs.Append tdf
    Set tdf = Nothing
    Application.RefreshDatabaseWindow
   
r.MoveNext
   
Wend

123

一般都用这种方法的