首页 > 开发 > 综合 > 正文

使用代码刷新ODBC链接SQL SEVER表

2024-07-21 02:12:37
字体:
来源:转载
供稿:网友
 在用mdb与sql sever2000链接时,有时需要刷新链接表,通过以下代码可以达到目的,此主题的解决参考了网友cwang的代码,并得到了微软工程师billy yao 的热心帮助,在此致谢!

    function relink()
                dim db as database
                dim tbl as tabledef
                dim a as string
                dim b as string
                dim d as string
               
                a = sa'数据库用户
                b = abc'数据库口令
                d = abcde'数据库名称
                set db = currentdb
                for each tbl in db.tabledefs
                    if tbl.attributes = 536870912 then
                        tbl.connect = filedsn=d:/demo/steel.dsn;uid= & a & ;pwd=
            & b & ;wsid=;database= & d & ;network=dbmssocn
             '
                        tbl.attributes = dbattachsavepwd
                        tbl.refreshlink
                    end if
                next
            end function
            附上微软工程师billy yao的解答说明:
            根据您的描述,我对您的问题解答如下:
            1. dsn=gnts 中gnts是系统dsn的文件名。
            2. uid是用户名,并且它的值由变量a的值决定。pwd是密码,并且它的值由变量b的值决定。
            3. wsid 是指工作站的id号 (workstation id)。变量d的值表示数据库的名称。 network=dbmssocn
            指tcp/ip所使用的网络库(network library)。
            关于odbc dsn connection string的更多信息,您可参见以下这些文章:
            http://www.able-consulting.com/mdac/ado/connection/odbc_dsn.htm
            http://support.microsoft.com/default.aspx?scid=kb;en-us;260249

,欢迎访问网页设计爱好者web开发。
发表评论 共有条评论
用户名: 密码:
验证码: 匿名发表