讲解Access数据库中数据表的自动重新联接
作者：36199 来源：赛迪网 发布时间：2008-11-28 16:29:00
在实际的应用中，Access做应用程序时，经常会做成"数据"和"程序"两个数据库，"数据"数据库中只存放数据表，"程序"数据库中存放所有的form，query,report,module等，通过表联接"程序"数据库可以访问所有"数据"数据库中的表。
当使用的应用程序更换存储位置的时候往往失去正确的表联接，造成运行错误。下面的一段程序可以自动找回表联接。在我的应用中"程序"数据库名字是stockMgr.mdb,"数据"数据库名字是stock-Data.mdb
注释：
（1）程序仅限于"程序"和"数据"存放在同一个目录而且是对应单个"数据"文件的情况。
（2）在程序启动或按钮动作中调用即可。
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
0
投稿猜你喜欢
- 全球数据量的疯狂增长，使得市场对资深数据库管理员的需求也节节攀升。据统计，一直到2016美国IT市场对数据库管理员的需求量增长都将会超过所有
学习目的： 掌握最基本的Label、TextBox、Button控件用法 掌握用StringBuider类连接字符串 理解服务器的环境变量- 由于多种原因，进行安全设置的人们常常不理解数据的真正价值，所以，他们也无法对数据进行合适的保护。将你的数据只限于需要的人访问，并保证访问的人
- ..:: 巧用CSS制作艺术字 ::..如果灵活应用CSS各种滤镜的特点并加以组合，我们可以得到许多意想不到的效果。这是一些效果示范，供各位
- 什么是品牌的视觉传达品牌，这个熟悉而又陌生的名词，有时总会让人产生误解。品牌很广，广到一个意会颇深的战略发展理念；品牌很小，小到一个清晰可见
- JS获取网页中HTML元素的几种方法分析：getElementById getElementsByName getElementsByTag
- Internet Explorer 8 Beta 测试了一年多之后，今天，IE8 终于发布了。它绝对好过 IE7，还有一些不错的新功能，如
- MaxDB和MySQL是独立的数据库管理服务器。系统间的协同性是可能的，通过相应的方式，系统能够彼此交换数据。要想在MaxDB和MySQL之
- 这10个asp处理网页编码转换的函数，不知何时收藏在我的电脑中，今天刚好看到了，拿出来与大家分享，这里各种常见的网页编码问题已经
- 任何位置都能明确“我在哪里？这里有什么？从这里能去哪里？” 小时候，童话故事都告诉我们，迷路可不是一件好事。那会伴随着困惑、沮丧、
- 这段时间服务器崩溃2次，一直没有找到原因，今天看到论坛发出的错误信息邮件，想起可能是mysql的默认连接数引起的问题，一查果然，老天，默认
- 背景：在做项目时，经常会遇到这样的表结构在主表的中有一列保存的是用逗号隔开ID。如，当一个员工从属多个部门时、当一个项目从属多个城市时、当一
- [1]好好规划自己的路，不要跟着感觉走！根据个人的理想决策安排，绝大部分人并不指望成为什么院士或教授，而是希望活得滋
- 在服务器端asp程序可以接受html页面上的form传来的参数，那么它又如何实现IE地址参数判断呢？当地址栏没有参数＂id＂时
- 做过主页的朋友，几乎没有一个人没用到它，它使我们排版更加轻松。有人说DW的表格没有Fp的好用，我认为不
- 内容摘要：一堆数据摆面前，数据背后有什么样的事情在发生，这些数据里面暗藏着什么样的用户需求，什么样的商业机会？看懂这些，将为未来产品设计的方
- 网页过渡是指当浏览者进入或离开网页时，页面呈现的不同的刷新效果，比如卷动、百叶窗等。这样你的网页看起来
- 为什么我把自己机子上的数据库备份文件往另一台机子上还原不成功？可能是你在Restore的对话框中选项不正确。Restore 有三个选项，分别
- <html><head><style>body{font-family:宋体;font-size:16p
- 在 Class 块中，成员通过相应的声明语句被声明为 Private(私有成员，只能在类内部调用)
