加入收藏在线咨询
位置:主页 >

亚洲官方第一老虎机网站:用代码刷新ODBC链接SQL Server表SQL Server表

作者:dudu时间:11月29日浏览:


在用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 = "FILE亚洲官方第一老虎机网站DSN=d:demosteel.dsn;UID=" & a & ";

PWD=" & b & ";WSID=;DATABASE亚洲官方第一老虎机网站=" & d & ";Network=DBMSSOCN" '

tbl.Attributes = dbAttachSavePWD

tbl.RefreshLink

End If

Next

End Function

问题解答如下:

1. DSN=gn亚洲官方第一老虎机网站ts 中gnts是系统DSN的文件名。

2. UID是用户名,并且它的值由变量a的值抉择。PWD是密码,并且它的值由变量b的值抉择。

3. WSID 是指事情站的ID号 (Workstation ID)。变量d的值表示数据库的名称。 Network=DBMSSOCN 指TCP/IP所应用的收集库(Netwo亚洲官方第一老虎机网站rk Library)。

电话:13866999966
联系人:王经理
Q Q:88996699
邮箱:admin@dede58.com
地址:中国XX省XX市XX路XX号