Office中国论坛/Access中国论坛

标题: 请教一个OBDC连接代码的问题 [打印本页]

作者: huangjingfeng88 时间: 2010-10-17 19:05
标题: 请教一个OBDC连接代码的问题
本帖最后由 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 时间: 2010-10-18 11:17
1。写在模块内
2。里面的参数如用户名密码目标表名称等等都要改成你自己的参数才行。

作者: huangjingfeng88 时间: 2010-10-18 18:23
代码db.TableDefs.Append tdf报错要如何改啊，请老师指点下

作者: huangjingfeng88 时间: 2010-10-19 11:13
这段代码我是这样用的，在启动窗体的加载中加入LinkToPubsAuthorsDSNLess，将代码放在模块中，但运行到db.TableDefs.Append tdf报错，请老师指点下如何解决

作者: huangjingfeng88 时间: 2010-10-21 16:04
老师啊,老师,我顶啊

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)