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
新闻热点
疑难解答