请教一个OBDC连接代码的问题

huangjingfeng88

本帖最后由 huangjingfeng88 于 2010-10-7 14:24 编辑

在论坛中学习到一个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

主段代码db.TableDefs.Append tdf报错，也不知要如何改，请各位大师指点下，另外这段代码是写在模块内吗，如果不是就写在什么地方？？

tmtony

1。写在模块内
2。里面的参数 如用户名 密码 目标表名称等等都要改成你自己的参数才行。

huangjingfeng88

代码db.TableDefs.Append tdf报错要如何改啊，请老师指点下

huangjingfeng88

这段代码我是这样用的，在启动窗体的加载中加入LinkToPubsAuthorsDSNLess，将代码放在模块中，但运行到db.TableDefs.Append tdf报错，请老师指点下如何解决

huangjingfeng88

老师啊,老师,我顶啊