|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
Archive非常适合存储大量的独立的,作为历史记录的数据。因为它们不经常被读取。Archive拥有高效的插入速度,但其对查询的支持相对较差 在用MDB与SQLSEVER2000链接时,偶然必要革新链接表,经由过程以下代码能够到达目标,此主题的办理参考了网友cwang的代码,并失掉了微软工程师BillyYao的热情匡助,在此申谢! Functionrelink()
DimdbAsDatabase
DimtblAsTableDef
DimaAsString
DimbAsString
DimdAsString
a=sa数据库用户
b=abc数据库口令
d=abcde数据库称号
Setdb=CurrentDb
ForEachtblIndb.TableDefs
Iftbl.Attributes=536870912Then
tbl.Connect=FILEDSN=d:demosteel.dsn;UID=&a&;PWD=
&b&;WSID=;DATABASE=&d&;Network=DBMSSOCN
tbl.Attributes=dbAttachSavePWD
tbl.RefreshLink
EndIf
Next
EndFunction
附上微软工程师BillyYao的解答申明:
依据您的形貌,我对您的成绩解答以下:
1.DSN=gnts中gnts是体系DSN的文件名。
2.UID是用户名,而且它的值由变量a的值决意。PWD是暗码,而且它的值由变量b的值决意。
3.WSID是指事情站的ID号(WorkstationID)。变量d的值暗示数据库的称号。Network=DBMSSOCN
指TCP/IP所利用的收集库(NetworkLibrary)。
关于ODBCDSNConnectionString的更多信息,您可拜见以下这些文章:
http://www.able-consulting.com/MDAC/ADO/Connection/ODBC_DSN.htm
http://support.microsoft.com/default.aspx?scid=kb;EN-US;260249
但我们知道,若使用statement,并没有上述需要的数据。试想binlog中记录了一句updatetsetf1=3whereid=3。怎么恢复呢? |
|