至顶网›软件频道 ›解析：用代码刷新ODBC链接SQL Server表

解析：用代码刷新ODBC链接SQL Server表

扫一扫
分享文章到微信
扫一扫
关注官方公众号
至顶头条

在用MDB与SQL Server 2000链接时，有时需要刷新链接表，如何简洁方便地完成？

作者：赛迪网 limeinan 来源：天新网 2008年4月23日

问：在用MDB与SQL Server 2000链接时，有时需要刷新链接表，如何简洁方便地完成？

答：通过以下代码可以达到目的:

　　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:demosteel.dsn;UID=" & a & ";
PWD=" & b & ";WSID=;DATABASE=" & d & ";Network=DBMSSOCN" '
　　tbl.Attributes = dbAttachSavePWD
　　tbl.RefreshLink
　　End If
　　Next
　　End Function

问题解答如下：

1. DSN=gnts 中gnts是系统DSN的文件名。

2. UID是用户名，并且它的值由变量a的值决定。PWD是密码，并且它的值由变量b的值决定。

3. WSID 是指工作站的ID号 (Workstation ID)。变量d的值表示数据库的名称。 Network=DBMSSOCN 指TCP/IP所使用的网络库(Network Library)。

VIP专区

VIP用户

普通用户

闂傚倸鍊风欢锟犲矗鎼淬劌绐楅柡鍥╁亹閺嬪酣鏌曡箛瀣仾濠殿垰銈搁弻鏇＄疀鐎ｎ亖鍋撻弽顓ㄧ稏闁跨噦鎷�

婵犵數濮烽。浠嬪焵椤掆偓閸熷潡鍩€椤掆偓缂嶅﹪骞冨Ο璇茬窞闁归偊鍓涢悾娲⒑闂堟单鍫ュ疾濠婂嫭鍙忔繝濠傜墛閸嬨劍銇勯弽銊с€掗柟钘夊暣閺岀喖鎮滈埡鍌涚彋閻庤娲樺畝绋跨暦閸洖鐓涢柛灞剧矋濞堟悂姊绘担绛嬪殐闁搞劋鍗冲畷銏ゅ冀椤愩儱小闂佹寧绋戠€氼參宕伴崱妯镐簻闁靛牆鎳庢慨顒€鈹戦埥鍡椾簼婵犮垺锚铻炴俊銈呮噺閸嬪倹绻涢崱妯诲碍閻庢艾顦甸弻宥堫檨闁告挾鍠庨锝夘敆娓氬﹦鐭楁繛鎾村焹閸嬫捇鏌ｅ☉娆愬磳闁哄本绋戦埞鎴﹀川椤曞懏鈻婄紓鍌欑劍椤ㄥ懘鎯岄崒鐐靛祦閹兼番鍔岄悞鍨亜閹烘垵顏╅悗姘槹閵囧嫰寮介妸褎鍣ョ紓浣筋嚙濡繈寮婚悢纰辨晣鐟滃秹鎮橀懠顒傜＜閺夊牄鍔庣粻鐐烘煛鐏炶姤鍠橀柡浣瑰姍瀹曠喖顢橀悩铏钒闂備浇宕垫慨鎶芥⒔瀹ュ鍨傞柦妯猴級閿濆绀嬫い鏍ㄧ☉濞堟粓姊虹涵鍛【妞ゎ偅娲熼崺鈧い鎺嗗亾闁挎洩濡囧Σ鎰板籍閸繄顓洪梺缁樺姇瀵剙螖閸涱喚鍘搁梺鍓插亽閸嬪嫰鎮橀敃鍌涚厱閻庯綆鍋嗘晶顒傜磼閸屾稑绗ч柟鐟板閹煎湱鎲撮崟闈涙櫏闂傚倷绀侀幖顐も偓姘卞厴瀹曞綊鏌嗗鍛紱閻庡箍鍎遍ˇ浼村磿瀹ュ鐓曢柡鍥ュ妼婢ь垰霉閻樿秮顏堟箒闂佹寧绻傚Λ妤呭煝閺囥垺鐓冪憸婊堝礈濮樿泛钃熼柕濞у嫷鍋ㄩ梺缁樺姇椤曨參鍩㈤弴銏″€甸柨婵嗗€瑰▍鍥ㄣ亜韫囨稐鎲鹃柡灞炬礋瀹曢亶顢橀悢濂変紦

重磅专题

往期文章

解析：用代码刷新ODBC链接SQL Server表

业界热点: