讲解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
投稿猜你喜欢
- 本文实例讲述了python查看FTP是否能连接成功的方法。分享给大家供大家参考。具体如下：#!/usr/local/bin/python#-
- Python docx库代码演示安装需要lxml pip install python-docx主业务代码from openpyxl imp
- E盘根目录新建一个Excel文件aa.xls后测试如下代码use tempdb go if (object_id ('udf_get
- 方法1：自定义异常# -*- coding:utf-8 -*-"""功能：python跳出循环"&q
数据科学领域日常使用 Python 处理大规模数据集的时候经常需要使用到合并、链接的方式进行数据集的整合，其中应用的数据类型包括 Serie- 背景背景是这样的, 我的家里台式机常年 休眠, 并配置了 Wake On Lan (WOL) 方便远程唤醒并使用.但是我发现, 偶尔台式机会
- 1. 什么是虚拟环境？虚拟环境的意义，就如同 虚拟机 一样，它可以实现不同环境中Python依赖包相互独立，互不干扰。举个例子吧。假设我们的
- pytorch中如何只让指定变量向后传播梯度？（或者说如何让指定变量不参与后向传播？）有以下公式，假如要让L对xvar求导：（1）中，L对x
- PERCONA PERFORMANCE CONFERENCE 2009上，来自雅虎的几位工程师带来了一篇”Efficient Paginat
- 一、ts文件的由来ts文件，ts即"Transport Stream"的缩写，特点就是要求从视频流的任一片段开始都是可以
- 目前使用MySQL的网站，多半同时使用Memcache作为键值缓存。虽然这样的架构极其流行，有众多成功的案例，但过于依赖Memcache，无
- 在SQL Server中，提供了通过Exchange或Outlook收发邮件的扩展存储过程。下面简单地介绍一下：一、启动SQL Mail：x
- csv是Comma-Separated Values的缩写，是用文本文件形式储存的表格数据，比如如下的表格：就可以存储为csv文件，文件内容
- 1 InnoDB页的概念InnoDB是一个将表中的数据存储在磁盘上的存储引擎，即使我们关闭并重启服务器，数据还是存在。而真正处理数据的过程发
- 多表查询1. 增删改一对多：先一后多，外键可以为对象或依赖表的主键（publish and book)publish = Publish.o
- 在Python中有两个函数分别是startswith()函数与endswith()函数，功能都十分相似，startswith()函数判断文本
- 改编自详解利用OpenCV提取图像中的矩形区域（PPT屏幕等） 原文是c++版，我改成了python版，供大家参考学习。主要思想：边缘检测—
- 官方文档介绍链接：append方法介绍DataFrame.append(other, ignore_index=False, verify_
- 数据库中有一字段type_code，有中文类型和中文类型编码，现在对type_code字段的数据进行统计处理，编码对应的字典如下：{'
- Python2.7: 使用Pyhook模块监听鼠标键盘事件-获取坐标。因该模块对Python3 有兼容性问题，故采用python2.7解释器
