Access开发培训
网站公告
·Access专家课堂QQ群号:151711184    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > ADP及SQL SERVER

无需*.DSN文件创建对SQL SEVER数据库的链接

时 间:2004-01-12 00:00:00
作 者:竹笛   ID:8  城市:上海  QQ:2851379730点击这里给张志发消息
摘 要:无需*.DSN文件创建对SQL SEVER数据库的链接 
正 文:

 在不使用DSN文件的情况下,我们可以通过下面的代码来创建对SQL SEVER2000的表链接。使用这个方法,可以防止用户知道您的数据库存放地址。

示例代码:
 方法一:

    DoCmd.TransferDatabase acLink, "ODBC", "ODBC;DRIVER=SQL Server;SERVER=IP地址;UID=用户名;PWD=密码;DATABASE=数据库名称", acTable, "目标表名称", "链接表名称", True

 方法二:
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 _
               & ";PWD=" & 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

说明:上面代码中的IP地址,用户名,密码,数据库名称都不需要加引号。

致谢:本技巧得到了微软动力营工程师mgcheng和微软MVP ge chen先生的帮助,在此致谢!



Access软件网QQ交流群 (群号:54525238)       Access源码网店

常见问答:

技术分类:

相关资源:

专栏作家

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助