实例分析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
- 特别声明:本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载,但请务必注明出处和原始作
- 者.文章版权归文章原始作者所有.对于被本站转载文章的个人和网站,我们表示深深的谢意。如果本站转
- 载的文章有版权问题请联系编辑人员,我们尽快予以更正. 转载请注明来源:http://www.hackhome.com
精品推荐
热点TOP10
- ·安全的Microsoft的ACCESS数据库加密方法
- ·Access使用查询--1.1. 用选择查询建立计算字段
- ·用SQL链接服务器访问远程Access数据库
- ·用ASP和SQL语句动态的创建Access表
- ·Access数据库的存储上限指标
- ·Access使用查询--1.2.用选择查询进行分组数据的计算
- ·几种修复ACCESS数据库的实用方法
- ·如何把Access转成SQL Server的方法介绍
- ·网站选SQL Server还是Access当后台数据库好?
- ·把Access转成SQL数据库的方法介绍
- ·如何优化MICROSOFT ACCESS提高速度
- ·揭开Microsoft Access秘密技巧以及陷阱
- ·在access中增加农历支持模块
- ·使用准则进行条件查询
- ·Access使用宏控制程序 4.常用的宏操作
- ·保护Access 2000数据库的安全
- ·掌握部署 Access项目的方法
- ·设置在 Access项目中检索的记录数
- ·以前流行的4种Access数据库安全方式
- ·数据库安全 关于Access数据库4种安全方式
