实例分析Access中数据表的自动重新联接

日期：2007年7月14日作者：查看:[大字体中字体小字体]

用Access做应用程序，往往做成“数据”和“程序”两个数据库，“数据”数据库中只存放数据表，“程序”数据库中存放所有的form，query,report,module等，通过表联接“程序”数据库可以访问所有“数据”数据库中的表。

当我们的应用程序更换存储位置的时候往往失去正确的表联接，造成运行错误。下面的一段程序可以自动找回表联接。在我的应用中“程序”数据库名字是stockMgr.mdb,“数据”数据库名字是stock-Data.mdb。

注意：该程序仅限于“程序”和“数据”存放在同一个目录而且是对应单个“数据”文件的情况。以下为

Function ReAttachTable() 
Dim MyDB As Database, MyTbl As TableDef 
Dim cpath As String 
Dim datafiles As String, i As Integer 

On Error Resume Next 
Set MyDB = CurrentDb 
cpath = trimFileName(CurrentDb.Name) 
datafiles = "stock-data.mdb" 
DoCmd.Hourglass True 
For i = 0 To MyDB.TableDefs.Count - 1 
Set MyTbl = MyDB.TableDefs(i) 
If MyTbl.Attributes = DB_ATTACHEDTABLE And Left(MyTbl.Connect, 1) = ";" Then 
MyTbl.Connect = ";DATABASE=" & cpath & datafiles 
MyTbl.RefreshLink 
If Err Then 
If vbNo = MsgBox(Err.description & "，继续吗？", vbYesNo) Then Exit For 
End If 
End If 
Next i 
DoCmd.Hourglass False 
msgbox "Tables relink finish." 
End Function 

'绝对路径中去掉文件名，返回路径 
Function trimFileName(fullname As String) As String 
Dim slen As Long, i As Long 
slen = Len(fullname) 
For i = slen To 1 Step -1 
If Mid(fullname, i, 1) = "\" Then 
Exit For 
End If 
Next 
trimFileName = Left(fullname, i) 
End Function

在程序启动或者按钮动作中调用即可。

（出处：急速软件下载学院）

实例分析Access中数据表的自动重新联接相关文章：
·非主流ps教程实用的技巧大全
·解读身份认证技术现实化
·Vista系统实现自动关机技巧
·Illustrator传统风格名片设计实例
·AutoCAD造型实例：十字形螺丝刀头
·AutoCAD造型实例：一字形螺丝刀头
·Mac+Win实测 Boot Camp还是虚拟机？
·Illustrator绘制精美三维图表实例
·JavaScript/JS实现标题栏跑马灯
·CSS实例布局:上中下三行中间自适应
实例分析Access中数据表的自动重新联接相关软件
·《实况足球2007》粤语存档繁体中文版
·《NBA实况篮球》街机模拟器
·《实况足球8》欧洲PC版商店所有物品存档
·超任游戏《实况足球4》模拟器
·《实况足球9》实用工具集
·大案纪实：惊天绑架案
·《沙嘴红灯区》(长篇纪实小说)
·真实摔跤
·中国第一颗原子弹制造纪实：596秘史
·实况足球2008

上一篇:MYSQL学习整理的的关于实用操作的笔记

下一篇:解析SQL Server数据应用在不同的数据库中

特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作
者.文章版权归文章原始作者所有.对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转
载的文章有版权问题请联系编辑人员,我们尽快予以更正. 转载请注明来源：http://www.hackhome.com

实例分析Access中数据表的自动重新联接

精品推荐

热点TOP10

特别推荐