| ★在用MDB与SQLSEVER2000链接...... 在用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 |
|小黑屋|最新主题|手机版|微赢网络技术论坛
( 苏ICP备08020429号 )
GMT+8, 2024-9-30 03:34 , Processed in 0.135136 second(s), 12 queries , Gzip On, MemCache On.
Powered by Discuz! X3.5
© 2001-2023 Discuz! Team.
