用代码刷新ODBC链接SQL Server表
时 间:2015-03-22 08:53:11
作 者:limeinan ID:24010 城市:江阴
摘 要:用代码刷新ODBC链接SQL Server表
正 文:
问:在用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)。
Access软件网QQ交流群 (群号:483923997) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access窗体导出PDF】...(04.08)
- 【Access窗体导出PDF】...(04.07)
- Access两种方式实现即时更...(03.01)
- Access隐藏与显示lacc...(01.12)
- 【Access高效办公】将每个...(12.23)
- Access21点游戏源代码(12.13)
- 【Access窗体导出Exce...(11.15)
- 【Access开发】Acces...(11.14)
- 通过Access宏录入数据到选...(11.10)
学习心得
最新文章
- Access VBA语句If Me...(04.24)
- 【Access修改记录示例】编辑选...(04.22)
- 【Access表名称命名建议】将A...(04.20)
- Access学习笔记--用Acce...(04.19)
- 【Access重复项查询示例】将A...(04.17)
- Access快速开发平台企业版--...(04.16)
- 【Access模块示例】通过模块代...(04.15)
- Access查询里面分组合计功能添...(04.13)
- 【Access删除查询】删除数字最...(04.12)
- 显示文件夹中所有文件的修改时间(04.11)