请教用代码一次连接SQL多个表要如何写

huangjingfeng88

Function LinkToPubsAuthorsDSNLess()
    Dim db As DAO.Database
    Dim tdf As DAO.TableDef
    Dim strConnect As String    RunCode
    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

这段代码要连接多个表要如何改啊,请老师指点下

test3099

Set tdf = db.CreateTableDef("要创建的链接表名称")
    tdf.SourceTableName = "目标表名称"
    tdf.Connect = strConnect
    db.TableDefs.Append tdf
    db.TableDefs.Refresh
    Set tdf = Nothing
这一段重复多次

huangjingfeng88

谢谢了,感觉代码量比较大,想找个少点的方法